From: Andrey C. <sku...@us...> - 2006-10-18 08:50:49
|
Update of /cvsroot/eas-dev/clip-ui/drivers In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv6918/drivers Modified Files: driver-gtk.prg Log Message: - Window now support spacing and padding in form - Pass both id and text for UIChoice - getValues() method ignore named buttons - UIChoice support setValue/getValue as array { text, id } Index: driver-gtk.prg =================================================================== RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk.prg,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- driver-gtk.prg 6 Jun 2006 07:24:02 -0000 1.3 +++ driver-gtk.prg 18 Oct 2006 08:49:59 -0000 1.4 @@ -1314,7 +1314,7 @@ case "UIRadioButton" val := gtk_ToggleButtonGetActive( o ) - case "UISlider" + case "UISlider" a := gtk_ScaleGetAdjustment(o) gtk_AdjustmentGetValue(a, @val) |