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

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

Revision: 2233
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2233&view=rev
Author:   wdashley
Date:     2008-01-15 18:50:52 -0800 (Tue, 15 Jan 2008)

Log Message:
-----------
ArtifactID: None
Comment: Added a test for GtkScale classes.

Modified Paths:
--------------
    sandbox/david/grxrange.c
    sandbox/david/rexxgtk.cls

Added Paths:
-----------
    sandbox/david/test4-7.rex

Modified: sandbox/david/grxrange.c
===================================================================
--- sandbox/david/grxrange.c	2008-01-16 02:35:19 UTC (rev 2232)
+++ sandbox/david/grxrange.c	2008-01-16 02:50:52 UTC (rev 2233)
@@ -401,7 +401,7 @@
     gdouble min, max, step;
 
     /* Check for valid arguments */
-    if (GrxCheckArgs(6, Argc, Argv)) {
+    if (GrxCheckArgs(3, Argc, Argv)) {
         return RXFUNC_BADCALL;
     }
 

Modified: sandbox/david/rexxgtk.cls
===================================================================
--- sandbox/david/rexxgtk.cls	2008-01-16 02:35:19 UTC (rev 2232)
+++ sandbox/david/rexxgtk.cls	2008-01-16 02:50:52 UTC (rev 2233)
@@ -1640,7 +1640,7 @@
 
 ::method init
 use strict arg min, max, step
-self~pointer = GrxHScaleNewWithRange(min, max. step)
+self~pointer = GrxHScaleNewWithRange(min, max, step)
 return
 
 
@@ -1670,7 +1670,7 @@
 
 ::method init
 use strict arg min, max, step
-self~pointer = GrxVScaleNewWithRange(min, max. step)
+self~pointer = GrxVScaleNewWithRange(min, max, step)
 return
 
 

Added: sandbox/david/test4-7.rex
===================================================================
--- sandbox/david/test4-7.rex	                        (rev 0)
+++ sandbox/david/test4-7.rex	2008-01-16 02:50:52 UTC (rev 2233)
@@ -0,0 +1,80 @@
+#!/usr/bin/rexx
+/*----------------------------------------------------------------------------*/
+/*                                                                            */
+/* 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...>                                 */
+/*                                                                            */
+/*----------------------------------------------------------------------------*/
+
+
+-- Derived from Listing 4-7
+-- Foundations of GTK+ Development
+-- by Andrew Krause
+
+window = .myMainWindow~new('GTK_WINDOW_TOPLEVEL')
+window~set_title('Scales')
+window~connect_signal("destroy")
+window~set_border_width(10)
+window~set_size_request(250, -1)
+
+scale_int = .GtkHScale_With_Range~new(0.0, 10.0, 1.0)
+scale_float = .GtkHScale_With_Range~new(0.0, 1.0, 0.1)
+
+scale_int~set_digits(0)
+scale_float~set_digits(1)
+
+scale_int~set_value_pos('GTK_POS_RIGHT')
+scale_float~set_value_pos('GTK_POS_LEFT')
+
+vbox = .GtkVBox~new(.false, 5)
+vbox~pack_start_defaults(scale_int)
+vbox~pack_start_defaults(scale_float)
+
+window~add(vbox)
+window~show_all()
+
+call gtk_main
+return
+
+
+::requires 'rexxgtk.cls'
+
+::class myMainWindow subclass GtkWindow
+
+::method signal_destroy
+.local['GTK_Quit'] = .true
+return
+


Property changes on: sandbox/david/test4-7.rex
___________________________________________________________________
Name: svn:executable
   + *
Name: svn:eol-style
   + native


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