On Sat, Feb 9, 2013 at 7:11 AM, Staffan Tylen <staffan.ty...@gmail.com>wrote:


> The new defaultIcon method in the .Application class doesn't seem to work
> for PropertySheet dialogs, as demonstrated in the code below.
>

PropertySheet dialogs are unlike other dialogs in ooDialog in that they are
managed by the operating system, not ooDialog.  This works, note I changed
the icon file to something I have locally.

.application~defaultIcon("mail.ico")
a=.a~new
a~execute("SHOWTOP")

::class a subclass userdialog

::method execute

appIcon = .Image~getImage('mail.ico', .Image~toID(IMAGE_ICON))
p1=.p1~new( , , , "Tab1")
p2=.p2~new( , , , "Tab2")
s=.sheet~new(.array~of(p1,p2))
s~appIcon = appIcon
s~execute

::class sheet subclass propertySheetDialog

::class p1 subclass userPspDialog
::class p2 subclass userPspDialog

::requires "oodialog.cls"

So, the generic Application::defaultIcon does not work with a PropertySheet
dialog because it is not managed by ooDialog.

Having said that, it could be made to work I believe.  I just didn't think
about property sheet dialogs during the implementation.  Why don't you open
a bug or an enhancement request for it.

--
Mark Miesfeld
------------------------------------------------------------------------------
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