; http://www.purebasic.com ; Author: Andre Beer / PureBasic Team ; Date: 11. May 2003 If OpenWindow(0,0,0,270,100,#PB_Window_SystemMenu,"GadgetTooltip") And CreateGadgetList(WindowID(0)) ButtonGadget(0,10,30,250,30,"Button with Tooltip") GadgetToolTip(0,"Tooltip for Button") Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow EndIf ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF