Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx:[6888] main/trunk/samples/windows/oodialog/userGuide/ exercises
|
From: <mie...@us...> - 2011-03-29 22:33:40
|
Revision: 6888
http://oorexx.svn.sourceforge.net/oorexx/?rev=6888&view=rev
Author: miesfeld
Date: 2011-03-29 22:33:33 +0000 (Tue, 29 Mar 2011)
Log Message:
-----------
3258061 Exercises 03a and 03b. Patch from Oliver Sims
Added Paths:
-----------
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
Removed Paths:
-------------
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03.rex
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03.rex 2011-03-28 16:27:50 UTC (rev 6887)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -1,214 +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 Widom" application */
-
-/*******************************************************************************
- ooDialog User Guide
- Exercise03 v00-01 24Mar11
- --------
-
- 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
-/*
- 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."
-*/
- newText = self~newStatic(902)
- wow = wowPicker~pickWow
- newText~setText(wow)
- return
-
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
-/*============================================================================*/
-
-/*//////////////////////////////////////////////////////////////////////////////
- ==============================================================================
- WowPicker v00-01 24Mar11
- -------------
- Single-method class that returns a set of Words of Wisdom, or a different
- set than that currently returned (makes the new set the current set).
- The size of the set is defined by configuration (but not in this version)
-
- 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:"||.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."
-
- 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/Exercise03a.rex (from rev 6887, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03a.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -0,0 +1,214 @@
+/*----------------------------------------------------------------------------*/
+/* */
+/* 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 Widom" application */
+
+/*******************************************************************************
+ ooDialog User Guide
+ Exercise03a v00-01 24Mar11
+ --------
+
+ 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
+/*
+ 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."
+*/
+ newText = self~newStatic(902)
+ wow = wowPicker~pickWow
+ newText~setText(wow)
+ return
+
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
+
+/*//////////////////////////////////////////////////////////////////////////////
+ ==============================================================================
+ WowPicker v00-01 24Mar11
+ -------------
+ Single-method class that returns a set of Words of Wisdom, or a different
+ set than that currently returned (makes the new set the current set).
+ The size of the set is defined by configuration (but not in this version)
+
+ 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:"||.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."
+
+ 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
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
Added: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-app.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-app.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-app.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -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"
+
+/******************************************************************************/
Added: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-bus.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-bus.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-bus.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -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
Added: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-dat.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-dat.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-dat.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -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
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
Added: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-gui.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-gui.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03b-gui.rex 2011-03-29 22:33:33 UTC (rev 6888)
@@ -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
+ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+
+/*============================================================================*/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|