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)