Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx:[7066] main/trunk/samples/windows/oodialog/userGuide
|
From: <mie...@us...> - 2011-07-23 01:49:20
|
Revision: 7066
http://oorexx.svn.sourceforge.net/oorexx/?rev=7066&view=rev
Author: miesfeld
Date: 2011-07-23 01:49:11 +0000 (Sat, 23 Jul 2011)
Log Message:
-----------
ooDialog User Guide Samples - redo directory structure to match text.
Modified Paths:
--------------
main/trunk/samples/windows/oodialog/userGuide/Makefile.am
Added Paths:
-----------
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02a.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02b.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03a.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Samples/
main/trunk/samples/windows/oodialog/userGuide/exercises/Support/
main/trunk/samples/windows/oodialog/userGuide/exercises/Support/Makefile.am
main/trunk/samples/windows/oodialog/userGuide/exercises/Support/NumberOnlyEditEx.cls
Removed Paths:
-------------
main/trunk/samples/windows/oodialog/userGuide/appendix/
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02a.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02b.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-app.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-bus.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-dat.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-gui.rex
main/trunk/samples/windows/oodialog/userGuide/support/
Modified: main/trunk/samples/windows/oodialog/userGuide/Makefile.am
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/Makefile.am 2011-07-22 15:53:38 UTC (rev 7065)
+++ main/trunk/samples/windows/oodialog/userGuide/Makefile.am 2011-07-23 01:49:11 UTC (rev 7066)
@@ -37,8 +37,8 @@
.NOTPARALLEL:
-SUBDIRS = appendix exercises support
-DIST_SUBDIRS = appendix exercises support
+SUBDIRS = exercises
+DIST_SUBDIRS = exercises
MAINTAINERCLEANFILES = Makefile.in *~
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02a.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02a.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02a.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02a.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,56 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+
+/* Exercise 02a: Putting "controls" on the window */
+
+ dlg = .MyDialog~new
+ dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
+
+ ::requires "ooDialog.cls"
+
+/*---------------------------------------------------------------------------*/
+::class 'MyDialog' subclass UserDialog
+
+::method init
+ forward class (super) continue
+ self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
+
+::method defineDialog -- Invoked automatically by ooDialog.
+ self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom")
+ self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
+ self~createStaticText(902, 40, 40, 200, 20, , -
+ "Complex problems have simple solutions"||.endofline||"- which are wrong.")
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02b.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02b.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02b.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02/Exercise02b.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,83 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+
+/* Exercise 02b: Making the Controls Work */
+
+ dlg = .MyDialog~new
+ dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
+
+ ::requires "ooDialog.cls"
+
+/*---------------------------------------------------------------------------*/
+::class 'MyDialog' subclass UserDialog
+
+::method init
+ forward class (super) continue
+ self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
+
+
+::method defineDialog -- Invoked automatically by ooDialog.
+ self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom", OkClicked)
+ self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
+ self~createStaticText(902, 40, 40, 200, 40, , "Click 'More wisdom'")
+
+
+::method okClicked
+ arrWow = .array~new
+
+ arrWow[1] = "Agnes Allen's Law:"||.endofline|| -
+ "Almost anything is easier to get into than out of."
+ arrWow[2] = "Airplane Law:"||.endofline||"When the plane you are on is late," -
+ ||.endofline||"the plane you want to transfer to is on time."
+ arrWow[3] = "Fourteenth Corollary of Atwood's General Law of Dynamic Negatives:" -
+ ||.endofline||"No books are lost by loaning"||.endofline|| -
+ "except those you particularly wanted to keep."
+ arrWow[4] = "Baker's Byroad:"||.endofline||"When you're over the hill, you pick up speed."
+ arrWow[5] = "First Law of Bicycling:"||.endofline|| -
+ "No matter which way you ride, it's uphill and against the wind."
+ arrWow[6] = "Brooks's Law:"||.endofline|| -
+ "Adding manpower to a late software project makes it later."
+ arrWow[7] = "Grossman's Misquote of H. L. Mencken"||.endofline|| -
+ "Complex problems have simple, easy-to-understand wrong answers."
+
+ say "'More wisdom' button clicked"
+
+ newText = self~newStatic(902)
+ i = random(1,7)
+ newText~setText(arrWow[i])
+ return
+
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02a.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02a.rex 2011-07-22 15:53:38 UTC (rev 7065)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02a.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -1,56 +0,0 @@
-/*----------------------------------------------------------------------------*/
-/* */
-/* Copyright (c) 2011-2011 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. */
-/* */
-/*----------------------------------------------------------------------------*/
-
-/* Exercise 02a: Putting "controls" on the window */
-
- dlg = .MyDialog~new
- dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
-
- ::requires "ooDialog.cls"
-
-/*---------------------------------------------------------------------------*/
-::class 'MyDialog' subclass UserDialog
-
-::method init
- forward class (super) continue
- self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
-
-::method defineDialog -- Invoked automatically by ooDialog.
- self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom")
- self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
- self~createStaticText(902, 40, 40, 200, 20, , -
- "Complex problems have simple solutions"||.endofline||"- which are wrong.")
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02b.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02b.rex 2011-07-22 15:53:38 UTC (rev 7065)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise02b.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -1,83 +0,0 @@
-/*----------------------------------------------------------------------------*/
-/* */
-/* Copyright (c) 2011-2011 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. */
-/* */
-/*----------------------------------------------------------------------------*/
-
-/* Exercise 02b: Making the Controls Work */
-
- dlg = .MyDialog~new
- dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
-
- ::requires "ooDialog.cls"
-
-/*---------------------------------------------------------------------------*/
-::class 'MyDialog' subclass UserDialog
-
-::method init
- forward class (super) continue
- self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
-
-
-::method defineDialog -- Invoked automatically by ooDialog.
- self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom", OkClicked)
- self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
- self~createStaticText(902, 40, 40, 200, 40, , "Click 'More wisdom'")
-
-
-::method okClicked
- arrWow = .array~new
-
- arrWow[1] = "Agnes Allen's Law:"||.endofline|| -
- "Almost anything is easier to get into than out of."
- arrWow[2] = "Airplane Law:"||.endofline||"When the plane you are on is late," -
- ||.endofline||"the plane you want to transfer to is on time."
- arrWow[3] = "Fourteenth Corollary of Atwood's General Law of Dynamic Negatives:" -
- ||.endofline||"No books are lost by loaning"||.endofline|| -
- "except those you particularly wanted to keep."
- arrWow[4] = "Baker's Byroad:"||.endofline||"When you're over the hill, you pick up speed."
- arrWow[5] = "First Law of Bicycling:"||.endofline|| -
- "No matter which way you ride, it's uphill and against the wind."
- arrWow[6] = "Brooks's Law:"||.endofline|| -
- "Adding manpower to a late software project makes it later."
- arrWow[7] = "Grossman's Misquote of H. L. Mencken"||.endofline|| -
- "Complex problems have simple, easy-to-understand wrong answers."
-
- say "'More wisdom' button clicked"
-
- newText = self~newStatic(902)
- i = random(1,7)
- newText~setText(arrWow[i])
- return
-
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03a.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03a.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03a.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,181 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+
+/* Exercise 03: Re-structuring the "Words of Wisdom" application */
+
+/*******************************************************************************
+ ooDialog User Guide
+ Exercise03a v00-02 01Apr11
+ -----------
+
+ A re-structuring of the "Words of Wisdom" code.
+
+ ******************************************************************************/
+
+dlg = .MyDialog~new
+dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
+
+
+::requires "ooDialog.cls"
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ UI - Class 'MyDialog' v00-01 24Mar11
+ ---------------------
+ Defines the UI
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::class 'MyDialog' subclass UserDialog
+
+ /*----------------------------------------------------------------------------
+ init - initialises the dialog
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method init
+ expose wowPicker
+ forward class (super) continue
+ self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
+ wowPicker = .WowPicker~new
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ defineDialog - defines the "Words of Wisdom" controls
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method defineDialog -- Invoked automatically by ooDialog.
+ self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom", OkClicked)
+ self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
+ self~createStaticText(902, 40, 40, 200, 40, , "Click 'More wisdom'")
+
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ okClicked - Actions the "More wisdom" control
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method okClicked
+ expose wowPicker
+ newText = self~newStatic(902)
+ wow = wowPicker~pickWow
+ newText~setText(wow)
+ return
+
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
+
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ WowPicker v00-01 24Mar11
+ -------------
+ Picks a "words of wisdom" string from a set of such "words of wisdom"
+ and returns it. The set is initially retrieved from the WowData class.
+
+ interface{
+ pickWow( out string wow )
+ }
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::CLASS WowPicker
+
+/*----------------------------------------------------------------------------
+ init - gets an initial Wow set from the WowData object.
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD init
+ expose dataSource wowSet
+ dataSource = .WowData~new
+ wowSet = dataSource~readWowSet
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ pickWow - picks a Word of Wisdom from the current wowSet and returns it.
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD pickWow
+ expose wowSet
+ i = random(1,7)
+ return wowSet[i]
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ WowData v00-01 24Mar11
+ -------------
+ Has access to WOW data, and returns a set to requester. The size of the set
+ can be set via configuration (but not in this version).
+
+ interface{
+ readWowSet (out array wowSet)
+ readNewWowSet (out array wowSet) - note: not in this version.
+ }
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::CLASS WowData
+
+ /*----------------------------------------------------------------------------
+ init - reads initial Wow Set from disk (but not in this version)
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD init
+ expose arrWow
+ arrWow = .array~new
+ arrWow[1] = "Agnes Allen's Law:" -
+ "Almost anything is easier to get into than out of."
+ arrWow[2] = "Airplane Law:" -
+ "When the plane you are on is late," -
+ "the plane you want to transfer to is on time."
+ arrWow[3] = "Fourteenth Corollary of Atwood's General Law of Dynamic Negatives:" -
+ "No books are lost by loaning" -
+ "except those you particularly wanted to keep."
+ arrWow[4] = "Baker's Byroad: When you're over the hill, you pick up speed."
+ arrWow[5] = "First Law of Bicycling:" -
+ "No matter which way you ride, it's uphill and against the wind."
+ arrWow[6] = "Brooks's Law:" -
+ "Adding manpower to a late software project makes it later."
+ arrWow[7] = "Grossman's Misquote of H. L. Mencken" -
+ "Complex problems have simple, easy-to-understand wrong answers."
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ read<method name> - <description>
+ <description continued if necessary>
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD readWowSet
+ expose arrWow
+ return arrWow
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-app.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,62 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+/* ooDialog User Guide
+ Exercise 03b: Re-structuring the "Words of Wisdom" application
+ Exercise03b-app.rex v00-02 29Mar11
+------------------------------------------------------------------------------*/
+
+/*******************************************************************************
+ This file is the "application" or "root" or "starter" part
+ of the "Words of Wisdom" application. Al other files in Exercise03b
+ contain only classes.
+ ******************************************************************************/
+
+.local~my.idWowPicker = .WowPicker~new
+.local~my.idWowData = .WowData~new
+
+dlg = .MyDialog~new
+
+.local~my.idWowPicker~activate
+.local~my.idWowData~activate
+dlg~activate -- Must be the last statement.
+
+::requires "ooDialog.cls"
+::requires "exercise03b-gui.rex"
+::requires "exercise03b-bus.rex"
+::requires "exercise03b-dat.rex"
+
+/******************************************************************************/
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-bus.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,80 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+/* ooDialog User Guide
+ Exercise 03b: Re-structuring the "Words of Wisdom" application
+ Exercise03b-bus.rex v00-02 29Mar11
+------------------------------------------------------------------------------*/
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ WowPicker v00-02 29Mar11
+ ---------
+ A class that returns a Words of Wisdom string, selected randomly from a set
+ of such Words of Wisdom.
+ (Potential enhancements: Request a different set from the WowData class;
+ Have the size of the set configurable.)
+ interface{
+ activate( )
+ pickWow( out string wow )
+ }
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::CLASS WowPicker Public
+
+/*----------------------------------------------------------------------------
+ init - gets an initial Wow set from the WowData object.
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD activate
+ expose wowSet
+ wowSet = .nil
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ pickWow - picks a Word of Wisdom from the current wowSet and returns it.
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD pickWow
+ expose wowSet
+ if wowSet = .nil then do
+ dataSource = .local~my.idWowData
+ wowSet = dataSource~readWowSet
+ end
+ i = random(1,7)
+ return wowSet[i]
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
\ No newline at end of file
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-dat.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,89 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+/* ooDialog User Guide
+ Exercise 03b: Re-structuring the "Words of Wisdom" application
+ Exercise03b-dat.rex v00-02 29Mar11
+------------------------------------------------------------------------------*/
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ WowData v00-01 24Mar11
+ -------------
+ Has access to WOW data, and returns a set to requester.
+ Potential enhancement: Dwefine the size of a set through configuration.
+
+ interface{
+ readWowSet (out array wowSet)
+ }
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::CLASS WowData Public
+
+ /*----------------------------------------------------------------------------
+ init - reads initial Wow Set from disk (but not in this version)
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD activate
+ expose arrWow
+ arrWow = .array~new
+ arrWow[1] = "Agnes Allen's Law:" -
+ "Almost anything is easier to get into than out of."
+ arrWow[2] = "Airplane Law:" -
+ "When the plane you are on is late," -
+ "the plane you want to transfer to is on time."
+ arrWow[3] = "Fourteenth Corollary of Atwood's General Law of Dynamic Negatives:" -
+ "No books are lost by loaning" -
+ "except those you particularly wanted to keep."
+ arrWow[4] = "Baker's Byroad: When you're over the hill, you pick up speed."
+ arrWow[5] = "First Law of Bicycling:" -
+ "No matter which way you ride, it's uphill and against the wind."
+ arrWow[6] = "Brooks's Law:" -
+ "Adding manpower to a late software project makes it later."
+ arrWow[7] = "Grossman's Misquote of H. L. Mencken" -
+ "Complex problems have simple, easy-to-understand wrong answers."
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ read<method name> - <description>
+ <description continued if necessary>
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::METHOD readWowSet
+ expose arrWow
+ return arrWow
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex (from rev 7065, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-gui.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -0,0 +1,96 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* Copyright (c) 2011-2011 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. */
+/* */
+/*----------------------------------------------------------------------------*/
+/* ooDialog User Guide
+ Exercise 03b: Re-structuring the "Words of Wisdom" application
+ Exercise03b-gui.rex v00-02 29Mar11
+------------------------------------------------------------------------------*/
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ MyDialog v00-02 29Mar11
+ --------
+ A class that defines the User Interface for the Wow application.
+
+ interface{
+ activate( )
+ }
+ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
+
+::requires "ooDialog.cls"
+
+::class 'MyDialog' subclass UserDialog public
+
+ /*----------------------------------------------------------------------------
+ init - initialises the dialog
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method init
+ forward class (super) continue
+ self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ defineDialog - defines the "Words of Wisdom" controls
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method defineDialog -- Invoked automatically by ooDialog.
+ self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom", OkClicked)
+ self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
+ self~createStaticText(902, 40, 40, 200, 40, , "Click 'More wisdom'")
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ activate - gets id for wowPicker, shows the dialog.
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method activate unguarded
+ expose wowPicker
+ wowPicker = .local~my.idWowPicker
+ self~execute("SHOWTOP", IDI_DLG_OOREXX) -- MUST be last!
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+ /*----------------------------------------------------------------------------
+ okClicked - Actions the "More wisdom" control
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+ ::method okClicked
+ expose wowPicker
+ newText = self~newStatic(902)
+ wow = wowPicker~pickWow
+ newText~setText(wow)
+ return
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex 2011-07-22 15:53:38 UTC (rev 7065)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex 2011-07-23 01:49:11 UTC (rev 7066)
@@ -1,181 +0,0 @@
-/*----------------------------------------------------------------------------*/
-/* */
-/* Copyright (c) 2011-2011 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. */
-/* */
-/*----------------------------------------------------------------------------*/
-
-/* Exercise 03: Re-structuring the "Words of Wisdom" application */
-
-/*******************************************************************************
- ooDialog User Guide
- Exercise03a v00-02 01Apr11
- -----------
-
- A re-structuring of the "Words of Wisdom" code.
-
- ******************************************************************************/
-
-dlg = .MyDialog~new
-dlg~execute("SHOWTOP", IDI_DLG_OOREXX)
-
-
-::requires "ooDialog.cls"
-
-/*//////////////////////////////////////////////////////////////////////////////
- ==============================================================================
- UI - Class 'MyDialog' v00-01 24Mar11
- ---------------------
- Defines the UI
- = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
-
-::class 'MyDialog' subclass UserDialog
-
- /*----------------------------------------------------------------------------
- init - initialises the dialog
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
- ::method init
- expose wowPicker
- forward class (super) continue
- self~create(30, 30, 257, 123, "Words of Wisdom", "CENTER")
- wowPicker = .WowPicker~new
- return
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
- /*----------------------------------------------------------------------------
- defineDialog - defines the "Words of Wisdom" controls
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
- ::method defineDialog -- Invoked automatically by ooDialog.
- self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "More wisdom", OkClicked)
- self~createPushButton(IDCANCEL, 197, 99, 50, 14, ,"Cancel")
- self~createStaticText(902, 40, 40, 200, 40, , "Click 'More wisdom'")
-
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
- /*----------------------------------------------------------------------------
- okClicked - Actions the "More wisdom" control
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
- ::method okClicked
- expose wowPicker
- newText = self~newStatic(902)
- wow = wowPicker~pickWow
- newText~setText(wow)
- return
-
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
-/*============================================================================*/
-
-
-/*//////////////////////////////////////////////////////////////////////////////
- ==============================================================================
- WowPicker v00-01 24Mar11
- -------------
- Picks a "words of wisdom" string from a set of such "words of wisdom"
- and returns it. The set is initially retrieved from the WowData class.
-
- interface{
- pickWow( out string wow )
- }
- = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
-
-::CLASS WowPicker
-
-/*----------------------------------------------------------------------------
- init - gets an initial Wow set from the WowData object.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
- ::METHOD init
- expose dataSource wowSet
- dataSource = .WowData~new
- wowSet = dataSource~readWowSet
- return
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
- /*----------------------------------------------------------------------------
- pickWow - picks a Word of Wisdom from the current wowSet and returns it.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
- ::METHOD pickWow
- expose wowSet
- i = random(1,7)
- return wowSet[i]
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
-
-/*//////////////////////////////////////////////////////////////////////////////
- ==============================================================================
- WowData v00-01 24Mar11
- -------------
- Has access to WOW data, and returns a set to requester. The size of the set
- can be set via configuration (but not in this version).
-
- interface{
- readWowSet (out array wowSet)
- readNewWowSet (out array wowSet) - note: not in this version.
- }
- = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
-
-::CLASS WowData
-
- /*----...
[truncated message content] |