[Oorexx-svn] SF.net SVN: oorexx: [2275] sandbox/david

[<wda...@us...>]

Revision: 2275
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2275&view=rev
Author:   wdashley
Date:     2008-01-20 17:30:07 -0800 (Sun, 20 Jan 2008)

Log Message:
-----------
ArtifactID: None
Comment: Fixed the Color button test!

Modified Paths:
--------------
    sandbox/david/rexxgtk.cls
    sandbox/david/test4-9.rex
    sandbox/david/test4-9a.rex

Modified: sandbox/david/rexxgtk.cls
===================================================================
--- sandbox/david/rexxgtk.cls	2008-01-21 01:05:32 UTC (rev 2274)
+++ sandbox/david/rexxgtk.cls	2008-01-21 01:30:07 UTC (rev 2275)
@@ -977,7 +977,7 @@
 
 ::method 'title='
 use strict arg title
-self~pointer = GrxColorButtonSetTitle(self~pointer, title)
+call GrxColorButtonSetTitle self~pointer, title
 return
 
 ::method set_title

Modified: sandbox/david/test4-9.rex
===================================================================
--- sandbox/david/test4-9.rex	2008-01-21 01:05:32 UTC (rev 2274)
+++ sandbox/david/test4-9.rex	2008-01-21 01:30:07 UTC (rev 2275)
@@ -44,14 +44,6 @@
 -- Foundations of GTK+ Development
 -- by Andrew Krause
 
--- There is a problem with the GtkColorButton returned by GTK. The GTK
--- subsystem claims the button is not a widget! Therefore some operations
--- fail, including the connect_signal method of the color button.
-
-say 'This test does not work due to a problem with the GTK run time not'
-say 'recognising the color button as a valid GTK widget.'
-say
-
 window = .myMainWindow~new('GTK_WINDOW_TOPLEVEL')
 window~set_title('Color Button')
 window~connect_signal("destroy")
@@ -92,7 +84,6 @@
 
 ::method signal_color_set
 color = self~get_color()
-say color
 self~user_data~modify_fg('GTK_STATE_NORMAL', color)
 return
 

Modified: sandbox/david/test4-9a.rex
===================================================================
--- sandbox/david/test4-9a.rex	2008-01-21 01:05:32 UTC (rev 2274)
+++ sandbox/david/test4-9a.rex	2008-01-21 01:30:07 UTC (rev 2275)
@@ -48,14 +48,6 @@
 -- original example uses methods that are direct ports of the GTK C function
 -- calls. This example uses a syntax that is more Rexx-like.
 
--- There is a problem with the GtkColorButton returned by GTK. The GTK
--- subsystem claims the button is not a widget! Therefore some operations
--- fail, including the connect_signal method of the color button.
-
-say 'This test does not work due to a problem with the GTK run time not'
-say 'recognising the color button as a valid GTK widget.'
-say
-
 window = .myMainWindow~new('GTK_WINDOW_TOPLEVEL')
 window~title = 'Color Button'
 window~connect_signal("destroy")


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.