From: <wda...@us...> - 2008-02-08 21:01:27
|
Revision: 2348 http://oorexx.svn.sourceforge.net/oorexx/?rev=2348&view=rev Author: wdashley Date: 2008-02-08 13:01:23 -0800 (Fri, 08 Feb 2008) Log Message: ----------- ArtifactID: None Comment: Added some Glib functions and modified some previous tests. Modified Paths: -------------- sandbox/david/rexxgtk.cls sandbox/david/test4-10.rex sandbox/david/test4-10a.rex sandbox/david/test5-3.rex sandbox/david/test5-3a.rex sandbox/david/ver.mak Modified: sandbox/david/rexxgtk.cls =================================================================== --- sandbox/david/rexxgtk.cls 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/rexxgtk.cls 2008-02-08 21:01:23 UTC (rev 2348) @@ -2556,13 +2556,45 @@ /*============================================================================*/ /*============================================================================*/ /*============================================================================*/ -/* These are classes specific to Glib. */ +/* These are classes and routines specific to Glib. */ /*============================================================================*/ /*============================================================================*/ /*============================================================================*/ /*============================================================================*/ +/* Routine: g_get_user_name */ +/*============================================================================*/ + +::routine g_get_user_name public +return GrxGetUserName() + + +/*============================================================================*/ +/* Routine: g_get_real_name */ +/*============================================================================*/ + +::routine g_get_real_name public +return GrxGetRealName() + + +/*============================================================================*/ +/* Routine: g_get_home_dir */ +/*============================================================================*/ + +::routine g_get_home_dir public +return GrxGetHomeDir() + + +/*============================================================================*/ +/* Routine: g_get_host_name */ +/*============================================================================*/ + +::routine g_get_host_name public +return GrxGetHostName() + + +/*============================================================================*/ /* Class: GSList */ /*============================================================================*/ @@ -2698,11 +2730,15 @@ raise syntax 93.964 array ('A GtkFileChooser class cannot be instantiated.') return -::method set_current_folder +::method 'current_folder=' use strict arg dir call GrxFileChooserSetCurrentFolder self~pointer, dir return +::method set_current_folder +use strict arg self~current_folder +return + ::method add_filter use strict arg filter call GrxFileChooserAddFilter self~pointer, filter~pointer Modified: sandbox/david/test4-10.rex =================================================================== --- sandbox/david/test4-10.rex 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/test4-10.rex 2008-02-08 21:01:23 UTC (rev 2348) @@ -61,8 +61,8 @@ chooser1~signal_connect('selection_changed') chooser2~signal_connect('selection_changed') -chooser1~set_current_folder(GrxGetHomeDir()) -chooser2~set_current_folder(GrxGetUserName()) +chooser1~set_current_folder(g_get_home_dir()) +chooser2~set_current_folder(g_get_user_name()) filter1 = .GtkFileFilter~new() filter2 = .GtkFileFilter~new() Modified: sandbox/david/test4-10a.rex =================================================================== --- sandbox/david/test4-10a.rex 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/test4-10a.rex 2008-02-08 21:01:23 UTC (rev 2348) @@ -65,8 +65,8 @@ chooser1~signal_connect('selection_changed') chooser2~signal_connect('selection_changed') -chooser1~set_current_folder(GrxGetHomeDir()) -chooser2~set_current_folder(GrxGetUserName()) +chooser1~current_folder = g_get_home_dir() +chooser2~current_folder = g_get_user_name() filter1 = .GtkFileFilter~new() filter2 = .GtkFileFilter~new() Modified: sandbox/david/test5-3.rex =================================================================== --- sandbox/david/test5-3.rex 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/test5-3.rex 2008-02-08 21:01:23 UTC (rev 2348) @@ -60,10 +60,10 @@ home = .GtkEntry~new() host = .GtkEntry~new() -user~set_text(GrxGetUserName()) -real~set_text(GrxGetRealName()) -home~set_text(GrxGetHomeDir()) -host~set_text(GrxGetHostName()) +user~set_text(g_get_user_name()) +real~set_text(g_get_real_name()) +home~set_text(g_get_home_dir()) +host~set_text(g_get_host_name()) table = .GtkTable~new(4, 2, .false) table~attach_defaults(lbl1, 0, 1, 0, 1) Modified: sandbox/david/test5-3a.rex =================================================================== --- sandbox/david/test5-3a.rex 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/test5-3a.rex 2008-02-08 21:01:23 UTC (rev 2348) @@ -60,10 +60,10 @@ home = .GtkEntry~new() host = .GtkEntry~new() -user~set_text(GrxGetUserName()) -real~set_text(GrxGetRealName()) -home~set_text(GrxGetHomeDir()) -host~set_text(GrxGetHostName()) +user~text = g_get_user_name() +real~text = g_get_real_name() +home~text = g_get_home_dir() +host~text = g_get_host_name() table = .GtkTable~new(4, 2, .false) table~attach_defaults(lbl1, 0, 1, 0, 1) Modified: sandbox/david/ver.mak =================================================================== --- sandbox/david/ver.mak 2008-02-08 17:00:59 UTC (rev 2347) +++ sandbox/david/ver.mak 2008-02-08 21:01:23 UTC (rev 2348) @@ -1,5 +1,5 @@ VMAJOR = 0 -VMINOR = 3 +VMINOR = 4 VREL = 0 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |