SetGadgetPixmap - Why doesn't this work?

[TomToad]

Docs say this should work with BUTTON_PUSH types.  Tried both 28x28 and 12x12 pixmaps.  Neither show up.

Code Select Expand

SuperStrict
Import MaxGUI.drivers

Global Icon:TPixmap = LoadPixmap("SpinDown.png")
If Not Icon Then RuntimeError("Icon not loaded")
Global MainWindow:TGadget = CreateWindow("Test",0,0,600,400,Null)
Global Button:TGadget = CreateButton("Click",250,180,100,30,MainWindow,BUTTON_PUSH)
SetGadgetPixmap Button,Icon,GADGETPIXMAP_ICON

AddHook EmitEventHook, MyHook

Repeat
WaitEvent()
Forever

Function MyHook:Object(Id:Int, Data:Object, Contect:Object)
Local Event:TEvent = TEvent(Data)

Select Event.id
Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
End
End Select
End Function


[degac]

Just tested, it does work as expected.
Of course the gadget text is replaced by the pixmap.

[Henri]

It works for me if I add 'Import maxgui.xpmanifest'

-Henri

[TomToad]

It works for me if I add 'Import maxgui.xpmanifest'

-Henri

Thanks, importing xpmanifest works great, but it does remove the 3D look of the buttons.

[Juiceter]

Works here too. When you click the button it just shades it.