on resizeStack x,y
set the loc of btn 1 to x-(40 + the width of btn 1 /2), y -40
set the rect of fld 1 to 40, 40, x -40, y -80
end resizeStack
@ Button 1 Ep on mouseUp answer information jpAnswer(wdWidth, jpText, 2) &\ englishTag() & the width of this stack &"" &\ jpAnswer(wdHeight, jpText, 2) &\ englishTag() & the height of this stack &"" &\ jpAnswer(fldRect, jpText, 2) &\ englishTag() & the rect of fld 1 &"" &\ jpAnswer(btnLoc, jpText, 2) &\ englishTag() & the loc of btn 1 &"" as sheet end mouseUp function jpAnswer pTag, pFldName, pCdNum get ("get the text of fld "& pFldName &" of cd "& pCdNum ) do it get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \ of fld pFldName cd pCdNum return replaceText(IT, "", " ") end jpAnswer function englishTag return "" end englishTag ] R cREVGeneral scriptChecksum +aEEbhɭn revUniqueID 1081124146306 bookmarks handlerList mouseUp jpAnswer englishTag tempScript prevHandler englishTagscriptSelection char 11 to 10scripton mouseUp
answer information jpAnswer(wdWidth, jpText, 2) &\
englishTag() & the width of this stack &"</font></p>" &\
jpAnswer(wdHeight, jpText, 2) &\
englishTag() & the height of this stack &"</font></p>" &\
jpAnswer(fldRect, jpText, 2) &\
englishTag() & the rect of fld 1 &"</font></p>" &\
jpAnswer(btnLoc, jpText, 2) &\
englishTag() & the loc of btn 1 &"</font></p>" as sheet
end mouseUp
function jpAnswer pTag, pFldName, pCdNum
get ("get the text of fld "& pFldName &" of cd "& pCdNum )
do it
get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \
of fld pFldName cd pCdNum
return replaceText(IT, "</p>", " ")
end jpAnswer
function englishTag
return "<font face=Geneva size=12>"
end englishTag
Field 1 )` ( (@ cREVGeneral bookmarks revUniqueID 1081124348091 handlerList scriptSelection char 1 to 0 prevHandler tempScript script scriptGrp i l cREVGeneral revUniqueID 1081126030027 scCd ew on mouseUp get the script of cd 1 if the environment is "development" then edit script of cd 1 else answer "Card Script:" &cr&cr& it end if end mouseUp d Card Script cREVGeneral scriptChecksum vget the script of cd 1
if the environment is "development" then
edit script of cd 1
else
answer "Card Script:" &cr&cr& it
end if
end mouseUp
jpText )h 2v cREVGeneral bookmarks revUniqueID 1081127759330 handlerList scriptSelection char 1 to 0 prevHandler tempScript scripton mouseUp
set the text of fld 1 to the htmlText of fld 1
end mouseUp
htmlToUnicode E on mouseUp set the htmlText of fld 1 to the text of fld 1 --set the htmlText of fld 1 to noWarranties() end mouseUp function noWarranties get "カーソルをディスプレイの左上に移動させると、ムービーはストップします。
" return it end noWarranties B l cREVGeneral scriptChecksum A(Ҿj?l 0 revUniqueID 1081127760159 bookmarks handlerList mouseUp noWarranties tempScript prevHandler mouseUpscriptSelection char 502 to 501scripton mouseUp
set the htmlText of fld 1 to the text of fld 1
--set the htmlText of fld 1 to noWarranties()
end mouseUp
function noWarranties
get "<p><font face=Osaka lang=ja>カーソルをディスプレイの左上に移動させると、ムービーはストップします。</font></p>"
return it
end noWarranties
setSizeNfont E on mouseUp set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12 set the textFont of fld 1 to "Osaka" end mouseUp ^ n cREVGeneral scriptChecksum Sjir< C bookmarks revUniqueID 1081127760179 handlerList mouseUpscriptSelection char 86 to 85 prevHandler mouseUp tempScript scripton mouseUp
set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12
set the textFont of fld 1 to "Osaka"
end mouseUp
findTag E ;on mouseUp ask "" find it in fld "jpText" end mouseUp ^ n cREVGeneral scriptChecksum :5p<$ bookmarks revUniqueID 1081127760183 handlerList mouseUpscriptSelection char 46 to 45 prevHandler mouseUp tempScript script qon mouseUp
ask ""
find it in fld "jpText"
end mouseUp
Field 1 n & cREVGeneral revUniqueID 1081132819320 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0