REVO5500 recipesMain 3 H 0D #function lastThing str,tDelim -- last item of str given itemdelim = tDelim return getItem(str,-1,tDelim) end lastThing function getItem tList,tIndex,tDelim -- returns item # tIndex of tList, given itemdelimiter = tDelim -- could just "get item tIndex of tList" in the calling handler but -- then have to set and restore the itemDelimiter, so this is less hassle -- defaults to tDelim = comma if tDelim = empty then put comma into tDelim set the itemdelimiter to tDelim return item tIndex of tList end getItem on setUpIcons global gRevAppIcon put 3394 into gRevAppIcon end setUpIcons on mousemove if the name of the target contains "button" then set the defaultcursor to hand else set the defaultcursor to empty end if pass mousemove end mousemove on mouseleave set the defaultcursor to empty end mouseleave function spaces n put "" into s repeat n put " " after s end repeat return s end spaces function returns n put "" into r repeat n put return after r end repeat return r end returns function tabs n put "" into t repeat n put tab after t end repeat return t end tabs function underL n put "" into u repeat n put "_" after u end repeat return u end underL function rpl theText,ostr,rstr if rstr contains ostr then setUpIcons answer "Can't replace a string by something that contains it!" exit to top end if put the number of chars of ostr into b repeat until ostr is not in theText put offset(ostr,theText) into f put rstr into char f to (f+b-1) of theText end repeat return theText end rpl function sr str -- strip returns & other white space fore & aft return word 1 to (the number of words of str) of str end sr function q str return quote & str & quote end q function sq str return "'" & str & "'" end sq function AskFn prompt,def setUpIcons ask prompt with def as sheet return it end AskFn function AskFileFn prompt,def ask file prompt with def as sheet if it is empty then exit to top else return it end AskFileFn function AnswerFn prompt,button1,button2,button3 setUpIcons if button1 = "" then answer prompt as sheet else if button2 = "" then answer prompt with button1 as sheet else if button3 = "" then answer prompt with button1 or button2 as sheet else answer prompt with button1 or button2 or button3 as sheet if it is empty then exit to top else return it end AnswerFn function AnswerFileFn prompt,theType if fileType = "" then answer file prompt as sheet else answer file prompt of type theType as sheet end if if it is empty then exit to top else return it end AnswerFileFn function importFn theFilePath put there is a file theFilePath into testFile open file theFilePath read from file theFilePath until EOF close file theFilePath return it end importFn on exportFile pathname,container,isBinfile if isBinfile = empty then put "file:" into tPref else if isBinfile then put "binfile:" into tPref else put "file:" into tPref end if put container into url (tPref & pathname) end exportFile function whichLineEquals str,ctr if ctr = "" or str = "" then return 0 if str is not in ctr then return 0 put offset(return & str & return,return & ctr & return) into where if where = 0 then return 0 return number of lines of (char 1 to where of ctr) end whichLineEquals function whichLineStarts str ctr if ctr = "" or str = "" then return 0 if str is not in ctr then return 0 put offset(return & str,return & ctr) into where if where = 0 then return 0 return number of lines of (char 1 to where of ctr) end whichLineStarts function howMany ch,str -- returns how many instances of character ch int string str put the itemDelimiter into oldID put char 1 of ch into ch if ch is not in str then return 0 set the itemDelimiter to ch put (the number of items of str) - 1 into nbr set the itemDelimiter to oldID if ch is char -1 of str then add 1 to nbr return nbr end howMany function firstNbr str put the number of chars of str into nbr repeat with n = 1 to nbr if char n of str is a number then exit repeat end repeat if n = nbr and the last char of str is not a number then return 0 else return n end if end firstNbr function fixDblSpaces str repeat until " " is not in str replace " " with " " in str end repeat return str end fixDblSpaces function offsets str,ctr -- returns a comma-delimited list of all the offsets of str in ctr put "" into mosList put 0 into startPoint repeat put offset(str,ctr,startPoint) into os if os = 0 then exit repeat add os to startPoint put startPoint & "," after mosList end repeat if char -1 of mosList = "," then delete last char of mosList if mosList = "" then return "0" return mosList end offsets function lineOffsets str,ctr put offsets(str,ctr) into charList if charList = "0" then return "0" put the number of items of charList into nbr put "" into mlo repeat with n = 1 to nbr put the number of lines of (char 1 to (item n of charList) of ctr) & "," after mlo end repeat if char -1 of mlo = "," then delete char -1 of mlo return mlo end lineOffsets function getLastLine str,ctr -- returns the last line of ctr that contains str if str is not in ctr then return 0 put number of lines of ctr into totLines put 0 into linesToSkip repeat put lineoffset(str,ctr,linesToSkip) into L if L = 0 then exit repeat end if add L to linesToSkip end repeat return linesToSkip end getLastLine function isAlineIn str,ctr return (str is among the lines of ctr) end isAlineIn function isAnElementOf str,ctnr,delim if delim = "" then return false -- likely to be an error if str = "" then return false if ctnr = "" then return false put char 1 of delim into delim if str contains delim then return false if (delim & str & delim) is in (delim & ctnr & delim) then return true return false end isAnElementOf function isAnItemIn str,ctnr,delim -- returns true if str is an item of the container ctnr if delim = "" then put the itemDelimiter into delim if str contains delim then return false if (delim & str & delim) is in (delim & ctnr & delim) then return true if (return & str & delim) is in (return & ctnr & delim) then return true if (delim & str & return) is in (delim & ctnr & return) then return true if (return & str & return) is in (return & ctnr & return) then return true return false end isAnItemIn function whichWord str,theText return wordoffset(str,theText) end whichWord function truncate str,nbr if nbr > length(str) then return str return (char 1 to nbr-1 of str) & "" end truncate function whichItem str,list -- returns the line number and item number (in the line) of the first occurrence of str in list put number of lines of list into L put the itemdelimiter into I put offset(return & str & I,return & list & I) into t if t=0 then put offset(I & str & I,list & I) into t end if if t=0 then put offset(I & str & return,list & return) into t if t <> 0 then add 1 to t end if if t = 0 then put offset(I & " " & str & I,list & I) into t end if if t=0 then put offset(I & " " & str & return,list & return) into t if t <> 0 then add 1 to t end if if t = 0 then return "0,0" else add 2 to t end if put the number of lines of char 1 to t of list into lineNbr if L = 1 or lineNbr = 1 then return "1," & number of items of char 1 to t of list put number of chars of line 1 to lineNbr-1 of list into upToHere put t - upToHere into offsetInLine put number of items of char 1 to offsetInLine of line lineNbr of list into itemNbr return lineNbr & "," & itemNbr end whichItem on RFformatPrintFld r,notesLine,ingrLine,dirLine put cr & "RFformatPrintFld started" after fld "notes" of stack "recipesData" put r = empty into printHelp set the topleft of stack "recipePrint" to -1000,-1000 go stack "recipePrint" set the height of stack "recipePrint" to 792 set the backcolor of fld "printtext" of stack "recipePrint" to "white" if printHelp then set the textSize of word 1 to -1 of fld "printtext" of stack "recipePrint" to "12" else put r into fld "printtext" of stack "recipePrint" set the textSize of word 1 to -1 of fld "printtext" of stack "recipePrint" to "12" set the textSize of word 1 to -1 of line 1 of fld "printtext" of stack "recipePrint" to "14" set the textStyle of line 1 of fld "printtext" of stack "recipePrint" to "bold" if notesLine <> empty then set the textStyle of line notesLine of fld "printtext" of stack "recipePrint" to "bold" set the textStyle of line ingrLine of fld "printtext" of stack "recipePrint" to "bold" set the textStyle of line dirLine of fld "printtext" of stack "recipePrint" to "bold" end if set the textheight of fld "printtext" of stack "recipePrint" to 14 end if put cr & "RFformatPrintFld ended" after fld "notes" of stack "recipesData" end RFformatPrintFld 5Q U Bookman Old Style cRevOnline id 285 cREVGeometryCache stackID 1009 cRevStandaloneSettings CscriptLibraries %Font Support Internet Printing Table MacOSX true OSX,iconFile RF icons/RFlogo7.icnsMacOS,documentType UNIX,fileSelector trueWindows trueWindows,LegalCopyright ( 2008-13 All rights reserved worldwideUNIX,pageSetup trueOSX,smallappicon 1826Odt false answerDialog trueWindows,copyright #2005 All rights reserved worldwide SolIntel falseWindows,FileDescription RecipeFile 2.0 for WindowsOSX,longVersion RecipeFile 2.0Windows,buildU3 falseOSX,copyright * 2008-2013 All rights reserved worldwideOSX,documentIconFile MacOS,versionnumber1 1MacOS,versionnumber2 0MacOS,Release FinalOSX,identifier com..RecipeFilename RecipeFileMacOS,versionnumber3 0moveSubstacks trueHp9k700 falseOSX,shortVersion 2.0Windows,fileversion1 2Windows,fileversion2 0Windows,fileversion3 0cursors trueWindows,fileversion4 0MacOSX PowerPC-32 falseMacOS,dynamicMemory true Windows,UUID $960B6794-F93C-4590-87E5-FBB171C9DC6EIris falseMacOS,PreferredSize 15000 MacOSPPC falseMacOS,creator ???? OSX,name RecipeFileOSX,appicon 1825MacOS,longVersion recipesMain 1.0.0.0OSX,documentType Linux falseinclusions selectWindows,documenticonFile SPARC falseOSX,documentExtension UNIX,printerChooser trueMacOS,shortVersion 1.0.0.0MacOS,MinimumSize 15000rs6000 false MacOS,Region 1Windows,productversion1 2Windows,productversion2 0Bsd falseWindows,productversion3 0Windows,productversion4 0 OSX,info RecipeFile Version 2.0 askDialog trueOSX,signature ????Windows,iconFile RF icons/RFlogo7.icoWindows,ProductName RecipeFileUNIX,colorChooser trueMacOSX x86-32 falseWindows,companyname SolSparc false cREVGeneral scriptChecksum |'pPߺp debugObjects =button id 1021 of group id 1028 of card id 4233 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4296 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4297 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4313 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4391 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4454 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4455 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4520 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4583 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4584 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4585 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4569 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4632 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4633 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4618 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4663 of stack "recipesData" of stack "recipesMain" button id 1021 of group id 1028 of card id 4666 of stack "recipesData" of stack "recipesMain"handlerList breakpoints breakpointstates scriptSelection char 25 to 24scripteditorvscroll 3145breakpointconditions bookmarks scripteditorselection 5291tempScript prevHandler openstackscript
--on openstack
put the long name of the target
end openstack
P[on preopenstack set the blendlevel of this stack to 100 end preopenstack on openstack put the loc of stack "recipesData" into w set the loc of this stack to w repeat with n = 100 down to 0 set the blendlevel of this stack to n wait 4 millisecs end repeat wait 50 ticks set the blendlevel of stack "recipesData" to 100 go stack "recipesData" in a new window set the resizable of stack "recipesData" to true go stack "recipesMain" repeat with n = 0 to 100 set the blendlevel of this stack to n set the blendlevel of stack "recipesData" to 100-n wait 3 millisecs end repeat set the backcolor of fld "printtext" of stack "recipePrint" to "white" set the backcolor of stack "recipePrint" to "white" set the blendlevel of stack "recipesMain" to 100 go stack "recipesData" end openstack cREVGeometryCacheIDs 1199649044627 1009 cREVGeometrycache total 1order cREVGeneral scriptChecksum ѯ;W`~handlerList preopenstack openstackbreakPoints scriptSelection char 447 to 446 bookmarks scripteditorvscroll 247scripteditorselection 843prevHandler openstacktempScript scripton preopenstack
set the blendlevel of this stack to 100
end preopenstack
on openstack
put the loc of stack "recipesData" into w
set the loc of this stack to w
repeat with n = 100 down to 0
set the blendlevel of this stack to n
wait 4 millisecs
end repeat
wait 50 ticks
set the blendlevel of stack "recipesData" to 100
go stack "recipesData" in a new window
set the resizable of stack "recipesData" to true
go stack "recipesMain"
repeat with n = 0 to 100
set the blendlevel of this stack to n
set the blendlevel of stack "recipesData" to 100-n
wait 3 millisecs
end repeat
close stack "recipesMain"
end openstack
RFlogo7-256.png ϻPNG IHDR \rf pHYs .# .#x?v MiCCPPhotoshop ICC profile xڝSwX>eVBl "#Y a@Ņ VHUĂ H(gAZU\8ܧ}zy&j