Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx:[2800] sandbox/david/4x
|
From: <wda...@us...> - 2008-07-30 01:31:56
|
Revision: 2800
http://oorexx.svn.sourceforge.net/oorexx/?rev=2800&view=rev
Author: wdashley
Date: 2008-07-30 01:32:03 +0000 (Wed, 30 Jul 2008)
Log Message:
-----------
ArtifactID: None
Comment: Fixed fetching and setting widget pointers.
Modified Paths:
--------------
sandbox/david/4x/grxaccelgroup.cpp
sandbox/david/4x/grxadjustment.cpp
sandbox/david/4x/grxassistant.cpp
sandbox/david/4x/grxbutton.cpp
sandbox/david/4x/grxcellrenderer.cpp
sandbox/david/4x/grxclipboard.cpp
sandbox/david/4x/grxcombobox.cpp
sandbox/david/4x/grxcontainer.cpp
sandbox/david/4x/grxdialog.cpp
sandbox/david/4x/grxentry.cpp
sandbox/david/4x/grxeventbox.cpp
sandbox/david/4x/grxexpander.cpp
sandbox/david/4x/grxfixed.cpp
sandbox/david/4x/grxglib.cpp
sandbox/david/4x/grxhandlebox.cpp
sandbox/david/4x/grximage.cpp
sandbox/david/4x/grxinterfaces.cpp
sandbox/david/4x/grxlabel.cpp
sandbox/david/4x/grxliststore.cpp
sandbox/david/4x/grxmenu.cpp
sandbox/david/4x/grxmenubar.cpp
sandbox/david/4x/grxmenuitem.cpp
sandbox/david/4x/grxmenushell.cpp
sandbox/david/4x/grxmenutoolbutton.cpp
sandbox/david/4x/grxnotebook.cpp
sandbox/david/4x/grxpaned.cpp
sandbox/david/4x/grxprogressbar.cpp
sandbox/david/4x/grxrange.cpp
sandbox/david/4x/grxscrolledwindow.cpp
sandbox/david/4x/grxstatusbar.cpp
sandbox/david/4x/grxtable.cpp
sandbox/david/4x/grxtextbuffer.cpp
sandbox/david/4x/grxtextview.cpp
sandbox/david/4x/grxtoolbar.cpp
sandbox/david/4x/grxtoolbutton.cpp
sandbox/david/4x/grxtoolitem.cpp
sandbox/david/4x/grxtreestore.cpp
sandbox/david/4x/grxtreeview.cpp
sandbox/david/4x/grxtreeviewcolumn.cpp
sandbox/david/4x/grxwidget.cpp
sandbox/david/4x/grxwindow.cpp
sandbox/david/4x/rexxgtk.cls
sandbox/david/4x/rexxgtk.cpp
sandbox/david/4x/rexxgtk.h
sandbox/david/4x/test2-1.rex
sandbox/david/4x/test2-2.rex
Modified: sandbox/david/4x/grxaccelgroup.cpp
===================================================================
--- sandbox/david/4x/grxaccelgroup.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxaccelgroup.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -125,7 +125,7 @@
accelgrp = gtk_accel_group_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(accelgrp));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(accelgrp));
g_object_set_data(G_OBJECT(accelgrp), "OORXOBJECT", self);
return 0;
@@ -140,12 +140,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxAccelGroupSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxadjustment.cpp
===================================================================
--- sandbox/david/4x/grxadjustment.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxadjustment.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -108,7 +108,7 @@
adj = (GtkAdjustment *)gtk_adjustment_new(value, upper, lower, step,
page, pagesz);
- context->SetObjectVariable("!POINTER", context->NewPointer(adj));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(adj));
g_object_set_data(G_OBJECT(adj), "OORXOBJECT", self);
return 0;
@@ -130,7 +130,7 @@
{
GtkAdjustment *adj = (GtkAdjustment *)context->PointerValue((RexxPointerObject)rxptr);
- context->SetObjectVariable("!POINTER", context->NewPointer(adj));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(adj));
g_object_set_data(G_OBJECT(adj), "OORXOBJECT", self);
return 0;
@@ -143,10 +143,11 @@
*
* @return Value
**/
-RexxMethod0(double, // Return type
- GrxAdjustmentGetValue) // Object_method name
+RexxMethod1(double, // Return type
+ GrxAdjustmentGetValue, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAdjustment *adj = (GtkAdjustment *)context->PointerValue(rxptr);
return gtk_adjustment_get_value(adj);
@@ -161,11 +162,12 @@
*
* @return Zero
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxAdjustmentSetValue, // Object_method name
- double, value) // New value
+ double, value, // New value
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAdjustment *adj = (GtkAdjustment *)context->PointerValue(rxptr);
gtk_adjustment_set_value(adj, value);
@@ -184,12 +186,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAdjustmentClampPage, // Object_method name
double, lower, // Lower limit
- double, upper) // Upper limit
+ double, upper, // Upper limit
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAdjustment *adj = (GtkAdjustment *)context->PointerValue(rxptr);
gtk_adjustment_clamp_page(adj, lower, upper);
@@ -206,12 +209,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxAdjustmentSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxassistant.cpp
===================================================================
--- sandbox/david/4x/grxassistant.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxassistant.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -104,7 +104,7 @@
GtkWidget *myWidget;
myWidget = gtk_assistant_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -119,11 +119,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxAssistantSetCurrentPage, // Object_method name
- int, pagenum) // Page number
+ int, pagenum, // Page number
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
gtk_assistant_set_current_page(myWidget, pagenum - 1);
@@ -138,10 +139,11 @@
*
* @return Page number
**/
-RexxMethod0(int, // Return type
- GrxAssistantGetCurrentPage) // Object_method name
+RexxMethod1(int, // Return type
+ GrxAssistantGetCurrentPage, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
return gtk_assistant_get_current_page(myWidget);
@@ -156,11 +158,12 @@
*
* @return Page
**/
-RexxMethod1(RexxObjectPtr, // Return type
+RexxMethod2(RexxObjectPtr, // Return type
GrxAssistantGetNthPage, // Object_method name
- int, pagenum) // Page number
+ int, pagenum, // Page number
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
GtkWidget *pageWidget;
@@ -177,11 +180,12 @@
*
* @return Page number
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxAssistantPrependPage, // Object_method name
- RexxObjectPtr, page) // Page
+ RexxObjectPtr, page, // Page
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -198,11 +202,12 @@
*
* @return Page number
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxAssistantAppendPage, // Object_method name
- RexxObjectPtr, page) // Page
+ RexxObjectPtr, page, // Page
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -221,12 +226,13 @@
*
* @return Page number
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAssistantInsertPage, // Object_method name
RexxObjectPtr, page, // Page
- int, pagenum) // Page number
+ int, pagenum, // Page number
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -245,12 +251,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAssistantSetPageType, // Object_method name
RexxObjectPtr, page, // Page
- int, type) // Page type
+ int, type, // Page type
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -271,12 +278,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAssistantSetPageTitle, // Object_method name
RexxObjectPtr, page, // Page
- CSTRING, title) // Page title
+ CSTRING, title, // Page title
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -297,12 +305,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAssistantSetPageComplete, // Object_method name
RexxObjectPtr, page, // Page
- logical_t, flag) // Page complete boolean
+ logical_t, flag, // Page complete boolean
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -323,12 +332,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxAssistantSetPageHeaderImage, // Object_method name
RexxObjectPtr, page, // Page
- CSTRING, filename) // Image file name
+ CSTRING, filename, // Image file name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -350,13 +360,14 @@
*
* @return Zero
**/
-RexxMethod3(int, // Return type
+RexxMethod4(int, // Return type
GrxAssistantSetPageSideImage, // Object_method name
RexxObjectPtr, page, // Page
CSTRING, filename, // Image file name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkAssistant *myWidget = (GtkAssistant *)context->PointerValue(rxptr);
RexxPointerObject pageptr = (RexxPointerObject)context->SendMessage0(page, "POINTER");
GtkWidget *pageWidget = (GtkWidget *)context->PointerValue(pageptr);
@@ -376,12 +387,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxAssistantSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxbutton.cpp
===================================================================
--- sandbox/david/4x/grxbutton.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxbutton.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -89,7 +89,7 @@
GtkWidget *myWidget;
myWidget = gtk_button_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -102,11 +102,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxButtonSetUseStock, // Object_method name
- logical_t, flag) // Label is stock item flag
+ logical_t, flag, // Label is stock item flag
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkButton *myWidget = (GtkButton *)context->PointerValue(rxptr);
gtk_button_set_use_stock(myWidget, flag);
@@ -123,11 +124,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxButtonSetLabel, // Object_method name
- CSTRING, text) // Button type
+ CSTRING, text, // Button type
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_button_set_label(GTK_BUTTON(myWidget), text);
@@ -142,10 +144,11 @@
*
* @return Label text.
**/
-RexxMethod0(RexxObjectPtr, // Return type
- GrxButtonGetLabel) // Object_method name
+RexxMethod1(RexxObjectPtr, // Return type
+ GrxButtonGetLabel, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
return context->NewStringFromAsciiz(gtk_button_get_label(GTK_BUTTON(myWidget)));
@@ -160,11 +163,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxButtonSetRelief, // Object_method name
- int, relief) // Button relief style
+ int, relief, // Button relief style
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_button_set_relief(GTK_BUTTON(myWidget), (GtkReliefStyle)relief);
@@ -181,11 +185,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxButtonUseUnderline, // Object_method name
- logical_t, flag) // Button underline flag
+ logical_t, flag, // Button underline flag
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_button_set_use_underline(GTK_BUTTON(myWidget), flag);
@@ -207,7 +212,7 @@
GtkWidget *myWidget;
myWidget = gtk_toggle_button_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -220,10 +225,11 @@
*
* @return Mode.
**/
-RexxMethod0(logical_t, // Return type
- GrxToggleButtonGetMode) // Object_method name
+RexxMethod1(logical_t, // Return type
+ GrxToggleButtonGetMode, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
return gtk_toggle_button_get_mode(GTK_TOGGLE_BUTTON(myWidget));
@@ -238,11 +244,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxToggleButtonSetMode, // Object_method name
- logical_t, mode) // Button mode flag
+ logical_t, mode, // Button mode flag
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_toggle_button_set_mode(GTK_TOGGLE_BUTTON(myWidget), mode);
@@ -257,10 +264,11 @@
*
* @return Boolean.
**/
-RexxMethod0(logical_t, // Return type
- GrxToggleButtonGetActive) // Object_method name
+RexxMethod1(logical_t, // Return type
+ GrxToggleButtonGetActive, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
return gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(myWidget));
@@ -275,11 +283,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxToggleButtonSetActive, // Object_method name
- logical_t, state) // Button state flag
+ logical_t, state, // Button state flag
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(myWidget), state);
@@ -294,10 +303,11 @@
*
* @return Boolean.
**/
-RexxMethod0(logical_t, // Return type
- GrxToggleButtonGetInconsistent) // Object_method name
+RexxMethod1(logical_t, // Return type
+ GrxToggleButtonGetInconsistent, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
return gtk_toggle_button_get_inconsistent(GTK_TOGGLE_BUTTON(myWidget));
@@ -312,11 +322,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxToggleButtonSetInconsistent, // Object_method name
- logical_t, state) // Button state flag
+ logical_t, state, // Button state flag
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_toggle_button_set_inconsistent(GTK_TOGGLE_BUTTON(myWidget), state);
@@ -346,7 +357,7 @@
else {
myWidget = gtk_check_button_new();
}
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -377,7 +388,7 @@
if (text != NULL) {
gtk_button_set_label(GTK_BUTTON(myWidget), text);
}
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -402,7 +413,7 @@
GtkWidget *myWidget;
myWidget = gtk_radio_button_new_from_widget(GTK_RADIO_BUTTON(srcWidget));
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -415,10 +426,11 @@
*
* @return GList group.
**/
-RexxMethod0(RexxObjectPtr, // Return type
- GrxRadioButtonGetGroup) // Object_method name
+RexxMethod1(RexxObjectPtr, // Return type
+ GrxRadioButtonGetGroup, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GSList *myWidget = (GSList *)context->PointerValue(rxptr);
GSList *head = NULL;
@@ -435,11 +447,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxRadioButtonSetGroup, // Object_method name
- RexxObjectPtr, rxlistptr) // GList pointer
+ RexxObjectPtr, rxlistptr, // GList pointer
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
RexxPointerObject listptr = (RexxPointerObject)context->SendMessage0(rxlistptr, "POINTER");
GSList *head = (GSList *)context->PointerValue(listptr);
@@ -473,7 +486,7 @@
gdk_color_parse(colorstr, &color);
myWidget = gtk_color_button_new_with_color(&color);
}
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -488,11 +501,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxColorButtonSetTitle, // Object_method name
- CSTRING, title) // Color string
+ CSTRING, title, // Color string
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_color_button_set_title(GTK_COLOR_BUTTON(myWidget), title);
@@ -509,10 +523,11 @@
*
* @return Color string
**/
-RexxMethod0(RexxObjectPtr, // Return type
- GrxColorButtonGetColor) // Object_method name
+RexxMethod1(RexxObjectPtr, // Return type
+ GrxColorButtonGetColor, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
GdkColor color;
char colorstr[64];
@@ -533,11 +548,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxColorButtonSetColor, // Object_method name
- CSTRING, colorstr) // Color string
+ CSTRING, colorstr, // Color string
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
GdkColor color;
@@ -567,7 +583,7 @@
GtkWidget *myWidget;
myWidget = gtk_file_chooser_button_new(title, (GtkFileChooserAction)action);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -587,7 +603,7 @@
GtkWidget *myWidget;
myWidget = gtk_font_button_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -602,11 +618,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxFontButtonSetTitle, // Object_method name
- CSTRING, title) // Title string
+ CSTRING, title, // Title string
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_font_button_set_title(GTK_FONT_BUTTON(myWidget), title);
@@ -621,10 +638,11 @@
*
* @return Font string
**/
-RexxMethod0(CSTRING, // Return type
- GrxFontButtonGetFontName) // Object_method name
+RexxMethod1(CSTRING, // Return type
+ GrxFontButtonGetFontName, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
const gchar * font;
@@ -641,12 +659,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -710,12 +729,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxToggleButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -739,12 +759,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxRadioButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -768,12 +789,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxColorButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -797,12 +819,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxFileChooserButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -826,12 +849,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxFontButtonSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxcellrenderer.cpp
===================================================================
--- sandbox/david/4x/grxcellrenderer.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxcellrenderer.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -161,12 +161,13 @@
*
* @return Zero
**/
-RexxMethod2(int, // Return type
+RexxMethod3(int, // Return type
GrxCellRendererSetFixedSize, // Object_method name
int, width, // Width
- int, height) // Height
+ int, height, // Height
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkCellRenderer *myWidget = (GtkCellRenderer *)context->PointerValue(rxptr);
gtk_cell_renderer_set_fixed_size(myWidget, width, height);
@@ -183,12 +184,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxCellRendererSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -225,7 +227,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_text_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -240,12 +242,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxCellRendererTextSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -274,7 +277,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_pixbuf_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -294,7 +297,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_progress_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -314,7 +317,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_toggle_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -329,11 +332,12 @@
*
* @return Zero
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxCellRendererToggleSetRadio, // Object_method name
- logical_t, flag) // Radio boolean
+ logical_t, flag, // Radio boolean
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkCellRendererToggle *myWidget = (GtkCellRendererToggle *)context->PointerValue(rxptr);
gtk_cell_renderer_toggle_set_radio(myWidget, flag);
@@ -348,10 +352,11 @@
*
* @return Boolean flag
**/
-RexxMethod0(int, // Return type
- GrxCellRendererToggleGetRadio) // Object_method name
+RexxMethod1(int, // Return type
+ GrxCellRendererToggleGetRadio, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkCellRendererToggle *myWidget = (GtkCellRendererToggle *)context->PointerValue(rxptr);
return gtk_cell_renderer_toggle_get_radio(myWidget);
@@ -366,11 +371,12 @@
*
* @return Zero
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxCellRendererToggleSetActive, // Object_method name
- logical_t, flag) // Radio boolean
+ logical_t, flag, // Radio boolean
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkCellRendererToggle *myWidget = (GtkCellRendererToggle *)context->PointerValue(rxptr);
gtk_cell_renderer_toggle_set_active(myWidget, flag);
@@ -385,10 +391,11 @@
*
* @return Boolean flag
**/
-RexxMethod0(int, // Return type
- GrxCellRendererToggleGetActive) // Object_method name
+RexxMethod1(int, // Return type
+ GrxCellRendererToggleGetActive, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkCellRendererToggle *myWidget = (GtkCellRendererToggle *)context->PointerValue(rxptr);
return gtk_cell_renderer_toggle_get_active(myWidget);
@@ -403,12 +410,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxCellRendererToggleSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -437,7 +445,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_accel_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -452,12 +460,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxCellRendererAccelSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -494,7 +503,7 @@
GtkCellRenderer *myRenderer;
myRenderer = gtk_cell_renderer_combo_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myRenderer));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myRenderer));
g_object_set_data(G_OBJECT(myRenderer), "OORXOBJECT", self);
return 0;
@@ -509,12 +518,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxCellRendererComboSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxclipboard.cpp
===================================================================
--- sandbox/david/4x/grxclipboard.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxclipboard.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -76,7 +76,7 @@
GtkClipboard *myWidget;
myWidget = gtk_clipboard_get(GDK_SELECTION_PRIMARY);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
Modified: sandbox/david/4x/grxcombobox.cpp
===================================================================
--- sandbox/david/4x/grxcombobox.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxcombobox.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -105,7 +105,7 @@
GtkWidget *myWidget;
myWidget = gtk_combo_box_new();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -125,7 +125,7 @@
GtkWidget *myWidget;
myWidget = gtk_combo_box_new_text();
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -140,11 +140,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxComboBoxAppendText, // Object_method name
- CSTRING, text) // Text to append
+ CSTRING, text, // Text to append
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkComboBox *myWidget = (GtkComboBox *)context->PointerValue(rxptr);
gtk_combo_box_append_text(myWidget, text);
@@ -159,10 +160,11 @@
*
* @return Text.
**/
-RexxMethod0(CSTRING, // Return type
- GrxComboBoxGetActiveText) // Object_method name
+RexxMethod1(CSTRING, // Return type
+ GrxComboBoxGetActiveText, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkComboBox *myWidget = (GtkComboBox *)context->PointerValue(rxptr);
return gtk_combo_box_get_active_text(myWidget);
@@ -177,11 +179,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxComboBoxSetActive, // Object_method name
- int, active) // Entry number
+ int, active, // Entry number
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkComboBox *myWidget = (GtkComboBox *)context->PointerValue(rxptr);
gtk_combo_box_set_active(myWidget, active);
@@ -196,10 +199,11 @@
*
* @return Entry number
**/
-RexxMethod0(int, // Return type
- GrxComboBoxGetActive) // Object_method name
+RexxMethod1(int, // Return type
+ GrxComboBoxGetActive, // Object_method name
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkComboBox *myWidget = (GtkComboBox *)context->PointerValue(rxptr);
return gtk_combo_box_get_active(myWidget);
@@ -214,12 +218,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxComboBoxSignalConnect, // Object_method name
CSTRING, name, // Image file name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxcontainer.cpp
===================================================================
--- sandbox/david/4x/grxcontainer.cpp 2008-07-30 00:18:19 UTC (rev 2799)
+++ sandbox/david/4x/grxcontainer.cpp 2008-07-30 01:32:03 UTC (rev 2800)
@@ -99,11 +99,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxContainerAdd, // Object_method name
- RexxObjectPtr, rxaddptr) // Object to add
+ RexxObjectPtr, rxaddptr, // Object to add
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
RexxPointerObject addptr = (RexxPointerObject)context->SendMessage0(rxaddptr, "POINTER");
GtkWidget *addWidget = (GtkWidget *)context->PointerValue(addptr);
@@ -122,11 +123,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxContainerRemove, // Object_method name
- RexxObjectPtr, rxremptr) // Object to add
+ RexxObjectPtr, rxremptr, // Object to add
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
RexxPointerObject remptr = (RexxPointerObject)context->SendMessage0(rxremptr, "POINTER");
GtkWidget *remWidget = (GtkWidget *)context->PointerValue(remptr);
@@ -145,11 +147,12 @@
*
* @return Zero.
**/
-RexxMethod1(int, // Return type
+RexxMethod2(int, // Return type
GrxContainerSetBorderWidth,// Object_method name
- int, width) // Border widthd
+ int, width, // Border widthd
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
gtk_container_set_border_width(GTK_CONTAINER(myWidget), width);
@@ -172,14 +175,15 @@
*
* @return Zero.
**/
-RexxMethod4(int, // Return type
+RexxMethod5(int, // Return type
GrxBoxPackStart, // Object_method name
RexxObjectPtr, rxpackptr, // Widget to pack
logical_t, expand, // Expand boolean
logical_t, fill, // Fill boolean
- int, padding) // Padding amount
+ int, padding, // Padding amount
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
RexxPointerObject packptr = (RexxPointerObject)context->SendMessage0(rxpackptr, "POINTER");
GtkWidget *packWidget = (GtkWidget *)context->PointerValue(packptr);
@@ -204,14 +208,15 @@
*
* @return Zero.
**/
-RexxMethod4(int, // Return type
+RexxMethod5(int, // Return type
GrxBoxPackEnd, // Object_method name
RexxObjectPtr, rxpackptr, // Widget to pack
logical_t, expand, // Expand boolean
logical_t, fill, // Fill boolean
- int, padding) // Padding amount
+ int, padding, // Padding amount
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
RexxPointerObject packptr = (RexxPointerObject)context->SendMessage0(rxpackptr, "POINTER");
GtkWidget *packWidget = (GtkWidget *)context->PointerValue(packptr);
@@ -242,7 +247,7 @@
myWidget = gtk_vbox_new(homogeneous, spacing);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -264,7 +269,7 @@
{
GtkVBox *vbox = (GtkVBox *)context->PointerValue((RexxPointerObject)rxptr);
- context->SetObjectVariable("!POINTER", context->NewPointer(vbox));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(vbox));
g_object_set_data(G_OBJECT(vbox), "OORXOBJECT", self);
return 0;
@@ -286,7 +291,7 @@
{
RexxPointerObject vboxptr = (RexxPointerObject)context->SendMessage0(ptr, "POINTER");
- context->SetObjectVariable("!POINTER", vboxptr);
+ context->SendMessage1(self, "POINTER=", context->NewPointer(vboxptr));
g_object_set_data(G_OBJECT(ptr), "OORXOBJECT", self);
return 0;
@@ -312,7 +317,7 @@
GtkWidget *myWidget;
myWidget = gtk_hbox_new(homogeneous, spacing);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -334,7 +339,7 @@
{
GtkVBox *hbox = (GtkVBox *)context->PointerValue((RexxPointerObject)rxptr);
- context->SetObjectVariable("!POINTER", context->NewPointer(hbox));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(hbox));
g_object_set_data(G_OBJECT(hbox), "OORXOBJECT", self);
return 0;
@@ -366,7 +371,7 @@
GtkWidget *myWidget;
myWidget = gtk_alignment_new(xalign, yalign, xscale, yscale);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -381,12 +386,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxContainerSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
@@ -450,7 +456,7 @@
GtkWidget *myWidget;
myWidget = gtk_viewport_new(hadj, vadj);
- context->SetObjectVariable("!POINTER", context->NewPointer(myWidget));
+ context->SendMessage1(self, "POINTER=", context->NewPointer(myWidget));
g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self);
return 0;
@@ -465,12 +471,13 @@
*
* @return Zero
**/
-RexxMethod2(RexxObjectPtr, // Return type
+RexxMethod3(RexxObjectPtr, // Return type
GrxViewportSignalConnect, // Object_method name
CSTRING, name, // Signal name
- ARGLIST, args) // The whole argument list as an array
+ ARGLIST, args, // The whole argument list as an array
+ OSELF, self) // Self
{
- RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER");
+ RexxPointerObject rxptr = (RexxPointerObject)context->SendMessage0(self, "POINTER");
GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr);
cbcb *cblock;
Modified: sandbox/david/4x/grxdialog.cpp
==========================...
[truncated message content] |