From: <wda...@us...> - 2008-08-05 01:17:31
|
Revision: 2850 http://oorexx.svn.sourceforge.net/oorexx/?rev=2850&view=rev Author: wdashley Date: 2008-08-05 01:17:39 +0000 (Tue, 05 Aug 2008) Log Message: ----------- ArtifactID: None Comment: More fixes. Modified Paths: -------------- sandbox/david/4x/grxbutton.cpp sandbox/david/4x/rexxgtk.cls sandbox/david/4x/test4-5.rex sandbox/david/4x/test4-7.rex sandbox/david/4x/test4-9.rex Modified: sandbox/david/4x/grxbutton.cpp =================================================================== --- sandbox/david/4x/grxbutton.cpp 2008-08-05 00:57:12 UTC (rev 2849) +++ sandbox/david/4x/grxbutton.cpp 2008-08-05 01:17:39 UTC (rev 2850) @@ -399,7 +399,8 @@ return 0; } -/** cMethod: get_group +/** + * Method: get_group * * Get the radio button group. * Modified: sandbox/david/4x/rexxgtk.cls =================================================================== --- sandbox/david/4x/rexxgtk.cls 2008-08-05 00:57:12 UTC (rev 2849) +++ sandbox/david/4x/rexxgtk.cls 2008-08-05 01:17:39 UTC (rev 2850) @@ -1370,6 +1370,10 @@ ::class GtkColorButton public subclass GtkButton +::METHOD newWithColor class +use strict arg color +return .GtkColorButton~new(color) + ::METHOD init EXTERNAL "LIBRARY rexxgtk GrxColorButtonNew" ::METHOD 'title=' EXTERNAL "LIBRARY rexxgtk GrxColorButtonSetTitle" ::METHOD set_title EXTERNAL "LIBRARY rexxgtk GrxColorButtonSetTitle" @@ -1513,7 +1517,7 @@ ::METHOD 'visibility=' EXTERNAL "LIBRARY rexxgtk GrxEntrySetVisibility" ::METHOD invisile_char EXTERNAL "LIBRARY rexxgtk GrxEntryGetInvisibleChar" ::METHOD get_invisile_char EXTERNAL "LIBRARY rexxgtk GrxEntryGetInvisibleChar" -::METHOD set_invisile_char EXTERNAL "LIBRARY rexxgtk GrxEntrySetInvisibleChar" +::METHOD set_invisible_char EXTERNAL "LIBRARY rexxgtk GrxEntrySetInvisibleChar" ::METHOD 'invisile_char=' EXTERNAL "LIBRARY rexxgtk GrxEntrySetInvisibleChar" ::METHOD signal_connect EXTERNAL "LIBRARY rexxgtk GrxEntrySignalConnect" @@ -1942,23 +1946,37 @@ ::class GtkHScale public subclass GtkScale -::METHOD newWithRange class EXTERNAL "LIBRARY rexxgtk GrxHScaleNewWithRange" - ::METHOD init EXTERNAL "LIBRARY rexxgtk GrxHScaleNew" /*============================================================================*/ +/* Class: GtkHScaleWithRange */ +/*============================================================================*/ + +::class GtkHScaleWithRange public subclass GtkScale + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxHScaleNewWithRange" + + +/*============================================================================*/ /* Class: GtkVScale */ /*============================================================================*/ ::class GtkVScale public subclass GtkScale -::METHOD newWithRange class EXTERNAL "LIBRARY rexxgtk GrxVScaleNewWithRange" - ::METHOD init EXTERNAL "LIBRARY rexxgtk GrxVScaleNew" /*============================================================================*/ +/* Class: GtkVScaleWithRange */ +/*============================================================================*/ + +::class GtkVScaleWithRange public subclass GtkScale + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxVScaleNewWithRange" + + +/*============================================================================*/ /* Class: GtkImage */ /*============================================================================*/ Modified: sandbox/david/4x/test4-5.rex =================================================================== --- sandbox/david/4x/test4-5.rex 2008-08-05 00:57:12 UTC (rev 2849) +++ sandbox/david/4x/test4-5.rex 2008-08-05 01:17:39 UTC (rev 2850) @@ -45,7 +45,7 @@ -- by Andrew Krause call gtk_init -window = .myMainWindow~new(.gtl~GTK_WINDOW_TOPLEVEL) +window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Password') window~signal_connect("destroy") window~set_border_width(10) Modified: sandbox/david/4x/test4-7.rex =================================================================== --- sandbox/david/4x/test4-7.rex 2008-08-05 00:57:12 UTC (rev 2849) +++ sandbox/david/4x/test4-7.rex 2008-08-05 01:17:39 UTC (rev 2850) @@ -51,8 +51,8 @@ window~set_border_width(10) window~set_size_request(250, -1) -scale_int = .GtkHScale_With_Range~new(0.0, 10.0, 1.0) -scale_float = .GtkHScale_With_Range~new(0.0, 1.0, 0.1) +scale_int = .GtkHScaleWithRange~new(0.0, 10.0, 1.0) +scale_float = .GtkHScaleWithRange~new(0.0, 1.0, 0.1) scale_int~set_digits(0) scale_float~set_digits(1) Modified: sandbox/david/4x/test4-9.rex =================================================================== --- sandbox/david/4x/test4-9.rex 2008-08-05 00:57:12 UTC (rev 2849) +++ sandbox/david/4x/test4-9.rex 2008-08-05 01:17:39 UTC (rev 2850) @@ -51,7 +51,7 @@ window~set_border_width(10) color = '#000033336666' -- each color is really 16-bit number, not 8 bits -button = .MyButton~new(color) +button = .MyButton~newWithColor(color) button~set_title('Select a Color') label = .GtkLabel~new('Look at my color!') @@ -81,7 +81,7 @@ call gtk_main_quit return -::class MyButton subclass GtkColorButton_With_Color +::class MyButton subclass GtkColorButton ::method signal_color_set color = self~get_color() This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |