From: <wda...@us...> - 2008-08-01 13:11:35
|
Revision: 2815 http://oorexx.svn.sourceforge.net/oorexx/?rev=2815&view=rev Author: wdashley Date: 2008-08-01 13:11:41 +0000 (Fri, 01 Aug 2008) Log Message: ----------- ArtifactID: None Comment: Interium update for some fixes. Modified Paths: -------------- sandbox/david/4x/grxwidget.cpp sandbox/david/4x/rexxgtk.cls sandbox/david/4x/rexxgtk.cpp sandbox/david/4x/rexxgtk.h sandbox/david/4x/test2-3.rex sandbox/david/4x/test3-1.rex sandbox/david/4x/test3-2.rex sandbox/david/4x/test3-3.rex sandbox/david/4x/test3-4.rex sandbox/david/4x/test3-5.rex sandbox/david/4x/test3-6.rex sandbox/david/4x/test3-7.rex sandbox/david/4x/test3-8.rex sandbox/david/4x/test3-9.rex sandbox/david/4x/test4-1.rex sandbox/david/4x/test4-2.rex sandbox/david/4x/test4-3.rex sandbox/david/4x/test4-4.rex sandbox/david/4x/test4-5.rex sandbox/david/4x/test4-6.rex sandbox/david/4x/test4-7.rex sandbox/david/4x/test4-9.rex sandbox/david/4x/test5-1.rex sandbox/david/4x/test5-10.rex sandbox/david/4x/test5-11.rex sandbox/david/4x/test5-2.rex sandbox/david/4x/test5-3.rex sandbox/david/4x/test5-4.rex sandbox/david/4x/test5-5.rex sandbox/david/4x/test5-6.rex sandbox/david/4x/test5-7.rex sandbox/david/4x/test5-8.rex sandbox/david/4x/test5-9.rex sandbox/david/4x/test7-1.rex sandbox/david/4x/test7-2.rex sandbox/david/4x/test7-3.rex sandbox/david/4x/test7-4.rex sandbox/david/4x/test7-5.rex sandbox/david/4x/test7-6.rex sandbox/david/4x/test7-7.rex sandbox/david/4x/test7-8.rex sandbox/david/4x/test7-9.rex sandbox/david/4x/test8-1.rex sandbox/david/4x/test8-2.rex sandbox/david/4x/test9-1.rex sandbox/david/4x/test9-3.rex sandbox/david/4x/test9-4.rex sandbox/david/4x/test9-5.rex sandbox/david/4x/test9-6.rex Modified: sandbox/david/4x/grxwidget.cpp =================================================================== --- sandbox/david/4x/grxwidget.cpp 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/grxwidget.cpp 2008-08-01 13:11:41 UTC (rev 2815) @@ -609,7 +609,7 @@ if (parent == NULL) { return context->Nil(); } - parentptr = (RexxObjectPtr)g_object_get_data(G_OBJECT(myWidget), "OORXOBJECT"); + parentptr = (RexxObjectPtr)g_object_get_data(G_OBJECT(parent), "OORXOBJECT"); if (parentptr == NULL) { return context->Nil(); } @@ -637,7 +637,7 @@ if (parentWidget == NULL) { return context->Nil(); } - parentptr = (RexxObjectPtr)g_object_get_data(G_OBJECT(myWidget), "OORXOBJECT"); + parentptr = (RexxObjectPtr)g_object_get_data(G_OBJECT(parentWidget), "OORXOBJECT"); if (parentptr == NULL) { return context->Nil(); } @@ -1088,6 +1088,44 @@ } /** + * Method: realize + * + * Realize the widget. + * + * @return Zero. + **/ +RexxMethod1(int, // Return type + GrxWidgetRealize, // Object_method name + OSELF, self) // Self +{ + RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_widget_realize(myWidget); + + return 0; +} + +/** + * Method: unrealize + * + * Unrealize the widget. + * + * @return Zero. + **/ +RexxMethod1(int, // Return type + GrxWidgetUnrealize, // Object_method name + OSELF, self) // Self +{ + RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_widget_unrealize(myWidget); + + return 0; +} + +/** * Method: signal_connect * * Connect a signal to an ooRexx method. Modified: sandbox/david/4x/rexxgtk.cls =================================================================== --- sandbox/david/4x/rexxgtk.cls 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/rexxgtk.cls 2008-08-01 13:11:41 UTC (rev 2815) @@ -801,6 +801,8 @@ ::METHOD set_accel_path EXTERNAL "LIBRARY rexxgtk GrxWidgetSetAccelPath" ::METHOD set_events EXTERNAL "LIBRARY rexxgtk GrxWidgetSetEvents" ::METHOD 'events=' EXTERNAL "LIBRARY rexxgtk GrxWidgetSetEvents" +::METHOD realize EXTERNAL "LIBRARY rexxgtk GrxWidgetRealize" +::METHOD unrealize EXTERNAL "LIBRARY rexxgtk GrxWidgetUnrealize" ::METHOD signal_connect EXTERNAL "LIBRARY rexxgtk GrxWidgetSignalConnect" -- The following are the methods that can be connected to signals. By default @@ -1203,7 +1205,7 @@ use arg label = '' button = self~new() button~label = label -button~set_use_stock = .true +button~use_stock = .true return button ::METHOD init EXTERNAL "LIBRARY rexxgtk GrxButtonNew" @@ -1212,9 +1214,11 @@ ::METHOD 'label=' EXTERNAL "LIBRARY rexxgtk GrxButtonSetLabel" ::METHOD set_label EXTERNAL "LIBRARY rexxgtk GrxButtonSetLabel" ::METHOD set_use_underline EXTERNAL "LIBRARY rexxgtk GrxButtonUseUnderline" +::METHOD 'use_underline=' EXTERNAL "LIBRARY rexxgtk GrxButtonUseUnderline" ::METHOD 'relief=' EXTERNAL "LIBRARY rexxgtk GrxButtonSetRelief" ::METHOD set_relief EXTERNAL "LIBRARY rexxgtk GrxButtonSetRelief" ::METHOD set_use_stock EXTERNAL "LIBRARY rexxgtk GrxButtonSetUseStock" +::METHOD 'use_stock=' EXTERNAL "LIBRARY rexxgtk GrxButtonSetUseStock" ::METHOD signal_connect EXTERNAL "LIBRARY rexxgtk GrxButtonSignalConnect" -- The following are the methods that can be connected to signals. By default Modified: sandbox/david/4x/rexxgtk.cpp =================================================================== --- sandbox/david/4x/rexxgtk.cpp 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/rexxgtk.cpp 2008-08-01 13:11:41 UTC (rev 2815) @@ -370,6 +370,8 @@ REXX_METHOD(GrxWidgetAddAccelerator, GrxWidgetAddAccelerator), REXX_METHOD(GrxWidgetRemoveAccelerator, GrxWidgetRemoveAccelerator), REXX_METHOD(GrxWidgetSetAccelPath, GrxWidgetSetAccelPath), + REXX_METHOD(GrxWidgetRealize, GrxWidgetRealize), + REXX_METHOD(GrxWidgetUnrealize, GrxWidgetUnrealize), REXX_METHOD(GrxWidgetSignalConnect, GrxWidgetSignalConnect), REXX_METHOD(GrxWindowNew, GrxWindowNew), REXX_METHOD(GrxWindowGetTitle, GrxWindowGetTitle), Modified: sandbox/david/4x/rexxgtk.h =================================================================== --- sandbox/david/4x/rexxgtk.h 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/rexxgtk.h 2008-08-01 13:11:41 UTC (rev 2815) @@ -179,6 +179,8 @@ REXX_METHOD_PROTOTYPE(GrxWidgetAddAccelerator) REXX_METHOD_PROTOTYPE(GrxWidgetRemoveAccelerator) REXX_METHOD_PROTOTYPE(GrxWidgetSetAccelPath) +REXX_METHOD_PROTOTYPE(GrxWidgetRealize) +REXX_METHOD_PROTOTYPE(GrxWidgetUnrealize) REXX_METHOD_PROTOTYPE(GrxWidgetSignalConnect) REXX_METHOD_PROTOTYPE(GrxWindowNew) REXX_METHOD_PROTOTYPE(GrxWindowGetTitle) Modified: sandbox/david/4x/test2-3.rex =================================================================== --- sandbox/david/4x/test2-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test2-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~title = 'Hello World' window~set_border_width(25) Modified: sandbox/david/4x/test3-1.rex =================================================================== --- sandbox/david/4x/test3-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init names = .array~of('Andrew', 'Joe', 'Samatha', 'Jonanthan') window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) @@ -52,7 +53,7 @@ window~set_size_request(200, -1) window~signal_connect("destroy") -vbox = .GtkVBox~new() +vbox = .GtkVBox~new(.true, 5) do i = 1 to names~items() button = .myButton~newWithMnemonic(names[i]) Modified: sandbox/david/4x/test3-2.rex =================================================================== --- sandbox/david/4x/test3-2.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-2.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init names = .array~of('Andrew', 'Joe', 'Samatha', 'Jonanthan') -- create a new top level window with a title @@ -54,7 +55,7 @@ window~set_border_width(10) window~set_size_request(200, -1) -vbox = .GtkVBox~new() +vbox = .GtkVBox~new(.true, 5) do i = 1 to names~items() button = .MyButton~newWithMnemonic(names[i]) Modified: sandbox/david/4x/test3-3.rex =================================================================== --- sandbox/david/4x/test3-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init names = .array~of('Andrew', 'Joe', 'Samatha', 'Jonanthan') window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) Modified: sandbox/david/4x/test3-4.rex =================================================================== --- sandbox/david/4x/test3-4.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-4.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Tables') window~signal_connect("destroy") Modified: sandbox/david/4x/test3-5.rex =================================================================== --- sandbox/david/4x/test3-5.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-5.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,14 +44,15 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Fixed') window~signal_connect("destroy") window~set_border_width(10) fixed = .GtkFixed~new() -button1 = .MyButton~new('Pixed by Pixel ...') -button2 = .MyButton~new('you choose by fate.') +button1 = .MyButton~newWithLabel('Pixed by Pixel ...') +button2 = .MyButton~newWithLabel('you choose by fate.') button1~signal_connect("clicked") button2~signal_connect("clicked") @@ -75,10 +76,10 @@ call gtk_main_quit return -::class MyButton subclass GtkButton_With_Label +::class MyButton subclass GtkButton ::method signal_clicked -widget = upper(GrxWidgetGetTopLevel(self)) +widget = self~get_toplevel() widget~destroy() return Modified: sandbox/david/4x/test3-6.rex =================================================================== --- sandbox/david/4x/test3-6.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-6.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,13 +44,14 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Expander') window~signal_connect("destroy") window~set_border_width(10) window~set_size_request(200, 100) -expander = .GtkExpander_With_Mnemonic~new('Click _Me For More!') +expander = .GtkExpander~newWithMnemonic('Click _Me For More!') label = .GtkLabel~new('Hide me or show me,' || '0A'x || 'that is your choice') expander~add(label) Modified: sandbox/david/4x/test3-7.rex =================================================================== --- sandbox/david/4x/test3-7.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-7.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Handle Box') window~signal_connect("destroy") @@ -54,7 +55,7 @@ label = .GtkLabel~new('Detach Me') handle~set_shadow_type(.gtk~GTK_SHADOW_IN) -handle~set_handle_position(.gtk~GTK_POS_LEFT) +handle~set_position(.gtk~GTK_POS_LEFT) handle~set_snap_edge(.gtk~GTK_POS_TOP) handle~add(label) Modified: sandbox/david/4x/test3-8.rex =================================================================== --- sandbox/david/4x/test3-8.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-8.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -48,6 +48,7 @@ -- book is correct. Label controls do not respond to the "clicked" signal so -- we need buttons instead. +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Notebook') window~signal_connect("destroy") @@ -57,8 +58,8 @@ notebook = .GtkNotebook~new() label1 = .GtkLabel~new('Page One') label2 = .GtkLabel~new('Page Two') -child1 = .MyButton~new('Go to page 2 to find the answer.') -child2 = .MyButton~new('Go to page 1 to find the answer.') +child1 = .MyButton~newWithLabel('Go to page 2 to find the answer.') +child2 = .MyButton~newWithLabel('Go to page 1 to find the answer.') child1~signal_connect('clicked') child2~signal_connect('clicked') @@ -86,7 +87,7 @@ call gtk_main_quit return -::class MyButton subclass GtkButton_With_Label +::class MyButton subclass GtkButton ::method signal_clicked notebook = self~user_data -- get the notebook widget Modified: sandbox/david/4x/test3-9.rex =================================================================== --- sandbox/david/4x/test3-9.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test3-9.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Event Box') window~signal_connect("destroy") @@ -60,7 +61,7 @@ eventbox~add(label) window~add(eventbox) -eventbox~set_events(gtk~GDK_BUTTON_PRESS_MASK) +eventbox~set_events(.gtk~GDK_BUTTON_PRESS_MASK) eventbox~realize() -- FIX THIS! Need to set the cursor to a hand. window~show_all() Modified: sandbox/david/4x/test4-1.rex =================================================================== --- sandbox/david/4x/test4-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Stock Buttons') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-2.rex =================================================================== --- sandbox/david/4x/test4-2.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-2.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Toggle Buttons') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-3.rex =================================================================== --- sandbox/david/4x/test4-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Check Buttons') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-4.rex =================================================================== --- sandbox/david/4x/test4-4.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-4.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Radio Buttons') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-5.rex =================================================================== --- sandbox/david/4x/test4-5.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-5.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtl~GTK_WINDOW_TOPLEVEL) window~set_title('Password') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-6.rex =================================================================== --- sandbox/david/4x/test4-6.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-6.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('SpinButtons') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-7.rex =================================================================== --- sandbox/david/4x/test4-7.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-7.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Scales') window~signal_connect("destroy") Modified: sandbox/david/4x/test4-9.rex =================================================================== --- sandbox/david/4x/test4-9.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test4-9.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Color Button') window~signal_connect("destroy") Modified: sandbox/david/4x/test5-1.rex =================================================================== --- sandbox/david/4x/test5-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Dialogs') window~signal_connect("destroy") Modified: sandbox/david/4x/test5-10.rex =================================================================== --- sandbox/david/4x/test5-10.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-10.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init dialog = .myFontDialog~new('Choose a Font') dialog~set_font_name('Sans Bold Italic 12') dialog~set_preview_text('Foundations of GTK+ Development') Modified: sandbox/david/4x/test5-11.rex =================================================================== --- sandbox/david/4x/test5-11.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-11.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init page = .Array~new() page[1] = .PageInfo~new(.nil, -1, 'Introduction', .gtk~GTK_ASSISTANT_PAGE_INTRO, .true) page[2] = .PageInfo~new(.nil, -1, '', .gtk~GTK_ASSISTANT_PAGE_CONTENT, .false) Modified: sandbox/david/4x/test5-2.rex =================================================================== --- sandbox/david/4x/test5-2.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-2.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Dialogs') window~signal_connect("destroy") Modified: sandbox/david/4x/test5-3.rex =================================================================== --- sandbox/david/4x/test5-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init dialog = .GtkDialog_With_Buttons~new('Edit User Information', .nil,, .gtk~GTK_DIALOG_MODAL,, .gtk~GTK_STOCK_OK, .gtk~GTK_RESPONSE_OK) Modified: sandbox/david/4x/test5-4.rex =================================================================== --- sandbox/david/4x/test5-4.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-4.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Message Dialogs') window~signal_connect("destroy") Modified: sandbox/david/4x/test5-5.rex =================================================================== --- sandbox/david/4x/test5-5.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-5.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init dialog = .GtkAboutDialog~new() logo = './oorexx.jpg' Modified: sandbox/david/4x/test5-6.rex =================================================================== --- sandbox/david/4x/test5-6.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-6.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Save a File') window~signal_connect("destroy") Modified: sandbox/david/4x/test5-7.rex =================================================================== --- sandbox/david/4x/test5-7.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-7.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init dialog = .GtkFileChooserDialog~new('Create a Folder ...', .nil,, .gtk~GTK_FILE_CHOOSER_ACTION_CREATE_FOLDER,, .gtk~GTK_STOCK_CANCEL, .gtk~GTK_RESPONSE_CANCEL) Modified: sandbox/david/4x/test5-8.rex =================================================================== --- sandbox/david/4x/test5-8.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-8.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init dialog = .GtkFileChooserDialog~new('Open File(s) ...', .nil,, .gtk~GTK_FILE_CHOOSER_ACTION_OPEN,, .gtk~GTK_STOCK_CANCEL, .gtk~GTK_RESPONSE_CANCEL) Modified: sandbox/david/4x/test5-9.rex =================================================================== --- sandbox/david/4x/test5-9.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test5-9.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -48,6 +48,7 @@ -- never modified in this program. So when you switch between the modal -- and the non-modal dialogs, the previuos color is lost. +call gtk_init if arg() > 0 then color = arg(1) else color = '#333344445555FFFF' alpha = 65535 Modified: sandbox/david/4x/test7-1.rex =================================================================== --- sandbox/david/4x/test7-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init buttons1 = .array~new(10, 10) buttons2 = .array~new(10, 10) Modified: sandbox/david/4x/test7-2.rex =================================================================== --- sandbox/david/4x/test7-2.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-2.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Text Views') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-3.rex =================================================================== --- sandbox/david/4x/test7-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Text View Properties') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-4.rex =================================================================== --- sandbox/david/4x/test7-4.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-4.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -46,6 +46,7 @@ -- Note: The RexxGTK interface hides the text iterators +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Text Text Iterators') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-5.rex =================================================================== --- sandbox/david/4x/test7-5.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-5.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Cut, Copy & Paste') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-6.rex =================================================================== --- sandbox/david/4x/test7-6.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-6.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -46,6 +46,7 @@ -- Text iters are hidden in this example. +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Searching Buffers') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-7.rex =================================================================== --- sandbox/david/4x/test7-7.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-7.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init text_scales = .array~new() text_scales[1] = .text_to_double~new() text_scales[1]~str = 'Quarter Sized' Modified: sandbox/david/4x/test7-8.rex =================================================================== --- sandbox/david/4x/test7-8.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-8.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Pixbufs') window~signal_connect('destroy') Modified: sandbox/david/4x/test7-9.rex =================================================================== --- sandbox/david/4x/test7-9.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test7-9.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Child Widgets') window~signal_connect('destroy') Modified: sandbox/david/4x/test8-1.rex =================================================================== --- sandbox/david/4x/test8-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test8-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init BUY_IT = 0 QUANTITY = 1 PRODUCT = 2 Modified: sandbox/david/4x/test8-2.rex =================================================================== --- sandbox/david/4x/test8-2.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test8-2.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init BUY_IT = 0 QUANTITY = 1 PRODUCT = 2 Modified: sandbox/david/4x/test9-1.rex =================================================================== --- sandbox/david/4x/test9-1.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test9-1.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Popup Menus') window~signal_connect('destroy') Modified: sandbox/david/4x/test9-3.rex =================================================================== --- sandbox/david/4x/test9-3.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test9-3.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Popup Menus') window~signal_connect('destroy') Modified: sandbox/david/4x/test9-4.rex =================================================================== --- sandbox/david/4x/test9-4.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test9-4.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Popup Menus') window~signal_connect('destroy') Modified: sandbox/david/4x/test9-5.rex =================================================================== --- sandbox/david/4x/test9-5.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test9-5.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Popup Menus') window~signal_connect('destroy') Modified: sandbox/david/4x/test9-6.rex =================================================================== --- sandbox/david/4x/test9-6.rex 2008-08-01 10:20:54 UTC (rev 2814) +++ sandbox/david/4x/test9-6.rex 2008-08-01 13:11:41 UTC (rev 2815) @@ -44,6 +44,7 @@ -- Foundations of GTK+ Development -- by Andrew Krause +call gtk_init window = .myMainWindow~new(.gtk~GTK_WINDOW_TOPLEVEL) window~set_title('Toolbars') window~signal_connect('destroy') This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |