Update of /cvsroot/pure-data/externals/bbogart/entry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11351
Modified Files: entry.c Log Message: made scrollbar off by default; removed seemingly extraneous Tcl focus statement in entry_bang_output()
Index: entry.c =================================================================== RCS file: /cvsroot/pure-data/externals/bbogart/entry/entry.c,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** entry.c 28 Oct 2007 05:53:09 -0000 1.19 --- entry.c 29 Oct 2007 03:23:07 -0000 1.20 *************** *** 257,262 **** DEBUG(post("scrollbar .x%x.c.s%x.scrollbar -command {.x%x.c.s%x.text yview} \n",canvas, x, canvas, x);); sys_vgui("scrollbar .x%x.c.s%x.scrollbar -command {.x%x.c.s%x.text yview} \n",canvas, x ,canvas, x); - DEBUG(post("pack .x%x.c.s%x.scrollbar -side right -fill y \n",canvas, x);); - sys_vgui("pack .x%x.c.s%x.scrollbar -side right -fill y \n",canvas, x); DEBUG(post("pack .x%x.c.s%x.text -side left -fill both -expand 1 \n",canvas, x);); sys_vgui("pack .x%x.c.s%x.text -side left -fill both -expand 1 \n",canvas, x); --- 257,260 ---- *************** *** 489,497 **** [.x%x.c.s%x.text get 0.0 end]] \;]\n", x->x_receive_name->s_name, x->x_glist, x); - - DEBUG(post("bind .x%x.c.s%x.text <Leave> {focus [winfo parent .x%x.c.s%x]} \n", - x->x_glist, x, x->x_glist, x);); - sys_vgui("bind .x%x.c.s%x.text <Leave> {focus [winfo parent .x%x.c.s%x]} \n", - x->x_glist, x, x->x_glist, x); }
--- 487,490 ---- *************** *** 551,555 **** binbuf_addv(b, "ssiisiiss", gensym("#X"),gensym("obj"), x->x_obj.te_xpix, x->x_obj.te_ypix, ! gensym("entry"), x->x_width, x->x_height, x->x_bgcolour, x->x_fgcolour); binbuf_addv(b, ";"); } --- 544,549 ---- binbuf_addv(b, "ssiisiiss", gensym("#X"),gensym("obj"), x->x_obj.te_xpix, x->x_obj.te_ypix, ! gensym("entry"), x->x_width, x->x_height, ! x->x_bgcolour, x->x_fgcolour); binbuf_addv(b, ";"); } *************** *** 653,662 **** t_entry *x = (t_entry *)pd_new(entry_class); char buf[MAXPDSTRING]; ! x->x_height = 1; x->x_font_face = gensym("helvetica"); x->x_font_size = 10; x->x_font_weight = gensym("normal"); ! x->x_have_scrollbar = 1; if (argc < 4) --- 647,656 ---- t_entry *x = (t_entry *)pd_new(entry_class); char buf[MAXPDSTRING]; ! x->x_height = 1; x->x_font_face = gensym("helvetica"); x->x_font_size = 10; x->x_font_weight = gensym("normal"); ! x->x_have_scrollbar = 0; if (argc < 4)