Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx:[7084] main/trunk/samples/windows/oodialog/userGuide/ exercises/Exercise03
|
From: <mie...@us...> - 2011-07-28 03:12:13
|
Revision: 7084
http://oorexx.svn.sourceforge.net/oorexx/?rev=7084&view=rev
Author: miesfeld
Date: 2011-07-28 03:12:05 +0000 (Thu, 28 Jul 2011)
Log Message:
-----------
Patch 3379799 Exercise03b - files renamed Patch supplied by Oliver Sims
Added Paths:
-----------
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Data.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Model.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Support.rex
main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-View.rex
Removed Paths:
-------------
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
Copied: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Data.rex (from rev 7081, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Data.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Data.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -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-Model.rex (from rev 7081, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Model.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Model.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -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-Support.rex (from rev 7081, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Support.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-Support.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -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-View.rex (from rev 7081, main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex)
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-View.rex (rev 0)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-View.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -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/Exercise03/Exercise03b-app.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex 2011-07-28 03:04:58 UTC (rev 7083)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-app.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -1,62 +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. */
-/* */
-/*----------------------------------------------------------------------------*/
-/* 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"
-
-/******************************************************************************/
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex 2011-07-28 03:04:58 UTC (rev 7083)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-bus.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -1,80 +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. */
-/* */
-/*----------------------------------------------------------------------------*/
-/* 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
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex 2011-07-28 03:04:58 UTC (rev 7083)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-dat.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -1,89 +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. */
-/* */
-/*----------------------------------------------------------------------------*/
-/* 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
- /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
-
-/*============================================================================*/
Deleted: main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex
===================================================================
--- main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex 2011-07-28 03:04:58 UTC (rev 7083)
+++ main/trunk/samples/windows/oodialog/userGuide/exercises/Exercise03/Exercise03b-gui.rex 2011-07-28 03:12:05 UTC (rev 7084)
@@ -1,96 +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. */
-/* */
-/*----------------------------------------------------------------------------*/
-/* 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.
|