The new defaultIcon method in the .Application class doesn't seem to work
for PropertySheet dialogs, as demonstrated in the code below.
.application~defaultIcon("myicon.ico")
a=.a~new
a~execute("SHOWTOP")
::class a subclass userdialog
::method execute
.application~defaultIcon("myicon.ico") -- just to be sure
p1=.p1~new( , , , "Tab1")
p2=.p2~new( , , , "Tab2")
s=.sheet~new(.array~of(p1,p2))
s~execute
::class sheet subclass propertySheetDialog
::class p1 subclass userPspDialog
::class p2 subclass userPspDialog
::requires "oodialog.cls"
But it works for a listview:
.application~defaultIcon("myicon.ico")
a=.a~new
a~execute("SHOWTOP")
::class a subclass userdialog
::method init
forward class(super) continue
dlg=self~createcenter(200,200)
::method defineDialog
forward class(super) continue
self~createListview(100,50,50,100,100)
::method initDialog
forward class(super)
::requires "oodialog.cls"
Am I doing something wrong in the first case?
Staffan
------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users