in ooDialog Reference Version 4.2.0 the use of symbolic IDs is
praised here and there. I tryed to do so as described in the
example within paragraph 2.3.13 'Using Symbolic IDs in ooDialog'
on page 21. As shown there I defined two symbolic IDs in the
::method init by self~constDir[SYMBOLIC_ID] = ID (with ID being a
number > 50 as adviced in paragraph 2.3.7 'Predefined Symbolic
IDs' on page 16.
But I just get the hint that the symbolic ID I defined "is an
undefined, non-numeric, identification number". Well, at least it
is a number, even an identification number, but with my poor
English I do not understand 'non-numeric number'. And I did define
it as stated it the manual, look here:
/* Simple Dialog with an edit control and system menu */
dlg = .SimpleDialog~new
dlg~execute("SHOWTOP")
::requires "ooDialog.cls"
::class 'SimpleDialog' subclass UserDialog
::method init
forward class (super) continue
self~create(30, 30, 257, 123, "Simple Dialog 3", "CENTER")
self~constDir[EDIT_CTRL] = 100 /* see oodialog.pdf p 21 */
self~constDir[PUSH_BUTTON] = 110 /* see oodialog.pdf p 21 */
::method defineDialog
self~createEdit(EDIT_CTRL, 7, 7, 243, 85, "MULTILINE VSCROLL",
"NOBORDER NOTAB READONLY")
self~createPushButton(PUSH_BUTTON, 7, 99, 50, 14, , "Write",
onWrite)
self~createPushButton(IDCANCEL, 197, 99, 50, 14, , "Quit")
::method initDialog
self~setControlSysColor(EDIT_CTRL, 7, 4)
hFont = self~createFontEx("Courier New", 9)
self~setControlFont(EDIT_CTRL, hFont, .false)
::method onWrite unguarded
expose editControl charcount /* remember until next time */
line = 'It is now' date() time()
if editControl~defaultName = 'a String', /* 1st time here */
then do
editControl = self~newEdit(EDIT_CTRL) /* get an edit object */
charcount = 1 /* first cursor pos */
end
else line = .endOfLine || line /* insert a CRLF */
editControl~select(charcount, charcount) /* set cursor to the
very end */
charcount = charcount + length(line) /* remember for next time */
editControl~replaceSelText(line) /* add text and scroll display */
What have I overlooked?
TIA for any helpful hint.
Mike
--------------------------------------------
Kostenlose E-Mail-Adresse mit unbegrenztem Speicherplatz für E-Mails, Free SMS
und OK-Drive, der Online-Festplatte.
Sicher Dir jetzt Deine Wunschadresse @ OK.de: www.ok.de
------------------------------------------------------------------------------
LogMeIn Central: Instant, anywhere, Remote PC access and management.
Stay in control, update software, and manage PCs from one command center
Diagnose problems and improve visibility into emerging IT issues
Automate, monitor and manage. Do more in less time with Central
http://p.sf.net/sfu/logmein12331_d2d
_______________________________________________
Oorexx-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oorexx-users
