REVO2700 Font Loading Sampler 3 Pglobal gMouseChecking local sHasDividerBeenUsed function checkHasDividerBeenUsed return sHasDividerBeenUsed end checkHasDividerBeenUsed() on setHasDividerBeenUsed pFlag put pFlag into sHasDividerBeenUsed end setHasDividerBeenUsed on doneResizing put false into gMouseChecking local tRect put the rect of this stack into tRect local tRight put item 3 of tRect into tRight local tBottom put item 4 of tRect into tBottom end doneResizing on CheckMouseState put true into gMouseChecking if the mouse is up then doneResizing else if "CheckMouseState" is not among the items of the pendingMessages then send "CheckMouseState" to me in 10 milliseconds end if end if end CheckMouseState Font Loading Sampler altFont.dll altFont.bundle U Tahoma U Tahoma U MS Serif U WST_Fren U WST_Germ U WST_Span U Roman U System U Terminal U Terminal U Terminal U Terminal U Modern U MS Serif U WST_Fren U WST_Fren U WST_Fren U Roman U Fixedsys U Georgia U Georgia U Georgia U Roman U Script U Tahoma U Tahoma U Tahoma U Small Fonts U WST_Germ U WST_Germ U WST_Germ U JeffreyPrint JL Condensed U JeffreyPrint JL Condensed U JeffreyPrint JL Condensed U FranklinGotTDemCon U Dingbats U Twentieth Century Poster1 U Plump MT U Space Toaster U Footlight MT Light U A.C.M.E. Explosive U A.C.M.E. Explosive U A.C.M.E. Explosive U Raavi U Sylfaen U Bogusflow U Bogusflow U Saloon U Saloon U Sydnie U FranklinGotTDemCon U Tahoma U Cowboys U PTBarnum BT U Futura BdCn BT U Wingdings 3 U Wingdings 2 U OpenSymbol U Bitstream Vera Serif U Script U Sydnie U Segoe UI U FranklinGotTDemCon U Electronics U StyleBats U Tattooz U Segoe UI U Eurostile U Sydnie U Lintsec U Eco-Files U Emblem U Enigmatic U Cooper Blk BT U Cooper Lt BT U Lucida Grande U International Super Hero U International Super Hero U International Super Hero U JeffreyPrint JL U Balogna U tahoma U Plantagenet Cherokee U Sathu U Krungthep U GB18030 Bitmap U ķ U Silom U Chalkboard Bold U Euphemia UCAS U InaiMathi U InaiMathi U InaiMathi U Planet X U Rafika U A.C.M.E. Secret Agent U VTCSundaykomix U Wide awake U System U WST_Engl U Small Fonts U WST_Czec U Arial U Arial U WST_Ital U WST_Span U Lucida Console U Miss Ellen U Miss Ellen U Miss Ellen U Modern U WST_Swed U Microsoft Sans Serif U Nina U Albertus Medium U Antique Olive U WST_Swed U Antique Olive CompactPS U Albertus MT U Albertus Extra Bold U Albertus MT Lt U #PC U #üü U #ʱü U #A U Lucida Grande U Academy Engraved LET U American Typewriter U Abadi MT Condensed Extra Bold U American Typewriter Light U Abadi MT Condensed Light U BD Renaissance U U Geeza Pro Bold U Geneva U Geneva CE U Geeza Pro U Geneva U #A U Abadi MT Condensed Light U American Typewriter Condensed U American Typewriter U American Typewriter U $American Typewriter Condensed Light U BD Renaissance U BD Renaissance cREVGeneral scriptChecksum VpZ<-R debugObjects handlerList JcheckHasDividerBeenUsed setHasDividerBeenUsed doneResizing CheckMouseStatebreakPoints scriptSelection char 404 to 403 bookmarks prevHandler checkHasDividerBeenUsedtempScript stackfileversion 2.7script
global gMouseChecking
local sHasDividerBeenUsed
function checkHasDividerBeenUsed
return sHasDividerBeenUsed
end checkHasDividerBeenUsed()
on setHasDividerBeenUsed pFlag
put pFlag into sHasDividerBeenUsed
end setHasDividerBeenUsed
on doneResizing
put false into gMouseChecking
local tRect
put the rect of this stack into tRect
local tRight
put item 3 of tRect into tRight
local tBottom
put item 4 of tRect into tBottom
end doneResizing
on CheckMouseState
put true into gMouseChecking
if the mouse is up then
doneResizing
else
if "CheckMouseState" is not among the items of the pendingMessages then
send "CheckMouseState" to me in 10 milliseconds
end if
end if
end CheckMouseState
cConsLast HandlerScroll 0HandlerName cREVGeometryCache stackID 1050 card id 1002 Pon resizeStack pNewW, pNewH, pOldW, pOldH global gMouseChecking if gMouseChecking is not true then CheckMouseState end if pass resizeStack end resizeStack on preOpenStack end preOpenStack on openCard initMe end openCard on initMe lock screen stripAndShip loadFontNames set the hilitedLine of field "fontNames" to 1 set the textFont of field "Sample" to line 1 of field "fontNames" unlock screen end initMe on stripAndShip put empty into fld "FontNames" put the cSampleText of fld "Sample" into fld "Sample" set the hilitedButton of grp "gFontSize" to 1 set the textfont of fld "Sample" to "" set the textsize of fld "Sample" to 12 end stripAndShip # Put the fontNames into the relevant field. on loadFontnames pFontToSelect lock screen get the fontNames sort it put it into field "fontNames" get lineOffset(pFontToSelect, it) if it is not 0 or it is not empty then set the hilitedLine of field "fontNames" to it set the textFont of field "Sample" to pFontToSelect end if end loadFontnames altMsg1The external is LOCKED and cannot be deleted.
This is probably because it is currently in use by RunRev. Please quit and restart RunRev and try again!
cConsLast HandlerScroll 287HandlerName preOpenStack message cREVGeometryCacheIDs 1137624692142 920181134886080275 10371137624994610 10221136412477065 10121137624790871 920191135815208995 10101177683475910 10501135814843674 10041137627288353 920221137625250727 10391137627288354 920231137625009801 10241137626100252 10331101849408369 920161137627288408 10361137625249296 10381135815169478 10061137625052426 920201101849445699 920151135815173909 1009 cREVGeometrycache order 1137624994610 total 20 cREVGeneral scriptChecksum ꢬ=|o? bookmarks breakPoints handlerList CresizeStack preOpenStack openCard initMe stripAndShip loadFontnamestempScript prevHandler initMescriptSelection char 497 to 496scripton resizeStack pNewW, pNewH, pOldW, pOldH
global gMouseChecking
if gMouseChecking is not true then
CheckMouseState
end if
pass resizeStack
end resizeStack
on preOpenStack
end preOpenStack
on openCard
initMe
end openCard
on initMe
lock screen
stripAndShip
loadFontNames
set the hilitedLine of field "fontNames" to 1
set the textFont of field "Sample" to line 1 of field "fontNames"
unlock screen
end initMe
on stripAndShip
put empty into fld "FontNames"
put the cSampleText of fld "Sample" into fld "Sample"
set the hilitedButton of grp "gFontSize" to 1
set the textfont of fld "Sample" to ""
set the textsize of fld "Sample" to 12
end stripAndShip
# Put the fontNames into the relevant field.
on loadFontnames pFontToSelect
lock screen
get the fontNames
sort it
put it into field "fontNames"
get lineOffset(pFontToSelect, it)
if it is not 0 or it is not empty then
set the hilitedLine of field "fontNames" to it
set the textFont of field "Sample" to pFontToSelect
end if
end loadFontnames
go gp gr gs gt gv gw Load Font Ep'on mouseUp local tOldList, tNumOfFonts, tResult, tNewList, tFontName answer file "Choose a ttf file to load" if it is empty then exit mouseUp end if put the fontNames into tOldList put the number of lines in tOldList into tNumOfFonts -- Use the revFont external to load the font file. revFontLoad it put the result into tResult if tResult is not empty then -- There was an error loading this font. answer error tResult exit mouseUp end if put the fontnames into tNewList if the number of lines in tNewList is tNumOfFonts + 1 then -- There is one more font than before: success put diffLists(tOldList,tNewList) into tFontName -- Reload the fontnames into the relevant field, and select this new font. loadFontnames tFontName answer info "Font successfully loaded: " & tFontName else answer info "Problem loading font." & return & \ "This could be because it is already loaded, or the file is not of correct type!" end if end mouseUp function diffLists pOldList, pNewList set the wholematches to true repeat with x = the number of lines in pNewList down to 1 if line x of pNewList is not among the lines of pOldList then return line x of pNewList end if end repeat end diffLists 2 R 2 cConsLast HandlerScroll 190HandlerName mouseUp message cREVGeneral scriptChecksum uk=ݱNbreakPoints handlerList mouseUp diffListsscriptSelection char 90 to 89revUniqueID 1135814843674 bookmarks tempScript prevHandler diffListsscript &on mouseUp
local tOldList, tNumOfFonts, tResult, tNewList, tFontName
answer file "Choose a ttf file to load"
if it is empty then
exit mouseUp
end if
put the fontNames into tOldList
put the number of lines in tOldList into tNumOfFonts
-- Use the revFont external to load the font file.
revFontLoad it
put the result into tResult
if tResult is not empty then
-- There was an error loading this font.
answer error tResult
exit mouseUp
end if
put the fontnames into tNewList
if the number of lines in tNewList is tNumOfFonts + 1 then
-- There is one more font than before: success
put diffLists(tOldList,tNewList) into tFontName
-- Reload the fontnames into the relevant field, and select this new font.
loadFontnames tFontName
answer info "Font successfully loaded: " & tFontName
else
answer info "Problem loading font." & return & \
"This could be because it is already loaded, or the file is not of correct type!"
end if
end mouseUp
function diffLists pOldList, pNewList
set the wholematches to true
repeat with x = the number of lines in pNewList down to 1
if line x of pNewList is not among the lines of pOldList then
return line x of pNewList
end if
end repeat
end diffLists
fontNames )p