REVO2700 ToolTipper2on showTip put line 1 of the selectedobjects into tObj # just use the first if more than one if tObj is empty then put the mousecontrol into tNum # control xx if tNum is empty then exit to top put the mousestack into tStack # just the name if tStack is empty then exit to top put tNum & " of stack " & quote & tStack & quote into tMouseObj put the long id of tMouseObj into tObj end if put the long id of tObj into fld "ObjectName" of stack "ToolTipper" put the tooltip of tObj into fld "Tip" of stack "ToolTipper" end showTip on commandKeyDown pKey if pKey = "\" then showTip end if pass commandKeyDown end commandKeyDown hhhhhh`Whx ToolTipper UVerdana WVerdana cGlx2General cConstantscHandlersListWidth169 cDirtyFlagfalsecHtmlHandlersr)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&p!kHZ_28 cFolders all handlerscScriptChecksum cHandlerscommandKeyDown showTipcVscrollScript0cExplicitVariablescHscrollScript0cLocalscVscrollHandlers0cHscrollHandlers0 cHtmlScriptFR1R0+n ] CR$%bS,ylFyowOH[i|Q\>V xXA@=&`:> u"-noӟ 1UI6t'}oX&׆as8(>r3r[Y~N"ǸDWJV@U/=uʅ[t˪&JOAh+X̓n]@Cyƥ8Ċ'p=(9U)c%Ù{ ]-8d=4{_6<Σ^ `3_Mt/\cSelectedChunkchar 521 to 520 cHilitedLine cGlobalscGlx2TimeStamp checksumy-fy'E^U6w 1201607909start cREVGeneral breakPoints  ObjectName X(6This field shows the long name of the current object.cGlx2TimeStamp checksum cREVTable currentviewuRIPcreator  cREVGeneral revUniqueID 1148880404496 breakPoints Tipipon enterInField click at the loc of btn "Set" end enterInField on returnInField click at the loc of btn "Set" end returnInField @*X;Enter your tooltip here, then click 'Set' or press Return.cGlx2TimeStamp checksumuRIPcreator  cREVGeneral revUniqueID 1148880420926 breakPoints  SetE?\on mouseUp put fld "ObjectName" into tObj if there is not a tObj then beep put "No such object." into fld "SetStatus" else put the name of tObj into tName put line 1 of fld "Tip" into tTip set the tooltip of tObj to tTip -- set the name of tObj to tTip if the result is empty then put "Tooltip set for " & tName into fld "SetStatus" else put "Error setting tooltip for " & tName into fld "SetStatus" end if end if show fld "SetStatus" put the pendingmessages into tMess repeat for each line L in tMess if L contains "hideStatus" then cancel item 1 of L end repeat send "hideStatus" to me in 5 seconds end mouseUp on hideStatus hide fld "SetStatus" end hideStatus LR2Type your tooltip above and click here to set it.v cGlx2General cConstantscHandlersListWidth120 cDirtyFlagfalsecHtmlHandlerso)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&pũkLI .I,)-G*/ cFolders all handlerscScriptChecksum cHandlershideStatus mouseUpcVscrollScript0cExplicitVariablescHscrollScript0cLocalscVscrollHandlers0cHscrollHandlers0 cHtmlScriptdSn +vˤvm;8 MHiId{10+; 4V£o@_&3B~wje,AXǠR)luBe9۝Z\}HyϊWjˑ!HDtnʚd3"