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

Reply via email to