287 lines
11 KiB
Rexx
Executable File
287 lines
11 KiB
Rexx
Executable File
/*----------------------------------------------------------------------------*/
|
|
/* */
|
|
/* Copyright (c) 2011-2014 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: */
|
|
/* https://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
|
|
Samples\Popups
|
|
OffsetPopups.rex v01-00 07Jun12
|
|
|
|
The four dialogs in this file illustrate how popups can be tested in
|
|
stand-alone mode with a single code base. If a given popup pops up another
|
|
dialog, then this is treated as part of the "stand-alone" operation of the
|
|
first dialog.
|
|
|
|
Associated files: None.
|
|
|
|
Invocation: OffsetPopups [runType] [offset]
|
|
|
|
"runType" controls which dialog to surface in "standalone" mode as follows:
|
|
"p" for parent, "c" for child, or "g" for grandchild, "gg" for
|
|
greatgrandchild. Parent is the default (and of course "standalone mode" has
|
|
no meaning for the parent dialog, as when run it's always the root dialog.
|
|
"offset" is a number that governs the extent to which a descendant dialog
|
|
is visually offset from the ancestor that surfaced it.
|
|
The default is runtype = Parent and offset = 0.
|
|
|
|
Changes:
|
|
v01-00 07Jun12: First Version
|
|
|
|
------------------------------------------------------------------------------*/
|
|
|
|
parse upper arg runtype offset
|
|
progName = "OffsetPopups"
|
|
if runtype = "?" then do
|
|
say
|
|
say "+-----------------------------------------------------------------------+"
|
|
say "| Demonstration of Popups, four generations, where any generation |"
|
|
say "| can be run 'standalone' - that is, as the 'parent' of other 'younger' |"
|
|
say "| dialogs. |"
|
|
say "| |"
|
|
say "| Syntax: 'OffsetPopups [runType] [offset]' |"
|
|
say "| |"
|
|
say "| - runType: Defines the 'root' dialog as follows: |"
|
|
say "| 'p/P' or null for Parent, 'c/C' for Child, |"
|
|
say "| 'g/G' for GrandChild, 'gg/GG' for GreatGrandChild. |"
|
|
say "| Default is 'P'. |"
|
|
say "| |"
|
|
say "| - offset: a number (e.g. 100). If present, visibly offsets |"
|
|
say "| a descendant dialog from its immediate ancestor. |"
|
|
say "| Default is 0 - that is, no offset. |"
|
|
say "+-----------------------------------------------------------------------+"
|
|
exit
|
|
end
|
|
|
|
-- Work out which of the four possible formats of parameters applies:
|
|
if runtype = "" & offset = "" then case = 1
|
|
if runtype~datatype = "NUM" & offset = "" then case = 2
|
|
if ("PCG"~caselessPos(runtype) >0 | runtype = "GG") & offset = "" then case = 3
|
|
if ("PCG"~caselessPos(runtype) >0 | runtype = "GG") & offset~datatype = "NUM" then case = 4
|
|
|
|
-- Set up parameter values:
|
|
select
|
|
when case = 1 then do
|
|
runtype = "P"; offset = 0
|
|
end
|
|
when case = 2 then do
|
|
offset = runtype; runtype = "P";
|
|
end
|
|
when case = 3 then do
|
|
offset = 0
|
|
end
|
|
when case = 4 then nop
|
|
otherwise do
|
|
say "Parameter Error. Run '"||progName||" ?' for parameter values."
|
|
exit
|
|
end
|
|
end
|
|
|
|
-- Set up offset amount in View class attribute:
|
|
.View~offsetAmount = offset
|
|
|
|
-- Launch First Dialog:
|
|
select
|
|
when runtype = "P" then .ParentDialog~newInstance()
|
|
when runtype = "C" then .ChildDialog~newInstance("SA")
|
|
when runtype = "G" then .GrandChildDialog~newInstance("SA")
|
|
when runtype = "GG" then .GreatGrandChildDialog~newInstance("SA")
|
|
otherwise nop
|
|
end
|
|
|
|
::REQUIRES "ooDialog.cls"
|
|
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
::CLASS 'ParentDialog' SUBCLASS View -- modified for offset
|
|
|
|
::METHOD newInstance CLASS
|
|
dlg = self~new
|
|
dlg~activate
|
|
|
|
|
|
::METHOD init
|
|
forward class (super) continue
|
|
self~create(30, 30, 257, 123, "Parent Dialog for Popups", "CENTER")
|
|
|
|
|
|
::METHOD defineDialog
|
|
self~createPushButton(901, 142, 99, 50, 14, "DEFAULT", "Pop Up Child", popup)
|
|
|
|
|
|
::METHOD activate UNGUARDED
|
|
self~execute("SHOWTOP")
|
|
|
|
|
|
::METHOD popup UNGUARDED
|
|
popupPos = self~getPopupPos() -- added for offset
|
|
.ChildDialog~newInstance(self, popupPos)
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
::CLASS 'ChildDialog' SUBCLASS View -- modified for offset
|
|
|
|
::METHOD newInstance CLASS
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
dlg = self~new
|
|
dlg~activate(rootDlg, dlgPos) -- modified for offset
|
|
|
|
|
|
::METHOD init
|
|
forward class (super) continue
|
|
self~create(30, 30, 257, 123, "Child Dialog", "CENTER")
|
|
|
|
|
|
::METHOD defineDialog
|
|
self~createPushButton(901, 142, 99, 100, 14, "DEFAULT", "Pop Up Grandchild", popup)
|
|
|
|
|
|
::METHOD activate UNGUARDED
|
|
expose rootDlg dlgPos standalone -- modified for offset
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
if rootDlg = "SA" then do
|
|
rootDlg = self
|
|
standAlone = .true -- added for offset
|
|
self~execute("SHOWTOP")
|
|
end
|
|
else self~popupAsChild(rootDlg, "SHOWTOP")
|
|
|
|
|
|
::METHOD initDialog -- added for offset
|
|
expose rootDlg dlgPos standalone
|
|
if standalone \= .true then self~offset(dlgPos)
|
|
|
|
|
|
::METHOD popup UNGUARDED
|
|
expose rootDlg -- modified for offset
|
|
popupPos = self~getPopupPos()
|
|
.GrandChildDialog~newInstance(rootDlg, popupPos) -- modified for offset
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
::CLASS 'GrandChildDialog' SUBCLASS View -- modified for offset
|
|
|
|
::METHOD newInstance CLASS
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
dlg = self~new
|
|
dlg~activate(rootDlg, dlgPos) -- modified for offset
|
|
|
|
|
|
::METHOD init
|
|
forward class (super) continue
|
|
self~create(30, 30, 257, 123, "Grandchild", "CENTER")
|
|
|
|
|
|
::METHOD defineDialog
|
|
self~createPushButton(901, 142, 99, 100, 14, "DEFAULT", "Pop Up GreatGrandchild", popup)
|
|
|
|
|
|
::METHOD activate UNGUARDED
|
|
expose rootDlg dlgPos standalone -- modified for offset
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
if rootDlg = "SA" then do
|
|
rootDlg = self
|
|
standAlone = .true -- added for offset
|
|
self~execute("SHOWTOP")
|
|
end
|
|
else self~popupAsChild(rootDlg, "SHOWTOP")
|
|
|
|
|
|
::METHOD initDialog -- added for offset
|
|
expose rootDlg dlgPos standalone
|
|
if standalone \= .true then self~offset(dlgPos)
|
|
|
|
|
|
::METHOD popup UNGUARDED
|
|
expose rootDlg
|
|
popupPos = self~getPopupPos(offset)
|
|
.GreatGrandChildDialog~newInstance(rootDlg, popupPos) -- modified for offset
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
::CLASS 'GreatGrandChildDialog' SUBCLASS View -- modified for offset
|
|
|
|
::METHOD newInstance CLASS
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
dlg = self~new
|
|
dlg~activate(rootDlg, dlgPos) -- modified for offset
|
|
|
|
|
|
::METHOD init
|
|
forward class (super) continue
|
|
self~create(30, 30, 257, 123, "GreatGrandchild", "CENTER")
|
|
|
|
|
|
::METHOD activate
|
|
expose rootDlg dlgPos -- added for offset
|
|
use arg rootDlg, dlgPos -- modified for offset
|
|
if rootDlg = "SA" then self~execute("SHOWTOP")
|
|
else self~popupAsChild(rootDlg, "SHOWTOP")
|
|
|
|
|
|
::METHOD initDialog -- added for offset
|
|
expose rootdlg dlgPos
|
|
if rootDlg \= "SA" then self~offset(dlgPos)
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
|
|
::CLASS View SUBCLASS UserDialog -- added for offset
|
|
|
|
::ATTRIBUTE offsetAmount CLASS PUBLIC
|
|
|
|
::METHOD getPopupPos
|
|
popupPos = self~getRealpos
|
|
offset = .View~offsetAmount
|
|
popupPos~incr(offset,offset)
|
|
return popupPos
|
|
|
|
::METHOD offset
|
|
use arg dlgPos
|
|
self~moveTo(dlgPos, 'SHOWWINDOW')
|
|
self~ensureVisible()
|
|
|
|
/*---------------------------------------------------------------------------*/
|