home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 February / PCPRO_FEB96.ISO / 3rdparty / tools / library / tooltip2.exe / TIP004.CLW < prev    next >
Encoding:
Text File  |  1995-06-02  |  2.1 KB  |  74 lines
  1.                      MEMBER('TIP.clw')            ! This is a MEMBER module
  2. yellowtip PROCEDURE
  3.  
  4. LocalRequest         LONG,AUTO
  5. OriginalRequest      LONG,AUTO
  6. LocalResponse        LONG,AUTO
  7. WindowOpened         LONG
  8. WindowInitialized    LONG
  9. ForceRefresh         LONG,AUTO
  10. CurrentSelected  LONG,AUTO
  11. yellowtipwin         WINDOW,AT(110,45,88,13),TOOLBOX,NOFRAME
  12.                        BOX,AT(0,0,,12),USE(?Box1),ROUND,FULL,FILL(0FFFFH)
  13.                        STRING(@s20),AT(2,2,,10),FONT('Arial',8,,FONT:regular),USE(yellowmsg),TRN,FULL,CENTER
  14.                      END
  15.   CODE
  16.   LocalRequest = GlobalRequest
  17.   OriginalRequest = GlobalRequest
  18.   LocalResponse = RequestCancelled
  19.   ForceRefresh = False
  20.   CLEAR(GlobalRequest)
  21.   CLEAR(GlobalResponse)
  22.   OPEN(yellowtipwin)
  23.   WindowOpened=True
  24.   y=thread()
  25.   yellowtipwin{prop:xpos}=gxpos
  26.   yellowtipwin{prop:ypos}=gypos
  27.   yellowtipwin{prop:width}=len(clip(yellowmsg))+25
  28.   
  29.     ACCEPT
  30.     CASE EVENT()
  31.     OF EVENT:OpenWindow
  32.       IF NOT WindowInitialized
  33.         DO InitializeWindow
  34.         WindowInitialized = True
  35.       END
  36.       SELECT(?Box1)
  37.     OF EVENT:GainFocus
  38.       IF NOT WindowInitialized
  39.         WindowInitialized = True
  40.         DO InitializeWindow
  41.       ELSE
  42.         ForceRefresh = True
  43.         DO RefreshWindow
  44.       END
  45.     END
  46.   END
  47.   DO ProcedureReturn
  48. !---------------------------------------------------------------------------
  49. ProcedureReturn ROUTINE
  50.   !y=0
  51.   IF WindowOpened
  52.     CLOSE(yellowtipwin)
  53.   END
  54.   IF LocalResponse
  55.     GlobalResponse = LocalResponse
  56.   ELSE
  57.     GlobalResponse = RequestCancelled
  58.   END
  59.   RETURN
  60. !---------------------------------------------------------------------------
  61. InitializeWindow ROUTINE
  62.   DO RefreshWindow
  63. !---------------------------------------------------------------------------
  64. RefreshWindow ROUTINE
  65.   CurrentSelected = SELECTED()
  66.   DISPLAY()
  67.   ForceRefresh = False
  68.   IF SELECTED() <> CurrentSelected
  69.     SELECT(CurrentSelected)
  70.   END
  71. !---------------------------------------------------------------------------
  72. SyncWindow ROUTINE
  73. !---------------------------------------------------------------------------
  74.