Mark, try this:
.ResizeProblem~newInstance
::CLASS "ResizeProblem" SUBCLASS USERDIALOG INHERIT ResizingAdmin
::REQUIRES "ooDialog.cls"
::METHOD newInstance CLASS UNGUARDED
thisDialog = self~new()
thisDialog~activate
::METHOD init
forward class(super) continue
opts = "MINIMIZEBOX MAXIMIZEBOX"
self~createCenter(200, 200, "Title goes here", opts)
::METHOD defineDialog
self~createListView(100, 10, 10, 180, 100, "ICON HSCROLL VSCROLL")
style = "TEXT SUNKEN CENTER CENTERIMAGE"
self~createStaticText(101, 10, 120, 180, 50, style, "This is static text")
::METHOD activate UNGUARDED
self~execute("SHOWTOP")
::METHOD initDialog
forward class(super) continue
staticControlObject = self~newStatic(101)
staticControlObject~setColor(6, 15)
Staffan
------------------------------------------------------------------------------
Master SQL Server Development, Administration, T-SQL, SSAS, SSIS, SSRS
and more. Get SQL Server skills now (including 2012) with LearnDevNow -
200+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
SALE $99.99 this month only - learn more at:
http://p.sf.net/sfu/learnmore_122512
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
