-- Demo using Balloontips with textedit controls

-- /* ToolTips icons */
--    TTI_NONE    =           0,
--    TTI_INFO    =           1,
--    TTI_WARNING =           2,
--    TTI_ERROR   =           3,
-- #if (_WIN32_WINNT >= 0x0600) >= Vista
--    TTI_INFO_LARGE  =   4,
--    TTI_WARNING_LARGE=  5,
--    TTI_ERROR_LARGE =   6,

include gui/tin/tinewg.exw

Window()

atom tedit1=Control(Edit,"",10,10,120,20)


procedure showtip()
    ShowBallon(tedit1,"Info for the EditBox","Type your name here",TTI_INFO_LARGE)
end procedure

procedure hidetip()
    HideBalloon(tedit1)
end procedure

SetHandler(tedit1,Click,routine_id("showtip"))
SetHandler(WinHwnd,Move,routine_id("hidetip"))

WinMain()