The program below illustrates a situation where a resizeable dialog is only
resizeable the first time it is created. The program displays a property
sheet that is fully resizeable. Clicking OK closes the property sheet and
new identical one is created, but this second one is not resizeable in the
same way as the first. A bug is suspected, but I admit that maybe the
inherit for resizingadmin is not correctly done, but even so this behaviour
should not be expected I guess...
Staffan
a=.a~new
a~execute
::class a
::method execute
loop 2
b=.b~new
b~execute
end
::class b subclass c
::method execute
page1=.page1~new(,,,"Tab1")
page1~cx=200
page1~cy=200
page2=.page2~new(,,,"Tab2")
page2~cx=200
page2~cy=200
self~execute:super(.array~of(page1,page2))
::class c subclass userdialog inherit resizingadmin
::method execute
use arg pages
ps=.sheet~new(pages)
ps~execute
::class sheet subclass propertysheetdialog inherit resizingadmin
::class page1 subclass p1 inherit resizingadmin
::class page2 subclass p2 inherit resizingadmin
::class p1 subclass userpspdialog inherit p11
::class p2 subclass userpspdialog inherit p12
::class p11 mixinclass userpspdialog
::class p12 mixinclass userpspdialog
::requires "oodialog.cls"
------------------------------------------------------------------------------
The Go Parallel Website, sponsored by Intel - in partnership with Geeknet,
is your hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials, tech docs,
whitepapers, evaluation guides, and opinion stories. Check out the most
recent posts - join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
