PureSkin (Window.l,Gadget.l,Image.l,Filename$,Flag.l)
Skin the Selected Window from File.
Use:
PureSkin(#Window,#Gadget,#Image,"MySkin.pvs",1)
Flags: True = Center Window
Returns 1 if success.
Example:
#Main=0
#Gadget_Skin=1
#Image_Skin=2
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
If CreateGadgetList(WindowID(#Main))
PureSkin(#Main,#Gadget_Skin,#Image_Skin,"MySkin.pvs",1) ;<-- Loads PureSkin from File
PureSkinHide(#Main,0)
EndIf
quitMain=0
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
quitMain=1
EndSelect
Until quitMain
End