MODULE Iup
' System
DECLARE SUB ::Open ALIAS "PuiOpen" LIB "pui"
DECLARE SUB ::Close ALIAS "PuiClose" LIB "pui"
DECLARE SUB ::Version ALIAS "PuiVersion" LIB "pui"
DECLARE SUB ::Load ALIAS "PuiLoad" LIB "pui"
DECLARE SUB ::Loadbuffer ALIAS "PuiLoadbuffer" LIB "pui"
DECLARE SUB ::SetLanguage ALIAS "PuiSetLanguage" LIB "pui"
DECLARE SUB ::GetLanguage ALIAS "PuiGetLanguage" LIB "pui"
' Attribute
DECLARE SUB ::StoreAttribute ALIAS "PuiStoreAttribute" LIB "pui"
DECLARE SUB ::StoreAttributeId ALIAS "PuiStoreAttributeId" LIB "pui"
DECLARE SUB ::SetAttribute ALIAS "PuiSetAttribute" LIB "pui"
DECLARE SUB ::SetAttributeId ALIAS "PuiSetAttributeId" LIB "pui"
DECLARE SUB ::SetfAttribute ALIAS "PuiSetfAttribute" LIB "pui"
DECLARE SUB ::SetfAttributeId ALIAS "PuiSetfAttributeId" LIB "pui"
DECLARE SUB ::SetfAttributeId2 ALIAS "PuiSetfAttributeId2" LIB "pui"
DECLARE SUB ::SetAttributes ALIAS "PuiSetAttributes" LIB "pui"
DECLARE SUB ::ResetAttribute ALIAS "PuiResetAttribute" LIB "pui"
DECLARE SUB ::SetAtt ALIAS "PuiSetAtt" LIB "pui"
DECLARE SUB ::SetAttributeHandle ALIAS "PuiSetAttributeHandle" LIB "pui"
DECLARE SUB ::GetAttributeHandle ALIAS "PuiGetAttributeHandle" LIB "pui"
DECLARE SUB ::GetAttribute ALIAS "PuiGetAttribute" LIB "pui"
DECLARE SUB ::GetAttributeId ALIAS "PuiGetAttributeId" LIB "pui"
DECLARE SUB ::GetAllAttributes ALIAS "PuiGetAllAttributes" LIB "pui"
DECLARE SUB ::GetAttributes ALIAS "PuiGetAttributes" LIB "pui"
DECLARE SUB ::GetFloat ALIAS "PuiGetFloat" LIB "pui"
DECLARE SUB ::GetFloatId ALIAS "PuiGetFloatId" LIB "pui"
DECLARE SUB ::GetFloatId2 ALIAS "PuiGetFloatId2" LIB "pui"
DECLARE SUB ::GetInt ALIAS "PuiGetInt" LIB "pui"
DECLARE SUB ::GetInt2 ALIAS "PuiGetInt2" LIB "pui"
DECLARE SUB ::GetIntInt ALIAS "PuiGetIntInt" LIB "pui"
DECLARE SUB ::GetIntId ALIAS "PuiGetIntId" LIB "pui"
DECLARE SUB ::GetIntId2 ALIAS "PuiGetIntId2" LIB "pui"
DECLARE SUB ::StoreGlobal ALIAS "PuiStoreGlobal" LIB "pui"
DECLARE SUB ::SetGlobal ALIAS "PuiSetGlobal" LIB "pui"
DECLARE SUB ::GetGlobal ALIAS "PuiGetGlobal" LIB "pui"
' Events
DECLARE SUB __GetEvent ALIAS "GetEvent" LIB "pui"
DECLARE SUB __MainLoop ALIAS "PuiMainLoop" LIB "pui"
DECLARE SUB ::MainLoopLevel ALIAS "PuiMainLoopLevel" LIB "pui"
DECLARE SUB __LoopStep ALIAS "PuiLoopStep" LIB "pui"
DECLARE SUB __LoopStepWait ALIAS "PuiLoopStepWait" LIB "pui"
DECLARE SUB __ExitLoop ALIAS "PuiExitLoop" LIB "pui"
DECLARE SUB ::Flush ALIAS "PuiFlush" LIB "pui"
DECLARE SUB ::GetCallback ALIAS "PuiGetCallback" LIB "pui"
DECLARE SUB __SetCallback ALIAS "PuiSetCallback" LIB "pui"
DECLARE SUB ::SetCallbacks ALIAS "PuiSetCallbacks" LIB "pui"
DECLARE SUB ::GetActionName ALIAS "PuiGetActionName" LIB "pui"
DECLARE SUB ::SetFunction ALIAS "PuiSetFunction" LIB "pui"
DECLARE SUB ::RecordInput ALIAS "PuiRecordInput" LIB "pui"
DECLARE SUB ::PlayInput ALIAS "PuiPlayInput" LIB "pui"
' Layout
DECLARE SUB ::Create ALIAS "PuiCreate" LIB "pui"
DECLARE SUB ::Destroy ALIAS "PuiDestroy" LIB "pui"
DECLARE SUB ::Map ALIAS "PuiMap" LIB "pui"
DECLARE SUB ::Unmap ALIAS "PuiUnmap" LIB "pui"
DECLARE SUB ::GetAllClasses ALIAS "PuiGetAllClasses" LIB "pui"
DECLARE SUB ::GetClassName ALIAS "PuiGetClassName" LIB "pui"
DECLARE SUB ::GetClassType ALIAS "PuiGetClassType" LIB "pui"
DECLARE SUB ::ClassMatch ALIAS "PuiClassMatch" LIB "pui"
DECLARE SUB ::GetClassAttributes ALIAS "PuiGetClassAttributes" LIB "pui"
DECLARE SUB ::GetClassCallbacks ALIAS "PuiGetClassCallbacks" LIB "pui"
DECLARE SUB ::SaveClassAttributes ALIAS "PuiSaveClassAttributes" LIB "pui"
DECLARE SUB ::CopyClassAttributes ALIAS "PuiCopyClassAttributes" LIB "pui"
DECLARE SUB ::SetClassDefaultAttribute ALIAS "PuiSetClassDefaultAttribute" LIB "pui"
DECLARE SUB ::Fill ALIAS "PuiFill" LIB "pui"
DECLARE SUB ::Hbox ALIAS "PuiHbox" LIB "pui"
DECLARE SUB ::Vbox ALIAS "PuiVbox" LIB "pui"
DECLARE SUB ::Zbox ALIAS "PuiZbox" LIB "pui"
DECLARE SUB ::Radio ALIAS "PuiRadio" LIB "pui"
DECLARE SUB ::Normalizer ALIAS "PuiNormalizer" LIB "pui"
DECLARE SUB ::Cbox ALIAS "PuiCbox" LIB "pui"
DECLARE SUB ::Sbox ALIAS "PuiSbox" LIB "pui"
DECLARE SUB ::Split ALIAS "PuiSplit" LIB "pui"
DECLARE SUB ::Append ALIAS "PuiAppend" LIB "pui"
DECLARE SUB ::Detach ALIAS "PuiDetach" LIB "pui"
DECLARE SUB ::Insert ALIAS "PuiInsert" LIB "pui"
DECLARE SUB ::Reparent ALIAS "PuiReparent" LIB "pui"
DECLARE SUB ::GetParent ALIAS "PuiGetParent" LIB "pui"
DECLARE SUB ::GetChild ALIAS "PuiGetChild" LIB "pui"
DECLARE SUB ::GetChildPos ALIAS "PuiGetChildPos" LIB "pui"
DECLARE SUB ::GetChildCount ALIAS "PuiGetChildCount" LIB "pui"
DECLARE SUB ::GetNextChild ALIAS "PuiGetNextChild" LIB "pui"
DECLARE SUB ::GetBrother ALIAS "PuiGetBrother" LIB "pui"
DECLARE SUB ::GetDialog ALIAS "PuiGetDialog" LIB "pui"
DECLARE SUB ::GetDialogChild ALIAS "PuiGetDialogChild" LIB "pui"
DECLARE SUB ::Refresh ALIAS "PuiRefresh" LIB "pui"
DECLARE SUB ::RefreshChildren ALIAS "PuiRefreshChildren" LIB "pui"
DECLARE SUB ::Update ALIAS "PuiUpdate" LIB "pui"
DECLARE SUB ::UpdateChildren ALIAS "PuiUpdateChildren" LIB "pui"
DECLARE SUB ::Redraw ALIAS "PuiRedraw" LIB "pui"
DECLARE SUB ::ConvertXYToPos ALIAS "PuiConvertXYToPos" LIB "pui"
' Dialog
DECLARE SUB ::Dialog ALIAS "PuiDialog" LIB "pui"
DECLARE SUB ::Popup ALIAS "PuiPopup" LIB "pui"
DECLARE SUB ::Show ALIAS "PuiShow" LIB "pui"
DECLARE SUB ::ShowXY ALIAS "PuiShowXY" LIB "pui"
DECLARE SUB ::Hide ALIAS "PuiHide" LIB "pui"
DECLARE SUB ::FileDlg ALIAS "PuiFileDlg" LIB "pui"
DECLARE SUB ::MessageDlg ALIAS "PuiMessageDlg" LIB "pui"
DECLARE SUB ::ColorDlg ALIAS "PuiColorDlg" LIB "pui"
DECLARE SUB ::FontDlg ALIAS "PuiFontDlg" LIB "pui"
DECLARE SUB ::Alarm ALIAS "PuiAlarm" LIB "pui"
DECLARE SUB ::GetFile ALIAS "PuiGetFile" LIB "pui"
DECLARE SUB ::GetColor ALIAS "PuiGetColor" LIB "pui"
DECLARE SUB ::GetParam ALIAS "PuiGetParam" LIB "pui"
DECLARE SUB ::GetText ALIAS "PuiGetText" LIB "pui"
DECLARE SUB ::ListDialog ALIAS "PuiListDialog" LIB "pui"
DECLARE SUB ::Message ALIAS "PuiMessage" LIB "pui"
DECLARE SUB ::LayoutDialog ALIAS "PuiLayoutDialog" LIB "pui"
DECLARE SUB ::ElementPropertiesDialog ALIAS "PuiElementPropertiesDialog" LIB "pui"
' Controls
DECLARE SUB ::Button ALIAS "PuiButton" LIB "pui"
DECLARE SUB ::Canvas ALIAS "PuiCanvas" LIB "pui"
DECLARE SUB ::Frame ALIAS "PuiFrame" LIB "pui"
DECLARE SUB ::Label ALIAS "PuiLabel" LIB "pui"
DECLARE SUB ::List ALIAS "PuiList" LIB "pui"
DECLARE SUB ::MultiLine ALIAS "PuiMultiLine" LIB "pui"
DECLARE SUB ::ProgressBar ALIAS "PuiProgressBar" LIB "pui"
DECLARE SUB ::Spin ALIAS "PuiSpin" LIB "pui"
DECLARE SUB ::Tabs ALIAS "PuiTabs" LIB "pui"
DECLARE SUB ::Tabsv ALIAS "PuiTabsv" LIB "pui"
DECLARE SUB ::Text ALIAS "PuiText" LIB "pui"
DECLARE SUB ::Toggle ALIAS "PuiToggle" LIB "pui"
DECLARE SUB ::Tree ALIAS "PuiTree" LIB "pui"
DECLARE SUB ::Val ALIAS "PuiVal" LIB "pui"
DECLARE SUB ::Cells ALIAS "PuiCells" LIB "pui"
DECLARE SUB ::Colorbar ALIAS "PuiColorbar" LIB "pui"
DECLARE SUB ::ColorBrowser ALIAS "PuiColorBrowser" LIB "pui"
DECLARE SUB ::Dial ALIAS "PuiDial" LIB "pui"
DECLARE SUB ::Matrix ALIAS "PuiMatrix" LIB "pui"
DECLARE SUB ::GLCanvas ALIAS "PuiGLCanvas" LIB "pui"
DECLARE SUB ::PPlot ALIAS "PuiPPlot" LIB "pui"
DECLARE SUB ::WebBrowser ALIAS "PuiWebBrowser" LIB "pui"
' Resources
DECLARE SUB ::Image ALIAS "PuiImage" LIB "pui"
DECLARE SUB ::ImageRGB ALIAS "PuiImageRGB" LIB "pui"
DECLARE SUB ::ImageRGBA ALIAS "PuiImageRGBA" LIB "pui"
DECLARE SUB ::ImageLibOpen ALIAS "PuiImageLibOpen" LIB "pui"
DECLARE SUB ::LoadImage ALIAS "PuiLoadImage" LIB "pui"
DECLARE SUB ::SaveImage ALIAS "PuiSaveImage" LIB "pui"
DECLARE SUB ::NextField ALIAS "PuiNextField" LIB "pui"
DECLARE SUB ::PreviousField ALIAS "PuiPreviousField" LIB "pui"
DECLARE SUB ::GetFocus ALIAS "PuiGetFocus" LIB "pui"
DECLARE SUB ::SetFocus ALIAS "PuiSetFocus" LIB "pui"
DECLARE SUB ::Item ALIAS "PuiItem" LIB "pui"
DECLARE SUB ::Menu ALIAS "PuiMenu" LIB "pui"
DECLARE SUB ::Menuv ALIAS "PuiMenuv" LIB "pui"
DECLARE SUB ::Separator ALIAS "PuiSeparator" LIB "pui"
DECLARE SUB ::Submenu ALIAS "PuiSubmenu" LIB "pui"
DECLARE SUB ::SetHandle ALIAS "PuiSetHandle" LIB "pui"
DECLARE SUB ::GetHandle ALIAS "PuiGetHandle" LIB "pui"
DECLARE SUB ::GetName ALIAS "PuiGetName" LIB "pui"
DECLARE SUB ::GetAllNames ALIAS "PuiGetAllNames" LIB "pui"
DECLARE SUB ::GetAllDialogs ALIAS "PuiGetAllDialogs" LIB "pui"
DECLARE SUB ::Clipboard ALIAS "PuiClipboard" LIB "pui"
DECLARE SUB ::Timer ALIAS "PuiTimer" LIB "pui"
DECLARE SUB ::User ALIAS "PuiUser" LIB "pui"
DECLARE SUB ::Help ALIAS "PuiHelp" LIB "pui"
' DECLARE SUB ::GetListText ALIAS "PuiGetListText" LIB "pui"
' DECLARE SUB ::ClearList ALIAS "PuiClearList" LIB "pui"
' Helper Functions
DECLARE SUB ::GetListText ALIAS "PuiGetListText" LIB "pui"
DECLARE SUB ::GetBtnPressed ALIAS "PuiGetBtnPressed" LIB "pui"
DECLARE SUB ::GetBtnState ALIAS "PuiGetBtnState" LIB "pui"
DECLARE SUB ::ClearList ALIAS "PuiClearList" LIB "pui"
DECLARE SUB ::Info ALIAS "PuiInfo" LIB "pui"
SUB MainLoop
ExitLoop = 0
REPEAT
__LoopStepWait()
this_event = __GetEvent()
IF this_event <> undef THEN
IF this_event = event{this_event}[0] THEN
ICALL(event{this_event}[1])
END IF
END IF
UNTIL ExitLoop
END SUB
FUNCTION SetCallback(ih, aname, faddr)
event{ih}[0] = ih
event{ih}[1] = faddr
event{ih}[2] = aname
SetCallback = __SetCallback(ih, aname)
END FUNCTION
END MODULE