Mark, I've managed to create a sample program that illustrates the problem
I have. Here it doesn't matter how you code the self~controlSizing
statement, you always get the error "The UserPSPDialog base class has not
been initialized correctly".
a=.a~new
a~prepare
::class a subclass b
::method prepare
page1 = .page1~new(,,,"Page1")
page2 = .page2~new(,,,"Page2")
page3 = .page3~new(,,,"Page3")
page4 = .page4~new(,,,"Page4")
self~prepare:super(.Array~of(page1,page2,page3,page4))
::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
::class page2 subclass page2a inherit resizingadmin
::class page3 subclass page3a inherit resizingadmin
::class page4 subclass page4a inherit resizingadmin
::method defineDialog
self~createGrayFrame(102,0,0,100,100,"")
self~createCheckBox(103,10,10,30,20,,"Text")
::method initDialog
::method defineSizing
self~controlSizing()
return 0
::class page1a subclass ppage
::class page2a subclass ppage
::class page3a subclass ppage
::class page4a subclass ppage
::class pPage subclass UserPSPDialog
::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
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
