why / shoes fork watch download tarball
public
Forks39Right
Watchers504Right
Description: a tiny graphical app kit for ruby
Homepage: http://code.whytheluckystiff.net/shoes
Clone URL: git://github.com/why/shoes.git 
 * shoes/native/windows.c: the `edit_line` on windows wouldn't let you input 
 text beyond it's right edge (from ak_avenger in #shoes.)
why (author)
Fri Jul 11 08:13:51 -0700 2008
commit  51243356acbfbd229989300da5ab486395d7915a
tree    319480017435a8efc820c16c47822fb1607e6ab4
parent  5c24408feae7caf9545f7a4d515d69ac5efe16eb
0
shoes/native/windows.c 
...
1049
1050
1051
1052
 
1053
1054
1055
...
1087
1088
1089
1090
 
1091
1092
1093
 
...
1049
1050
1051
 
1052
1053
1054
1055
...
1087
1088
1089
 
1090
1091
1092
1093
 
0
@@ -1049,7 +1049,7 @@ shoes_native_edit_line(VALUE self, shoes_canvas *canvas, shoes_place *place, VAL
0
 {
0
   int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot.controls);
0
   SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_CLIENTEDGE, TEXT("EDIT"), NULL,
0
-      WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_LEFT | 
0
+      WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_LEFT | ES_AUTOHSCROLL |
0
       (RTEST(ATTR(attr, secret)) ? ES_PASSWORD : NULL),
0
       place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
0
       canvas->slot.window, (HMENU)cid, 
0
@@ -1087,7 +1087,7 @@ shoes_native_edit_box(VALUE self, shoes_canvas *canvas, shoes_place *place, VALU
0
   int cid = SHOES_CONTROL1 + RARRAY_LEN(canvas->slot.controls);
0
   SHOES_CONTROL_REF ref = CreateWindowEx(WS_EX_CLIENTEDGE, TEXT("EDIT"), NULL,
0
     WS_TABSTOP | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_LEFT |
0
-    ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN,
0
+    ES_MULTILINE | ES_AUTOHSCROLL | ES_AUTOVSCROLL | ES_WANTRETURN,
0
     place->ix + place->dx, place->iy + place->dy, place->iw, place->ih,
0
     canvas->slot.window, (HMENU)cid, 
0
     (HINSTANCE)GetWindowLong(canvas->slot.window, GWL_HINSTANCE),

Comments