\    File: Tooltip.f
\  Author: Jeff Kelm
\ Created: 18-Nov-1998
\ Updated: 31-Dec-1998
\ a class for managing tooltips



NEEDS BasicWin.f
CR .( Loading Tooltip class...)
\ I haven't played with this yet.


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ \\\  A generic tooltip control class
\
:Class Tooltip  <Super ChildWindow

   Record: ti   \ The TOOLINFO structure
      INT  cbSize
      INT  uFlags
      INT  hwnd
      INT  uId
      \ RECT
        INT  left
        INT  top
        INT  right
        INT  bottom
      INT  hinst
      INT  lpszText
   ;RecordSize: sizeof(TOOLINFO)

   :M DefStyle: ( -- style)   \ default control style
      WS_POPUP WS_BORDER OR  WS_CLIPSIBLINGS OR  WS_CHILD OR
      ;M

   :M DefExStyle: ( -- exStyle)   \ default extended style
      WS_EX_TOOLWINDOW
      ;M

   :M DefClassName: ( -- ClassName)   \ default class name
      Z" tooltips_class32"
      ;M

   :M Create: ( hParent)   \ creates an empty trackbar in parent window
      Create: super
      sizeof(TOOLINFO) TO cbSize
      NULL TO hinst
      ;M

   :M AddTool: ( lpTOOLINFO)   \ add tool in TOOLINFO structure to tooltip
      rel>abs 0 TTM_ADDTOOL SendMessage: self  ?WinError
      ;M

   :M SetText: ( lzString lpTOOLINFO)   \ set new text for a previously defined tool
      SWAP OVER 9 CELLS + !
      rel>abs 0 TTM_UPDATETIPTEXT SendMessage: self  DROP
      ;M

   :M GetText: ( lpTOOLINFO -- lsString)   \ get the current text for a tool
      DUP rel>abs 0 TTM_GETTEXT SendMessage: self  DROP
      9 CELLS +
      ;M

;Class