Mark, I've tried to create a sample for you but haven't succeeded. But
while trying I came to a point where a crash actually happens and I presume
it's because of lacking forward statements. I don't know if it will serve
you any good but maybe. Here it is. Don't look at the functionality of it
as such because this is just a saved version on the way to make a real
sample. Sorry, won't get much closer than that.
Staffan
a=.a~new
a~prepare
::class a subclass b
::method prepare
page1 = .page1~new(,,,"Page1")
page2 = .page2~new(,,,"Page2")
self~prepare:super(.Array~of(page1,page2))
::class b subclass userDialog
::method prepare
use arg pages
ps=.ps~new(pages,"NOAPPLYNOW NOCONTEXTHELP")
ps~popup
::class ps subclass PropertySheetDialog inherit resizingadmin
::class page1 subclass page1a inherit resizingadmin
::method defineDialog
self~createGrayFrame(102,0,0,100,100,"")
self~createCheckBox(103,10,10,30,20,,"Text")
::class page2 subclass page2a inherit resizingadmin
::class page1a subclass ppage inherit page1aa
::method goWrong
say self~data~info
::class page2a subclass ppage
::attribute data public
::method initDialog
self~data=.directory
self~data~info="whatever"
::class pPage subclass UserPSPDialog
::class page1aa mixinclass UserPSPDialog
::method defineDialog
self~goWrong
::requires "oodialog.cls"
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
Oorexx-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oorexx-users
