From: <wda...@us...> - 2008-04-15 18:55:08
|
Revision: 2432 http://oorexx.svn.sourceforge.net/oorexx/?rev=2432&view=rev Author: wdashley Date: 2008-04-15 11:55:06 -0700 (Tue, 15 Apr 2008) Log Message: ----------- ArtifactID: None Comment: Added new methods to rexxgtk.cpp. Modified Paths: -------------- sandbox/david/4x/Makefile sandbox/david/4x/grxbutton.cpp sandbox/david/4x/grxcombobox.cpp sandbox/david/4x/grxcontainer.cpp sandbox/david/4x/grxentry.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 Added Paths: ----------- sandbox/david/4x/grxdialog.cpp Modified: sandbox/david/4x/Makefile =================================================================== --- sandbox/david/4x/Makefile 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/Makefile 2008-04-15 18:55:06 UTC (rev 2432) @@ -54,7 +54,8 @@ grxpaned.o \ grxtable.o \ grxcombobox.o \ - grxentry.o + grxentry.o \ + grxdialog.o # grxqueue.o \ # grxlabel.o \ # grxfixed.o \ @@ -66,7 +67,6 @@ # grxinterfaces.o \ # grxfilefilter.o \ # grximage.o \ -# grxdialog.o \ # grxglib.o \ # grxassistant.o \ # grxprogressbar.o \ @@ -140,8 +140,8 @@ grximage.o: grximage.c rexxgtk.h gcc -c $(GRXCFLAGS) grximage.c -grxdialog.o: grxdialog.c rexxgtk.h - gcc -c $(GRXCFLAGS) grxdialog.c +grxdialog.o: grxdialog.cpp rexxgtk.h + gcc -c $(GRXCFLAGS) grxdialog.cpp grxglib.o: grxglib.c rexxgtk.h gcc -c $(GRXCFLAGS) grxglib.c Modified: sandbox/david/4x/grxbutton.cpp =================================================================== --- sandbox/david/4x/grxbutton.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxbutton.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -693,12 +693,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /** @@ -726,12 +722,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /** @@ -759,12 +751,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /** @@ -792,12 +780,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /** @@ -825,12 +809,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /** @@ -858,11 +838,7 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } Modified: sandbox/david/4x/grxcombobox.cpp =================================================================== --- sandbox/david/4x/grxcombobox.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxcombobox.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -260,11 +260,7 @@ return context->SendMessage0(parent, name); } } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } Modified: sandbox/david/4x/grxcontainer.cpp =================================================================== --- sandbox/david/4x/grxcontainer.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxcontainer.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -251,6 +251,28 @@ /** * Method: init * + * Create a new VBox from a pointer. + * + * @param ptr The VBoc pointer + * + * @return Zero. + */ +RexxMethod2(int, // Return type + GrxVBoxNewFromPointer, // Object_method name + OSELF, self, // Self + RexxObjectPtr, ptr) // The pointer +{ + RexxPointerObject vboxptr = (RexxPointerObject)context->SendMessage0(ptr, "POINTER"); + + context->SetObjectVariable("!POINTER", vboxptr); + g_object_set_data(G_OBJECT(ptr), "OORXOBJECT", self); + + return 0; +} + +/** + * Method: init + * * Create a new HBox. * * @param homog The homogeneous boolean @@ -355,12 +377,8 @@ G_CALLBACK(signal_func_1), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } @@ -421,10 +439,6 @@ G_CALLBACK(signal_func_1), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } Copied: sandbox/david/4x/grxdialog.cpp (from rev 2401, sandbox/david/grxdialog.c) =================================================================== --- sandbox/david/4x/grxdialog.cpp (rev 0) +++ sandbox/david/4x/grxdialog.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -0,0 +1,1030 @@ +/*----------------------------------------------------------------------------*/ +/* */ +/* Copyright (c) 2007-2008 Rexx Language Association. All rights reserved. */ +/* */ +/* This program and the accompanying materials are made available under */ +/* the terms of the Common Public License v1.0 which accompanies this */ +/* distribution. A copy is also available at the following address: */ +/* http://www.oorexx.org/license.html */ +/* */ +/* Redistribution and use in source and binary forms, with or */ +/* without modification, are permitted provided that the following */ +/* conditions are met: */ +/* */ +/* Redistributions of source code must retain the above copyright */ +/* notice, this list of conditions and the following disclaimer. */ +/* Redistributions in binary form must reproduce the above copyright */ +/* notice, this list of conditions and the following disclaimer in */ +/* the documentation and/or other materials provided with the distribution. */ +/* */ +/* Neither the name of Rexx Language Association nor the names */ +/* of its contributors may be used to endorse or promote products */ +/* derived from this software without specific prior written permission. */ +/* */ +/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */ +/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */ +/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS */ +/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */ +/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */ +/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED */ +/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, */ +/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY */ +/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING */ +/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS */ +/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ +/* */ +/* Authors; */ +/* W. David Ashley <da...@us...> */ +/* */ +/*----------------------------------------------------------------------------*/ + + +/* include the linux headers and our local stuff */ +#include "rexxgtk.h" + + +/*----------------------------------------------------------------------------*/ +/* Global variables */ +/*----------------------------------------------------------------------------*/ + + +/*----------------------------------------------------------------------------*/ +/* Local Definitions */ +/*----------------------------------------------------------------------------*/ + + +/*============================================================================*/ +/* Private Functions */ +/*============================================================================*/ + +static void signal_func_0(GtkWidget *window, + gpointer data) +{ + cbcb *cblock = (cbcb *)data; + RexxObjectPtr rxobj = (RexxObjectPtr)g_object_get_data(G_OBJECT(window), "OORXOBJECT"); + RexxThreadContext *context; + + cblock->instance->AttachThread(&context); + context->SendMessage0(rxobj, ((cbcb *)data)->signal_name); + context->DetachThread(); + return; +} + + +static void signal_func_1(GtkWidget *window, + gint arg1, + gpointer data) +{ + cbcb *cblock = (cbcb *)data; + RexxObjectPtr rxobj = (RexxObjectPtr)g_object_get_data(G_OBJECT(window), "OORXOBJECT"); + RexxThreadContext *context; + + cblock->instance->AttachThread(&context); + RexxObjectPtr rxarg1 = context->NumberToObject((wholenumber_t)arg1);; + context->SendMessage1(rxobj, ((cbcb *)data)->signal_name, rxarg1); + context->DetachThread(); + return; +} + + +/*============================================================================*/ +/* Public Functions */ +/*============================================================================*/ + +/* + * Method: init + * + * Create a dialog. + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxDialogNew, // Object_method name + OSELF, self) // Self +{ + GtkWidget *myWidget; + + myWidget = gtk_dialog_new(); + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", self); + + return 0; +} + +/* + * Method: init + * + * Create a dialog with buttons. + * + * @param title The dialog title + * + * @param rxparent The parent window + * + * @param flags The flags + * + * @param btext1 The button text + * + * @param bid1 The response id + * + * @param btext2 The button text + * + * @param bid2 The response id + * + * @param btext3 The button text + * + * @param bid3 The response id + * + * @return Zero. + */ +RexxMethod9(int, // Return type + GrxDialogNewWithButtons, // Object_method name + CSTRING, title, // Dialog title + RexxObjectPtr, parent, // Parent window + int, flags, // Dialog flags + CSTRING, btext1, // Button text + int, bid1, // Response id + OPTIONAL_CSTRING, btext2, // Button text + OPTIONAL_int, bid2, // Response id + OPTIONAL_CSTRING, btext3, // Button text + OPTIONAL_int, bid3) // Response id +{ + RexxPointerObject parentptr = (RexxPointerObject)context->SendMessage0(parent, "POINTER"); + GtkWindow *myParent = (GtkWindow *)context->PointerValue(parentptr); + GtkWidget *myWidget, *vbox; + + if (btext3 != NULL) { + myWidget = gtk_dialog_new_with_buttons(title, myParent, (GtkDialogFlags)flags, + btext1, bid1, btext2, bid2, + btext3, bid3, NULL); + } + else if (btext2 != NULL) { + myWidget = gtk_dialog_new_with_buttons(title, myParent, (GtkDialogFlags)flags, + btext1, bid1, btext2, bid2, + NULL); + } + else { + myWidget = gtk_dialog_new_with_buttons(title, myParent, (GtkDialogFlags)flags, + btext1, bid1, NULL); + } + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + vbox = GTK_DIALOG(myWidget)->vbox; + // TODO!!!!!!!!!!!!!!!!!!!!!!!!!!! + // Set the vbox attribute here! + + return 0; +} + +/* + * Method: add_button + * + * Add buttons to a dialog. + * + * @param btext1 The button text + * + * @param bid1 The response id + * + * @return Zero. + */ +RexxMethod2(int, // Return type + GrxDialogAddButton, // Object_method name + CSTRING, btext, // Button text + int, bid) // Response id +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkDialog *myWidget = (GtkDialog *)context->PointerValue(rxptr); + + gtk_dialog_add_button(myWidget, btext, bid); + + return 0; +} + +/* + * Method: set_has_separator + * + * Add/remove the button separator. + * + * @param flag The separator flag. + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxDialogSetHasSeparator, // Object_method name + logical_t, flag) // Separator boolean +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkDialog *myWidget = (GtkDialog *)context->PointerValue(rxptr); + + gtk_dialog_set_has_separator(myWidget, flag); + + return 0; +} + +/* + * Method: set_default_response + * + * Set the default response id. + * + * @param rid Response id + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxDialogSetDefaultResponse, // Object_method name + int, rid) // Response id +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkDialog *myWidget = (GtkDialog *)context->PointerValue(rxptr); + + gtk_dialog_set_default_response(myWidget, rid); + + return 0; +} + +/* + * Method: dialog_run + * + * Run a dialog. + * + * @return Response id + */ +RexxMethod0(int, // Return type + GrxDialogRun) // Object_method name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkDialog *myWidget = (GtkDialog *)context->PointerValue(rxptr); + gint response; + + response = gtk_dialog_run(myWidget); + + return response; +} + +/** + * Method: signal_connect + * + * Connect a signal to an ooRexx method. + * + * @param name The signal name + * + * @return Zero + */ +RexxMethod1(RexxObjectPtr, // Return type + GrxDialogSignalConnect, // Object_method name + CSTRING, name) // Signal name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + cbcb *cblock; + + if (strcmp(name, "close") == 0) { + cblock = (cbcb *)malloc(sizeof(cbcb)); + cblock->instance = context->threadContext->instance; + cblock->signal_name = "signal_close"; + g_signal_connect(G_OBJECT(myWidget), "close", + G_CALLBACK(signal_func_0), cblock); + return context->True(); + } + else if (strcmp(name, "response") == 0) { + cblock = (cbcb *)malloc(sizeof(cbcb)); + cblock->instance = context->threadContext->instance; + cblock->signal_name = "signal_response"; + g_signal_connect(G_OBJECT(myWidget), "response", + G_CALLBACK(signal_func_1), cblock); + return context->True(); + } + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); +} + +/* + * Method: init + * + * Create a message dialog. + * + * @param rxparent The parent window + * + * @param flags The flags + * + * @param type The message type + * + * @param bset The button set + * + * @param text The message text + * + * @return Zero. + */ +RexxMethod5(int, // Return type + GrxMessageDialogNew, // Object_method name + RexxObjectPtr, parent, // Parent window + int, flags, // Dialog flags + int, type, // Message type + int, bset, // Button set + CSTRING, text) // Message text +{ + RexxPointerObject parentptr = (RexxPointerObject)context->SendMessage0(parent, "POINTER"); + GtkWindow *myParent = (GtkWindow *)context->PointerValue(parentptr); + GtkWidget *myWidget; + + + myWidget = gtk_message_dialog_new(myParent, (GtkDialogFlags)flags, + (GtkMessageType)type, + (GtkButtonsType)bset, text); + + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + + return 0; +} + +/* + * Method: init + * + * Create a file chooser dialog. + * + * @param title The title + * + * @param rxparent The parent window + * + * @param type The message type + * + * @param bset The button set + * + * @param text The message text + * + * @return Zero. + */ +RexxMethod9(int, // Return type + GrxFileChooserDialogNew, // Object_method name + CSTRING, title, // Title + RexxObjectPtr, parent, // Parent window + int, action, // Dialog action type + CSTRING, sid1, // Stock button id + int, rid1, // Response idt + OPTIONAL_CSTRING, sid2, // Stock button id + OPTIONAL_int, rid2, // Response idt + OPTIONAL_CSTRING, sid3, // Stock button id + OPTIONAL_int, rid3) // Response idt +{ + RexxPointerObject parentptr = (RexxPointerObject)context->SendMessage0(parent, "POINTER"); + GtkWindow *myParent = (GtkWindow *)context->PointerValue(parentptr); + GtkWidget *myWidget; + gint resptype; + + if (sid3 != NULL) { + myWidget = gtk_file_chooser_dialog_new(title, myParent, + (GtkFileChooserAction)action, + sid1, rid1, sid2, rid2, sid3, rid3, + NULL); + } + else if (sid2 != NULL) { + myWidget = gtk_file_chooser_dialog_new(title, myParent, + (GtkFileChooserAction)action, + sid1, rid1, sid2, rid2, NULL); + } + else { + myWidget = gtk_file_chooser_dialog_new(title, myParent, + (GtkFileChooserAction)action, + sid1, rid1, NULL); + } + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + + return 0; +} + +/* + * Method: init + * + * @param title The dialog title + * + * Create a font selection dialog. + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxFontSelectionDialogNew, // Object_method name + CSTRING, title) // Dialog title +{ + GtkWidget *myWidget; + + myWidget = gtk_font_selection_dialog_new(title); + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + + return 0; +} + +/* + * Method: set_font_name + * + * Set the font in the dialog. + * + * @param name The font name + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxFontSelectionDialogSetFontName, // Object_method name + CSTRING, name) // Font name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_font_selection_dialog_set_font_name(GTK_FONT_SELECTION_DIALOG(myWidget), + name); + + return 0; +} + +/* + * Method: get_font_name + * + * Get the selected font name in the dialog. + * + * @return Font name + */ +RexxMethod0(CSTRING, // Return type + GrxFontSelectionDialogGetFontName) // Object_method name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + + return gtk_font_selection_dialog_get_font_name(GTK_FONT_SELECTION_DIALOG(myWidget)); +} + +/* + * Method: set_preview_text + * + * Set the preview text in the dialog. + * + * @param text The preview text + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxFontSelectionDialogSetPreviewText, // Object_method name + CSTRING, text) // Preview text +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + + gtk_font_selection_dialog_set_preview_text(GTK_FONT_SELECTION_DIALOG(myWidget), + text); + + return 0; +} + +/* + * Method: init + * + * Create an about dialog. + * + * @return Zero. + */ +RexxMethod0(int, // Return type + GrxAboutDialogNew) // Object_method name +{ + GtkWidget *myWidget; + + myWidget = gtk_about_dialog_new(); + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + + return 0; +} + +/* + * Method: set_name + * + * Set the about program name. + * + * @param text The program name + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetName, // Object_method name + CSTRING, name) // Program name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_name(GTK_ABOUT_DIALOG(myWidget), name); + + return 0; +} + +/* + * Method: set_version + * + * Set the about program version. + * + * @param text The program version + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetVersion, // Object_method name + CSTRING, version) // Program version +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_version(GTK_ABOUT_DIALOG(myWidget), version); + + return 0; +} + +/* + * Method: set_copyright + * + * Set the about program copyright notice. + * + * @param text The copyright notice + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetCopyright, // Object_method name + CSTRING, copyright) // Program copyright text +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_copyright(GTK_ABOUT_DIALOG(myWidget), copyright); + + return 0; +} + +/* + * Method: set_comments + * + * Set the about program comments. + * + * @param text The comments + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetComments, // Object_method name + CSTRING, comments) // Program comments +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_comments(GTK_ABOUT_DIALOG(myWidget), comments); + + return 0; +} + +/* + * Method: set_license + * + * Set the about program comments. + * + * @param text The comments + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetLicense, // Object_method name + CSTRING, license) // Program license +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_license(GTK_ABOUT_DIALOG(myWidget), license); + + return 0; +} + +/* + * Method: set_wrap_license + * + * Set the boolean license wrap flag. + * + * @param flag The wrap flag + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetWrapLicense, // Object_method name + logical_t, flag) // Wrap boolean +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_wrap_license(GTK_ABOUT_DIALOG(myWidget), flag); + + return 0; +} + +/* + * Method: set_website + * + * Set the about program website. + * + * @param text The website URL + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetWebsite, // Object_method name + CSTRING, website) // Program website +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_website(GTK_ABOUT_DIALOG(myWidget), website); + + return 0; +} + +/* + * Method: set_website_label + * + * Set the about program website label. + * + * @param text The website label + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetWebsiteLabel, // Object_method name + CSTRING, label) // Program website label +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + + gtk_about_dialog_set_website_label(GTK_ABOUT_DIALOG(myWidget), label); + + return 0; +} + +/* + * Method: set_authors + * + * Set the about program authors. + * + * @param author1 The author + * + * @param author2 The author + * + * @param author3 The author + * + * @param author4 The author + * + * @param author5 The author + * + * @param author6 The author + * + * @param author7 The author + * + * @param author8 The author + * + * @param author9 The author + * + * @return Zero. + */ +RexxMethod9(int, // Return type + GrxAboutDialogSetAuthors, // Object_method name + CSTRING, author1, // Program author + OPTIONAL_CSTRING, author2, // Program author + OPTIONAL_CSTRING, author3, // Program author + OPTIONAL_CSTRING, author4, // Program author + OPTIONAL_CSTRING, author5, // Program author + OPTIONAL_CSTRING, author6, // Program author + OPTIONAL_CSTRING, author7, // Program author + OPTIONAL_CSTRING, author8, // Program author + OPTIONAL_CSTRING, author9) // Program author +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + const gchar *authors[10]; + + authors[9] = NULL; + if (author9 != NULL) { + authors[8] = author9; + } + else { + authors[8] = NULL; + } + if (author8 != NULL) { + authors[7] = author8; + } + else { + authors[7] = NULL; + } + if (author7 != NULL) { + authors[6] = author7; + } + else { + authors[6] = NULL; + } + if (author6 != NULL) { + authors[5] = author6; + } + else { + authors[5] = NULL; + } + if (author5 != NULL) { + authors[4] = author5; + } + else { + authors[4] = NULL; + } + if (author4 != NULL) { + authors[3] = author4; + } + else { + authors[3] = NULL; + } + if (author3 != NULL) { + authors[2] = author3; + } + else { + authors[2] = NULL; + } + if (author2 != NULL) { + authors[1] = author2; + } + else { + authors[1] = NULL; + } + authors[0] = author1; + gtk_about_dialog_set_authors(GTK_ABOUT_DIALOG(myWidget), authors); + + return 0; +} + +/* + * Method: set_artists + * + * Set the about program artists. + * + * @param artist1 The artist + * + * @param artist2 The artist + * + * @param artist3 The artist + * + * @param artist4 The artist + * + * @param artist5 The artist + * + * @param artist6 The artist + * + * @param artist7 The artist + * + * @param artist8 The artist + * + * @param artist9 The artist + * + * @return Zero. + */ +RexxMethod9(int, // Return type + GrxAboutDialogSetArtists, // Object_method name + CSTRING, artist1, // Program artist + OPTIONAL_CSTRING, artist2, // Program artist + OPTIONAL_CSTRING, artist3, // Program artist + OPTIONAL_CSTRING, artist4, // Program artist + OPTIONAL_CSTRING, artist5, // Program artist + OPTIONAL_CSTRING, artist6, // Program artist + OPTIONAL_CSTRING, artist7, // Program artist + OPTIONAL_CSTRING, artist8, // Program artist + OPTIONAL_CSTRING, artist9) // Program artist +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + const gchar *artists[10]; + + artists[9] = NULL; + if (artist9 != NULL) { + artists[8] = artist9; + } + else { + artists[8] = NULL; + } + if (artist8 != NULL) { + artists[7] = artist8; + } + else { + artists[7] = NULL; + } + if (artist7 != NULL) { + artists[6] = artist7; + } + else { + artists[6] = NULL; + } + if (artist6 != NULL) { + artists[5] = artist6; + } + else { + artists[5] = NULL; + } + if (artist5 != NULL) { + artists[4] = artist5; + } + else { + artists[4] = NULL; + } + if (artist4 != NULL) { + artists[3] = artist4; + } + else { + artists[3] = NULL; + } + if (artist3 != NULL) { + artists[2] = artist3; + } + else { + artists[2] = NULL; + } + if (artist2 != NULL) { + artists[1] = artist2; + } + else { + artists[1] = NULL; + } + artists[0] = artist1; + gtk_about_dialog_set_artists(GTK_ABOUT_DIALOG(myWidget), artists); + + return 0; +} + +/* + * Method: set_documentors + * + * Set the about program artists. + * + * @param author1 The author + * + * @param author2 The author + * + * @param author3 The author + * + * @param author4 The author + * + * @param author5 The author + * + * @param author6 The author + * + * @param author7 The author + * + * @param author8 The author + * + * @param author9 The author + * + * @return Zero. + */ +RexxMethod9(int, // Return type + GrxAboutDialogSetDocumentors, // Object_method name + CSTRING, author1, // Program artist + OPTIONAL_CSTRING, author2, // Program author + OPTIONAL_CSTRING, author3, // Program author + OPTIONAL_CSTRING, author4, // Program author + OPTIONAL_CSTRING, author5, // Program author + OPTIONAL_CSTRING, author6, // Program author + OPTIONAL_CSTRING, author7, // Program author + OPTIONAL_CSTRING, author8, // Program author + OPTIONAL_CSTRING, author9) // Program author +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + const gchar *authors[10]; + + authors[9] = NULL; + if (author9 != NULL) { + authors[8] = author9; + } + else { + authors[8] = NULL; + } + if (author8 != NULL) { + authors[7] = author8; + } + else { + authors[7] = NULL; + } + if (author7 != NULL) { + authors[6] = author7; + } + else { + authors[6] = NULL; + } + if (author6 != NULL) { + authors[5] = author6; + } + else { + authors[5] = NULL; + } + if (author5 != NULL) { + authors[4] = author5; + } + else { + authors[4] = NULL; + } + if (author4 != NULL) { + authors[3] = author4; + } + else { + authors[3] = NULL; + } + if (author3 != NULL) { + authors[2] = author3; + } + else { + authors[2] = NULL; + } + if (author2 != NULL) { + authors[1] = author2; + } + else { + authors[1] = NULL; + } + authors[0] = author1; + gtk_about_dialog_set_documenters(GTK_ABOUT_DIALOG(myWidget), authors); + + return 0; +} + +/* + * Method: set_logo + * + * Set the about program logo. + * + * @param logo The logo filename + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxAboutDialogSetLogo, // Object_method name + CSTRING, logofile) // Program logo filename +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + GdkPixbuf *logo; + + logo = gdk_pixbuf_new_from_file(logofile, NULL); + gtk_about_dialog_set_logo(GTK_ABOUT_DIALOG(myWidget), logo); + + return 0; +} + +/* + * Method: init + * + * Create a color selection dialog + * + * @param title The dialog title + * + * @return Zero. + */ +RexxMethod1(int, // Return type + GrxColorSelectionDialogNew, // Object_method name + CSTRING, title) // Dialog title +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + GtkWidget *colorsel; + + myWidget = gtk_color_selection_dialog_new(title); + colorsel = GTK_COLOR_SELECTION_DIALOG(myWidget)->colorsel; + gtk_color_selection_set_has_opacity_control(GTK_COLOR_SELECTION(colorsel), TRUE); + context->SetObjectVariable("!POINTER", context->NewPointer(myWidget)); + g_object_set_data(G_OBJECT(myWidget), "OORXOBJECT", context->GetSelf()); + + return 0; +} + +/* + * Method: get_color + * + * Get the selected color. + * + * @return Color + */ +RexxMethod0(RexxObjectPtr, // Return type + GrxColorSelectionDialogGetColor) // Object_method name +{ + RexxPointerObject rxptr = (RexxPointerObject)context->GetObjectVariable("!POINTER"); + GtkWidget *myWidget = (GtkWidget *)context->PointerValue(rxptr); + GtkWidget *colorsel; + GdkColor color; + guint alpha; + char colorstr[256]; + + colorsel = GTK_COLOR_SELECTION_DIALOG(myWidget)->colorsel; + gtk_color_selection_get_current_color(GTK_COLOR_SELECTION(colorsel), &color); + alpha = gtk_color_selection_get_current_alpha(GTK_COLOR_SELECTION(colorsel)); + + /* Set up the REXX return code */ + g_snprintf(colorstr, sizeof(colorstr), "#%04X%04X%04X%04X", + color.red, color.green, color.blue, alpha); + return context->NewStringFromAsciiz(colorstr); +} + Modified: sandbox/david/4x/grxentry.cpp =================================================================== --- sandbox/david/4x/grxentry.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxentry.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -144,7 +144,7 @@ RexxArrayObject arr; cblock->instance->AttachThread(&context); - arr = context->NewArray(3); + arr = context->NewArray(1); RexxObjectPtr rxstep = context->NumberToObject((wholenumber_t)step);; context->ArrayPut(arr, rxstep, 1); RexxObjectPtr rxarg2 = context->NumberToObject((wholenumber_t)arg2);; @@ -458,12 +458,8 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } /* @@ -568,11 +564,7 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } Modified: sandbox/david/4x/grxwidget.cpp =================================================================== --- sandbox/david/4x/grxwidget.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxwidget.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -886,10 +886,6 @@ G_CALLBACK(signal_func_0), cblock); return context->True(); } - else { - return context->False(); - } - return context->False(); } Modified: sandbox/david/4x/grxwindow.cpp =================================================================== --- sandbox/david/4x/grxwindow.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/grxwindow.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -199,11 +199,7 @@ G_CALLBACK(signal_func_1), cblock); return context->True(); } - else { - RexxObjectPtr parent = context->GetSuper(); - return context->SendMessage0(parent, name); - } - - return context->False(); + RexxObjectPtr parent = context->GetSuper(); + return context->SendMessage0(parent, name); } Modified: sandbox/david/4x/rexxgtk.cls =================================================================== --- sandbox/david/4x/rexxgtk.cls 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/rexxgtk.cls 2008-04-15 18:55:06 UTC (rev 2432) @@ -76,6 +76,8 @@ /*============================================================================*/ /* Class: GTK */ +/* Note: This class should never be instatiated. It is here just provided */ +/* a container for a host of GTK constants. */ /*============================================================================*/ ::class gtk public @@ -321,14 +323,12 @@ ::constant G_TYPE_BOXED class 18 ::constant G_TYPE_PARAM class 19 ::constant G_TYPE_OBJECT class 20 - -- Just return the id - otherwise nop - end -return id /*============================================================================*/ /* Class: GtkWidget */ +/* Note: This is strictly an abstract class. It should never be instantiated */ +/* on its own. You should instantiate one of its subclasses instead. */ /*============================================================================*/ ::class GtkWidget public @@ -409,8 +409,8 @@ /*============================================================================*/ /* Class: GtkContainer */ -/* Note: This is strictly a base class. It should never be instantiated on */ -/* its own. You should instantiate one of its subclasses instead. */ +/* Note: This is strictly an abstract class. It should never be instantiated */ +/* on its own. You should instantiate one of its subclasses instead. */ /*============================================================================*/ ::class GtkContainer public subclass GtkWidget @@ -442,8 +442,8 @@ /*============================================================================*/ /* Class: GtkBox */ -/* Note: This is strictly a base class. It should never be instantiated on */ -/* its own. You should instantiate one of its subclasses instead. */ +/* Note: This is strictly an abstract class. It should never be instantiated */ +/* on its own. You should instantiate one of its subclasses instead. */ /*============================================================================*/ ::class GtkBox public subclass GtkContainer @@ -514,7 +514,7 @@ ::class GtkVBox_From_Pointer private subclass GtkVBox -::method init +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxVBoxNewFromPointer" return @@ -533,8 +533,8 @@ /*============================================================================*/ /* Class: GtkPaned */ -/* Note: This is strictly a base class. It should never be instantiated on */ -/* its own. You should instantiate one of its subclasses instead. */ +/* Note: This is strictly an abstract class. It should never be instantiated */ +/* on its own. You should instantiate one of its subclasses instead. */ /*============================================================================*/ ::class GtkPaned public subclass GtkContainer @@ -1053,3 +1053,118 @@ return +/*============================================================================*/ +/* Class: GtkDialog */ +/*============================================================================*/ + +::class GtkDialog public subclass GtkWindow + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxDialogNew" + +::method vbox +expose vbox +return vbox + +::METHOD 'has_separator=' EXTERNAL "LIBRARY rexxgtk GrxDialogSetHasSeparator" +::METHOD set_has_separator EXTERNAL "LIBRARY rexxgtk GrxDialogSetHasSeparator" +::METHOD 'default_response=' EXTERNAL "LIBRARY rexxgtk GrxDialogSetDefaultResponse" +::METHOD set_default_response EXTERNAL "LIBRARY rexxgtk GrxDialogSetDefaultResponse" +::METHOD add_button EXTERNAL "LIBRARY rexxgtk GrxDialogAddButton" +-- Note: the name of this method cannot be 'run' as that would override the +-- private 'run' instance method of the ooRexx Object class. +::METHOD dialog_run EXTERNAL "LIBRARY rexxgtk GrxDialogRun" +::METHOD signal_connect EXTERNAL "LIBRARY rexxgtk GrxDialogSignalConnect" + +-- The following are the methods that can be connected to signals. By default +-- they do nothing. + +::method signal_close +return + +::method signal_response +return + + +/*============================================================================*/ +/* Class: GtkDialog_With_Buttons */ +/*============================================================================*/ + +::class GtkDialog_With_Buttons public subclass GtkDialog + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxDialogNewWithButtons" + + +/*============================================================================*/ +/* Class: GtkMessageDialog */ +/*============================================================================*/ + +::class GtkMessageDialog public subclass GtkDialog + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxMessageDialogNew" + + +/*============================================================================*/ +/* Class: GtkColorSelectionDialog */ +/*============================================================================*/ + +::class GtkColorSelectionDialog public subclass GtkDialog + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxColorSelectionDialogNew" +::METHOD color EXTERNAL "LIBRARY rexxgtk GrxColorSelectionDialogGetColor" +::METHOD get_color EXTERNAL "LIBRARY rexxgtk GrxColorSelectionDialogGetColor" + + +/*============================================================================*/ +/* Class: GtkFontSelectionDialog */ +/*============================================================================*/ + +::class GtkFontSelectionDialog public subclass GtkDialog + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogNew" +::METHOD 'font_name=' EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogSetFontName" +::METHOD set_font_name EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogSetFontName" +::METHOD font_name EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogGetFontName" +::METHOD get_font_name EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogGetFontName" +::METHOD 'preview_text=' EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogSetPreviewText" +::METHOD set_preview_text EXTERNAL "LIBRARY rexxgtk GrxFontSelectionDialogSetPreviewText" + + +/*============================================================================*/ +/* Class: GtkAboutDialog */ +/*============================================================================*/ + +::class GtkAboutDialog public subclass GtkDialog + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxAboutDialogNew" +::METHOD 'program_name=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetProgramName" +::METHOD set_program_name EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetProgramName" +::METHOD 'version=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetVersion" +::METHOD set_version EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetVersion" +::METHOD 'copyright=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetCopyright" +::METHOD set_copyright EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetCopyright" +::METHOD 'comments=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetComments" +::METHOD set_comments EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetComments" +::METHOD 'license=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetLicense" +::METHOD set_license EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetLicense" +::METHOD 'wrap_license=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWrapLicense" +::METHOD set_wrap_license EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWrapLicense" +::METHOD 'website=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWebsite" +::METHOD set_website EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWebsite" +::METHOD 'website_label=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWebsiteLabel" +::METHOD set_website_label EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetWebsiteLabel" +::METHOD set_authors EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetAuthors" +::METHOD set_artists EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetArtists" +::METHOD set_documentors EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetDocumentors" +::METHOD 'logo=' EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetLogo" +::METHOD set_logo EXTERNAL "LIBRARY rexxgtk GrxAboutDialogSetLogo" + + +/*============================================================================*/ +/* Class: GtkFileChooserDialog */ +/*============================================================================*/ + +::class GtkFileChooserDialog public subclass GtkDialog inherit GtkFileChooser + +::METHOD init EXTERNAL "LIBRARY rexxgtk GrxFileChooserDialogNew" + + Modified: sandbox/david/4x/rexxgtk.cpp =================================================================== --- sandbox/david/4x/rexxgtk.cpp 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/rexxgtk.cpp 2008-04-15 18:55:06 UTC (rev 2432) @@ -313,6 +313,48 @@ REXX_METHOD(GrxComboBoxGetActive, GrxComboBoxGetActive), REXX_METHOD(GrxComboBoxSetActive, GrxComboBoxSetActive), REXX_METHOD(GrxComboBoxSignalConnect, GrxComboBoxSignalConnect), + REXX_METHOD(GrxDialogNew, GrxDialogNew), + REXX_METHOD(GrxDialogNewWithButtons, GrxDialogNewWithButtons), + REXX_METHOD(GrxDialogAddButton, GrxDialogAddButton), + REXX_METHOD(GrxDialogSetHasSeparator, GrxDialogSetHasSeparator), + REXX_METHOD(GrxDialogSetDefaultResponse, GrxDialogSetDefaultResponse), + REXX_METHOD(GrxDialogRun, GrxDialogRun), + REXX_METHOD(GrxDialogSignalConnect, GrxDialogSignalConnect), + REXX_METHOD(GrxMessageDialogNew, GrxMessageDialogNew), + REXX_METHOD(GrxFileChooserDialogNew, GrxFileChooserDialogNew), + REXX_METHOD(GrxFontSelectionDialogNew, GrxFontSelectionDialogNew), + REXX_METHOD(GrxFontSelectionDialogSetFontName, GrxFontSelectionDialogSetFontName), + REXX_METHOD(GrxFontSelectionDialogGetFontName, GrxFontSelectionDialogGetFontName), + REXX_METHOD(GrxFontSelectionDialogSetpreviewText, GrxFontSelectionDialogSetPreviewText), + REXX_METHOD(GrxAboutDialogNew, GrxAboutDialogNew), + REXX_METHOD(GrxAboutDialogSetName, GrxAboutDialogSetName), + REXX_METHOD(GrxAboutDialogSetVersion, GrxAboutDialogSetVersion), + REXX_METHOD(GrxAboutDialogSetCopyright, GrxAboutDialogSetCopyright), + REXX_METHOD(GrxAboutDialogSetComments, GrxAboutDialogSetComments), + REXX_METHOD(GrxAboutDialogSetLicense, GrxAboutDialogSetLicense), + REXX_METHOD(GrxAboutDialogSetWrapLicense, GrxAboutDialogSetWrapLicense), + REXX_METHOD(GrxAboutDialogSetWebsite, GrxAboutDialogSetWebsite), + REXX_METHOD(GrxAboutDialogSetWebsiteLabel, GrxAboutDialogSetWebsiteLabel), + REXX_METHOD(GrxAboutDialogSetAuthors, GrxAboutDialogSetAuthors), + REXX_METHOD(GrxAboutDialogSetArtists, GrxAboutDialogSetArtists), + REXX_METHOD(GrxAboutDialogSetDocumentors, GrxAboutDialogSetDocumentors), + REXX_METHOD(GrxAboutDialogSetLogo, GrxAboutDialogSetLogo), + REXX_METHOD(GrxColorSelectionDialogNew, GrxColorSelectionDialogNew), + REXX_METHOD(GrxColorSelectionDialogGetColor, GrxColorSelectionDialogGetColor), + REXX_METHOD(GrxEntryNew, GrxEntryNew), + REXX_METHOD(GrxEntrySetMaxLength, GrxEntrySetMaxLength), + REXX_METHOD(GrxEntryGetMaxLength, GrxEntryGetMaxLength), + REXX_METHOD(GrxEntrySetText, GrxEntrySetText), + REXX_METHOD(GrxEntryGetText, GrxEntryGetText), + REXX_METHOD(GrxEntrySetWidthChars, GrxEntrySetWidthChars), + REXX_METHOD(GrxEntrySetVisibility, GrxEntrySetVisibility), + REXX_METHOD(GrxEntryGetVisibility, GrxEntryGetVisibility), + REXX_METHOD(GrxEntryGetInvisibleChar, GrxEntryGetInvisibleChar), + REXX_METHOD(GrxEntrySetInvisibleChar, GrxEntrySetInvisibleChar), + REXX_METHOD(GrxEntrySignalConnect, GrxEntrySignalConnect), + REXX_METHOD(GrxSpinButtonNew, GrxSpinButtonNew), + REXX_METHOD(GrxSpinButtonNewWithRange, GrxSpinButtonNewWithRange), + REXX_METHOD(GrxSpinButtonSignalConnect, GrxSpinButtonSignalConnect), REXX_LAST_METHOD() }; Modified: sandbox/david/4x/rexxgtk.h =================================================================== --- sandbox/david/4x/rexxgtk.h 2008-04-11 16:35:04 UTC (rev 2431) +++ sandbox/david/4x/rexxgtk.h 2008-04-15 18:55:06 UTC (rev 2432) @@ -173,8 +173,48 @@ REXX_METHOD_PROTOTYPE(GrxComboBoxGetActive) REXX_METHOD_PROTOTYPE(GrxComboBoxSetActive) REXX_METHOD_PROTOTYPE(GrxComboBoxSignalConnect) - - - -#endif /* REXXGTK_H */ - +REXX_METHOD_PROTOTYPE(GrxDialogNew) +REXX_METHOD_PROTOTYPE(GrxDialogNewWithButtons) +REXX_METHOD_PROTOTYPE(GrxDialogAddButton) +REXX_METHOD_PROTOTYPE(GrxDialogSetHasSeparator) +REXX_METHOD_PROTOTYPE(GrxDialogSetDefaultResponse) +REXX_METHOD_PROTOTYPE(GrxDialogRun) +REXX_METHOD_PROTOTYPE(GrxDialogSignalConnect) +REXX_METHOD_PROTOTYPE(GrxMessageDialogNew) +REXX_METHOD_PROTOTYPE(GrxFileChooserDialogNew) +REXX_METHOD_PROTOTYPE(GrxFontSelectionDialogNew) +REXX_METHOD_PROTOTYPE(GrxFontSelectionDialogSetFontName) +REXX_METHOD_PROTOTYPE(GrxFontSelectionDialogGetFontName) +REXX_METHOD_PROTOTYPE(GrxFontSelectionDialogSetPreviewText) +REXX_METHOD_PROTOTYPE(GrxAboutDialogNew) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetName) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetVersion) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetCopyright) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetComments) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetLicense) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetWrapLicense) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetWebsite) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetWebsiteLabel) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetAuthors) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetArtists) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetDocumentors) +REXX_METHOD_PROTOTYPE(GrxAboutDialogSetLogo) +REXX_METHOD_PROTOTYPE(GrxColorSelectionDialogNew) +REXX_METHOD_PROTOTYPE(GrxColorSelectionDialogGetColor) +REXX_METHOD_PROTOTYPE(GrxEntryNew) +REXX_METHOD_PROTOTYPE(GrxEntrySetMaxLength) +REXX_METHOD_PROTOTYPE(GrxEntryGetMaxLength) +REXX_METHOD_PROTOTYPE(GrxEntrySetText) +REXX_METHOD_PROTOTYPE(GrxEntryGetText) +REXX_METHOD_PROTOTYPE(GrxEntrySetWidthChars) +REXX_METHOD_PROTOTYPE(GrxEntrySetVisibility) +REXX_METHOD_PROTOTYPE(GrxEntryGetVisibility) +REXX_METHOD_PROTOTYPE(GrxEntryGetInvisibleChar) +REXX_METHOD_PROTOTYPE(GrxEntrySetInvisibleChar) +REXX_METHOD_PROTOTYPE(GrxEntrySignalConnect) +REXX_METHOD_PROTOTYPE(GrxSpinButtonNew) +REXX_METHOD_PROTOTYPE(GrxSpinButtonNewWithRange) +REXX_METHOD_PROTOTYPE(GrxSpinButtonSignalConnect) + + #endif /* REXXGTK_H */ + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |