on openStack
if exists(stack "revCorral") then
send "openStack" to stack "revCorral"
end if
end openStack
on preOpenStack
set the width of stack "revAltuitHTML" to 60
set the height of stack "revAltuitHTML" to 44
end preOpenStack
on closeStack
end closeStack
on OpenCard
end OpenCard
t firstCd @ < , cREVGeneral bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script u card id 1022 P on resizeStack lock screen get the rect of this card put 1 into fldLborder put -1 into fldRborder put 113 into fldTborder put -17 into fldBborder put -3 into tabLborder put 1 into tabRborder put 44 into tabTborder put 1 into tabBborder set the rect of fld "theText" to \ fldLborder,fldTborder,item 3 of it + fldRborder,item 4 of it + fldBborder set the rect of fld "html" to \ fldLborder,65,item 3 of it + fldRborder,item 4 of it + fldBborder set the rect of fld "htmlText" to \ fldLborder,65,item 3 of it + fldRborder,item 4 of it + fldBborder set the rect of btn "theTabs" to \ tabLborder,tabTborder,item 3 of it + tabRborder,item 4 of it + tabBborder set the rect of btn "Divider" to \ 0,110,item 3 of it,87 set the rect of graphic "blueend" to \ 204,0,the right of this card,42 set the loc of btn id 1146 to 136,item 4 of it -9 set the loc of btn "Copy to Clipboard" to item 3 of it - 55,18 set the loc of btn "tgLbl" to item 3 of it -66, item 4 of it - 9 unlock screen end resizeStack on mouseEnter if "toolbarButton" is in the customKeys of the target then set the colors of btn "border" to empty set the rect of btn "border" to the rect of the target set the textColor of the target to 51,51,255 end if end mouseEnter on mouseDown if "toolbarButton" is in the customKeys of the target then set the topColor of btn "border" to 128,128,128 set the bottomColor of btn "border" to white end if end mouseDown on mouseUp if "toolbarButton" is in the customKeys of the target then --set the defaultStack to "revMenuBar" set the colors of btn "border" to empty set the loc of btn "border" to -100,-100 --set the loc of the target to lOrigLoc set the textColor of the target to empty end if end mouseUp on mouseRelease if "toolbarButton" is in the customKeys of the target then set the loc of btn "border" to -100,-100 set the colors of btn "border" to empty -- set the loc of the target to lOrigLoc set the textColor of the target to empty end if end mouseRelease on mouseLeave if "toolbarButton" is in the customKeys of the target then set the loc of btn "border" to -100,-100 set the textColor of the target to empty end if end mouseLeave function validSelChunck theSelChunk put itemDel into oldItemDel set itemDel to " " if item 2 of theSelChunk > item 4 of theSelChunk then set itemDel to oldItemDel return false else set itemDel to oldItemDel return true end if end validSelChunck on resetBtns set the loc of btn "Bold Inverted" to -100,-100 set the loc of btn "Italic Inverted" to -100,-100 set the loc of btn "Link Inverted" to -100,-100 end resetBtns on linkClicked pLink revGoURL pLink end linkClicked B cREVGeneral scriptChecksum F. 8 *p) bookmarks handlerList eresizeStack mouseEnter mouseDown mouseUp mouseRelease mouseLeave validSelChunck resetBtns linkClicked tempScript prevHandler resizeStackscriptSelection char 1048 to 1047script Eon resizeStack
lock screen
get the rect of this card
put 1 into fldLborder
put -1 into fldRborder
put 113 into fldTborder
put -17 into fldBborder
put -3 into tabLborder
put 1 into tabRborder
put 44 into tabTborder
put 1 into tabBborder
set the rect of fld "theText" to \
fldLborder,fldTborder,item 3 of it + fldRborder,item 4 of it + fldBborder
set the rect of fld "html" to \
fldLborder,65,item 3 of it + fldRborder,item 4 of it + fldBborder
set the rect of fld "htmlText" to \
fldLborder,65,item 3 of it + fldRborder,item 4 of it + fldBborder
set the rect of btn "theTabs" to \
tabLborder,tabTborder,item 3 of it + tabRborder,item 4 of it + tabBborder
set the rect of btn "Divider" to \
0,110,item 3 of it,87
set the rect of graphic "blueend" to \
204,0,the right of this card,42
set the loc of btn id 1146 to 136,item 4 of it -9
set the loc of btn "Copy to Clipboard" to item 3 of it - 55,18
set the loc of btn "tgLbl" to item 3 of it -66, item 4 of it - 9
unlock screen
end resizeStack
on mouseEnter
if "toolbarButton" is in the customKeys of the target then
set the colors of btn "border" to empty
set the rect of btn "border" to the rect of the target
set the textColor of the target to 51,51,255
end if
end mouseEnter
on mouseDown
if "toolbarButton" is in the customKeys of the target then
set the topColor of btn "border" to 128,128,128
set the bottomColor of btn "border" to white
end if
end mouseDown
on mouseUp
if "toolbarButton" is in the customKeys of the target then
--set the defaultStack to "revMenuBar"
set the colors of btn "border" to empty
set the loc of btn "border" to -100,-100
--set the loc of the target to lOrigLoc
set the textColor of the target to empty
end if
end mouseUp
on mouseRelease
if "toolbarButton" is in the customKeys of the target then
set the loc of btn "border" to -100,-100
set the colors of btn "border" to empty
-- set the loc of the target to lOrigLoc
set the textColor of the target to empty
end if
end mouseRelease
on mouseLeave
if "toolbarButton" is in the customKeys of the target then
set the loc of btn "border" to -100,-100
set the textColor of the target to empty
end if
end mouseLeave
function validSelChunck theSelChunk
put itemDel into oldItemDel
set itemDel to " "
if item 2 of theSelChunk > item 4 of theSelChunk then
set itemDel to oldItemDel
return false
else
set itemDel to oldItemDel
return true
end if
end validSelChunck
on resetBtns
set the loc of btn "Bold Inverted" to -100,-100
set the loc of btn "Italic Inverted" to -100,-100
set the loc of btn "Link Inverted" to -100,-100
end resetBtns
on linkClicked pLink
revGoURL pLink
end linkClicked
x w v ^ I \ _ ` q y { @ B M N O P Q R [ j r s icons group i d( 3 cREVGeneral bookmarks revUniqueID 971717392786 handlerList scriptSelection prevHandler tempScript script Save B Non mouseUp send "menuPick" && quote&"Save""e to btn "File" end mouseUp Nl # # cTopLeft 71,23cREVtoolbarButton Save cREVGeneral handlerList mouseUp tempScript script Cut B Mon mouseUp send "menuPick" && quote&"Cut""e to btn "Edit" end mouseUp pl ) # cTopLeft 105,23cREVtoolbarButton Cut cREVGeneral handlerList mouseUp tempScript script Edit Script B' 4on mouseUp edit script of the selobj end mouseUp Nl ) # cTopLeft 327,23cREVtoolbarButton Edit Script Script cREVGeneral bookmarks handlerList mouseUpscriptSelection char 1 to 10 prevHandler mouseUp tempScript script Message Box ' Zon mouseUp send "menuPick" && quote & "Message box" & quote to btn "Tools" end mouseUp l # # cTopLeft 450,23cREVtoolbarButton Message Box Msg cREVGeneral scriptChecksum ci4X(W&+V handlerList mouseUp tempScript script Edit Group "& Pon mouseUp send "mouseDown" to group 1 of stack "revMenuBar" set the defaultStack to the topStack if word 1 of (the selObj) is "group" then if revMenuManagerGroup(the selobj) then answer error "Can't edit group that is in use by the Menu Manager. To edit this group close the Menu Manager." exit mouseUp end if start editing the selobj else if the editBg then set the editBg to false if the mode of stack "revApplicationOverview" is not 0 and "group" is in the cREVMode of stack "revApplicationOverview" then --update AO edit group toggle btns send "revUpdatePalette" to this cd of stack "revApplicationOverview" set the cREVDisabled of btn "Edit 2" of this cd of stack "revApplicationOverview" to the cREVDisabled of btn "Edit 2" of this cd of stack "revApplicationOverview" end if end mouseUp l 9 # cREVHilitedText 0edit group - stop editing this background cTopLeft 485,23 revButton falsecREVUnHilitedText Bedit group - edit the currently selected group (background) revbasic falsecREVtoolbarButton Edit Group Edit Group cREVGeneral scriptChecksum Wy og*j bookmarks handlerList mouseUpscriptSelection char 339 to 338 prevHandler mouseUp tempScript script Group Controls ' ?on mouseUp send "mouseDown" to group 1 of this stack if the number of lines in (the selObj) > 1 or word 1 of (the selObj) is not "group" then send menuPick && quote & "Group selected" & quote to btn "Object" else send "menuPick" && quote & "Ungroup selected" & quote to btn "Object" end if end mouseUp #l ) # cREVHilitedText :ungroup - ungroup controls in the current selection cTopLeft 540,23 revButton falsecREVUnHilitedText 6group - group controls in the current selectioncREVtoolbarButton revbasic false (Un)Group Controls Group cREVGeneral scriptChecksum @u L+Y̺# bookmarks handlerList mouseUpscriptSelection char 142 to 141 prevHandler mouseUp tempScript script Select Grouped Controls b' on mouseUp set the selectGroupedControls to not (the selectGroupedControls) if not the selectGroupedControls then set the loc of btn "SGC Inverted" to -100,-100 else set the rect of btn "SGC Inverted" to the rect of btn "Select Grouped Controls" --if not the selectGroupedControls then set the icon of btn "select grouped controls" to 200875 --else set the icon of btn "select grouped controls" to 201230 end mouseUp Ll # # cREVHilitedText Sselect grouped controls - select owner groups instead of individual controls cTopLeft 581,23cREVUnHilitedText Yselect grouped controls - select individual controls instead of their owner groups cREVHelpText Sselect grouped controls - select owner groups instead of individual controlscREVtoolbarButton Select Grouped Controls SGC cREVGeneral scriptChecksum Pi *O bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 428 to 427script Suppress Messages "& on mouseUp set the hilite of me to not the hilite of me send menuPick && quote & "Suppress Messages" & quote to btn "Development" pass mouseUp end mouseUp ol 0 # cTopLeft 616,23cREVtoolbarButton Suppress Messages " Messages cREVGeneral scriptChecksum ӝy=xVJ0~$ bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 161 to 160script Toggle Palettes & con mouseUp send menuPick && quote & "Palettes" & quote to btn "View" pass mouseUp end mouseUp l 0 # cREVHilitedText +toggle palettes - show tool palettes cTopLeft 705,23cREVUnHilitedText +toggle palettes - hide tool palettescREVtoolbarButton Show/Hide Palettes Palettes cREVGeneral scriptChecksum }m{ 5;a bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 99 to 98script Copy B Aon mouseUp send "menuPick" && "Copy" to btn "Edit" end mouseUp l ) # cTopLeft 145,23cREVtoolbarButton Copy cREVGeneral scriptChecksum Q3*3}#J (\, bookmarks handlerList mouseUpscriptSelection char 15 to 14 prevHandler mouseUp tempScript script Paste B Don mouseUp send "menuPick" && "Paste" to btn "Edit" end mouseUp l ) # cTopLeft 186,23cREVtoolbarButton Paste cREVGeneral scriptChecksum w dcVL7+=3 handlerList mouseUp tempScript script Undo B Zon mouseUp select pointer tool --send "menuPick" && "Undo" to btn "Edit" end mouseUp l ) # cTopLeft 226,23 revbasic falsecREVtoolbarButton Undo cREVGeneral scriptChecksum Hselect pointer tool
--send "menuPick" && "Undo" to btn "Edit"
end mouseUp
help1 B' 5on mouseup modeless "revDocs" end mouseup l + # cTopLeft 754,23cREVtoolbarButton "Revolution Documentation Contents Docs cREVGeneral scriptChecksum 7Uon mouseup
modeless "revDocs"
end mouseup
Suppress Errors "' on mouseUp set the hilite of me to not the hilite of me send menuPick && quote & "Suppress Errors" & quote to btn "Development" pass mouseUp end mouseUp l ) # cTopLeft 664,23cREVtoolbarButton Suppress Errors # Errors cREVGeneral scriptChecksum %J
end mouseUp
prevHandler mouseUpscriptSelection char 87 to 86 Colors B son mouseUp send "menuPick" && quote & "Colors And Patterns" & quote to btn "Object" pass mouseUp end mouseUp wl ) # cTopLeft 368,23cREVtoolbarButton Color Properties cREVGeneral scriptChecksum m۩;ny7 ' revUniqueID 963110710621 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 71 to 70script Text1 B' Non mouseUp send "menuPick Text" to btn "Object" pass mouseUp end mouseUp l ) # cTopLeft 409,23cREVtoolbarButton Text Properties Text cREVGeneral scriptChecksum *7.o bookmarks revUniqueID 963110745807 handlerList mouseUpscriptSelection char 53 to 64 prevHandler mouseUp tempScript Yon mouseUp
send "menuPick Text" to btn "Object"
pass mouseUp
end mouseUp
script i h ) cREVGeneral revUniqueID 963112594618 New Graphic 3 KF l ! m cREVGeneral revUniqueID 963112444904 New Graphic 3 KF white l ! m cREVGeneral revUniqueID 963112444943 i h ) cREVGeneral revUniqueID 963112625636 New Graphic 3 KF l ! m cREVGeneral revUniqueID 963112444904 ! New Graphic 3 KF white l ! m cREVGeneral revUniqueID 963112444943 " i h ) cREVGeneral revUniqueID 963112650865 # New Graphic 3 KF l ! m cREVGeneral revUniqueID 963112444904 $ New Graphic 3 KF white l ! m cREVGeneral revUniqueID 963112444943 % i ih ) cREVGeneral revUniqueID 963112665862 & New Graphic 3 KF ml ! nmn cREVGeneral revUniqueID 963112444904 ' New Graphic 3 KF white nl ! omo cREVGeneral revUniqueID 963112444943 ( i h ) cREVGeneral revUniqueID 963112673097 ) New Graphic 3 KF l ! m cREVGeneral revUniqueID 963112444904 * New Graphic 3 KF white l ! m cREVGeneral revUniqueID 963112444943 + i kh ) cREVGeneral revUniqueID 963115595759 , New Graphic 3 KF ol ! pm p cREVGeneral revUniqueID 963112444904 - New Graphic 3 KF white pl ! qm q cREVGeneral revUniqueID 963112444943 . Open B
Won mouseUp
send "menuPick" && quote&"Open Stack...""e to btn "File"
end mouseUp
,l # # cTopLeft 37,23cREVtoolbarButton Open Stack | cREVGeneral scriptChecksum LJh~
,Hg
bookmarks revUniqueID 971379307721 handlerList mouseUpscriptSelection
char 53 to 52 prevHandler mouseUp tempScript script / i h + + cREVGeneral revUniqueID
1008656538568
New B
6on mouseUp
global gREVStackStatus
if the icon of me is 201212 then
--new stack
send "menuPick" && quote & "New mainStack" & quote to btn "file"
else
set the defaultStack to the topStack
create card
put "edited" into gREVStackStatus[the short name of this stack]
end if
end mouseUp
l # # cTopLeft 1,23
revButton falsecREVtoolbarButton revbasic false New Card cREVGeneral scriptChecksum jR }쪠
bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection
char 11 to 10script I Border @' * ( cREVGeneral
bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script M
lgTXT.gif @ & GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁQ` 0()3F.#3!;osĢ8 `3dҥ,|jRjƖJ:֫TZO]~EUZe{2(M`Ӗ[w/_&(È \̘@@ ; cREVGeneral revUniqueID
1008754666000 N
mdTXT.gif @ ( GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0eĆ 3rlY1@6Ȓ:
:qό;qFYύDe:
'MU^uTLnע MhmXcUZ=*Wmܺf5
oÞ Lp ; cREVGeneral revUniqueID
1008754666041 O
smTXT.gif @ ( GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0ʌ [\)"C, @B`gA+
ygMM>TNUNݨUfݸtUfc~5;Q-ڙnjٰnݜ˷o߃ ; cREVGeneral revUniqueID
1008754666080 P bold.gif @ * GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0eÅ9@a
+$2͍ 'Y1a sOF:eZMTFLIz%
Vө_51ZQۦ}iS*ZoknSc^vp`(ǐ! L@@ ; cREVGeneral revUniqueID
1008754666122 Q italic.gif @ n * GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0Ɔ9@aYp Θ:yFrf̄4TPIM=곤̥:Uў?b PƩo
JnNjV.ݲx(߿ L@@ ; cREVGeneral revUniqueID
1008754666162 R
plain.gif @ N * GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0eĆ+[f MY2ƌ eٳNjn$ShE5 on mouseUp if the vis of group "htmltext" then select the text of fld "htmltext" else select the text of fld "theText" end if copy select empty end mouseUp ·" then
-- --make List Item
-- if line X+1 on newHTM contains " ·" then
-- --next line is still part of list
-- put false into tEndList
-- else
-- put true into tEndList
-- end if
-- if BeginList then
-- --start the ul tag
-- replace " ·" with "
·" with "
" with "" in line X of newHTM -- replace "
" with "" in line X of newHTM -- end if -- end repeat -- replace "" with "" in last line of newHTM -- replace return with "" in newHTM -- -- put newHTM into field "HTML" --end convert2HTML ,F Normal htmlText cREVGeneral scriptChecksum 1 z&KX bookmarks revUniqueID 1008835943530 handlerList 0mouseUp menuPick convert2Normal convert2HTMLtextscriptSelection char 196 to 195 prevHandler convert2HTML tempScript scripton mouseUp
if the shiftKey is down then
if the number of lines in me is 3 then
delete last line of me
else
put "htmlText" into line 3 of me
end if
end if
end mouseUp
on menuPick newTab, oldTab
lock screen
hide group oldTab
show group newTab
switch newTab
case "htmlText"
convert2HTMLtext
break
case "Normal"
convert2Normal
break
case "HTML"
convert2HTML
break
end switch
unlock screen
end menuPick
on convert2Normal
set the htmlText of field "theText" to fld "htmlText"
resetBtns
end convert2Normal
on convert2HTMLtext
put the htmltext of fld "theText" into fld "htmlText"
resetBtns
end convert2HTMLtext
--on convert2HTML
-- resetBtns
-- convert2HTMLtext
-- put the text of fld "htmlText" into newHTM
-- replace quote with "" in newHTM
-- replace "<font size=15>" with "<font size=2>" in newHTM
-- replace "<font size=18>" with "<font size=3>" in newHTM
-- replace "<font size=10>" with "<font size=0>" in newHTM
--
-- put true into BeginList
-- repeat with X = 1 to the num lines in newHTM
-- --if line X of newHTM contains "<font size=14>" then replace
-- if line X of newHTM contains "<p>	·" then
-- --make List Item
-- if line X+1 on newHTM contains "<p>	·" then
-- --next line is still part of list
-- put false into tEndList
-- else
-- put true into tEndList
-- end if
-- if BeginList then
-- --start the ul tag
-- replace "<p>	·" with "<ul><li>" in line X of newHTM
-- if tEndList then
-- --close the ul tag
-- replace "</p>" with "</li></ul>" in line X of newHTM
-- put true into BeginList
-- else
-- replace "</p>" with "</li>" in line X of newHTM
-- put false into BeginList
-- end if
-- else
-- -- already inside the UL tag
-- replace "<p>	·" with "<li>" in line X of newHTM
-- if tEndList then
-- replace "</p>" with "</li></ul>" in line X of newHTM
-- put true into BeginList
-- else
-- replace "</p>" with "</li>" in line X of newHTM
-- put false into BeginList
-- end if
--
-- end if
--
-- else
-- --parse as usual
-- replace "<p>" with "" in line X of newHTM
-- replace "</p>" with "</br>" in line X of newHTM
-- end if
-- end repeat
-- replace "</br>" with "" in last line of newHTM
-- replace return with "" in newHTM
--
-- put newHTM into field "HTML"
--end convert2HTML
_ Normal i L cREVGeneral revUniqueID 1008836744857 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script g Bold Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 963360387374 handlerList scriptSelection char 1 to 0 prevHandler mouseUp tempScript script h Italic Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 963360387374 handlerList scriptSelection char 1 to 0 prevHandler mouseUp tempScript script l Link Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 963360387374 handlerList scriptSelection char 1 to 0 prevHandler mouseUp tempScript script C Divider Ag nB D Italic ( on mouseUp if validSelChunck(the selectedChunk) then if the loc of btn "Italic Inverted" is the loc of me then put "plain" into tStyle set the loc of btn "Italic Inverted" to -100,-100 else put "italic" into tStyle set the loc of btn "Italic Inverted" to the loc of me end if if the textStyle of the selectedChunk contains "bold" then set the textStyle of the selectedChunk to tStyle & ",bold" else set the textStyle of the selectedChunk to tStyle end if end if end mouseUp F * ( toolbarButton Q cREVGeneral scriptChecksum >mcpމ revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseEnterscriptSelection char 372 to 371scripton mouseUp
if validSelChunck(the selectedChunk) then
if the loc of btn "Italic Inverted" is the loc of me then
put "plain" into tStyle
set the loc of btn "Italic Inverted" to -100,-100
else
put "italic" into tStyle
set the loc of btn "Italic Inverted" to the loc of me
end if
if the textStyle of the selectedChunk contains "bold" then
set the textStyle of the selectedChunk to tStyle & ",bold"
else
set the textStyle of the selectedChunk to tStyle
end if
end if
end mouseUp
E Bold ( on mouseUp if validSelChunck(the selectedChunk) then if the loc of btn "Bold Inverted" is the loc of me then put "plain" into tStyle set the loc of btn "Bold Inverted" to -100,-100 else put "bold" into tStyle set the loc of btn "Bold Inverted" to the loc of me end if if the textStyle of the selectedChunk contains "italic" then set the textStyle of the selectedChunk to tStyle & ",italic" else set the textStyle of the selectedChunk to tStyle end if end if end mouseUp F * ( toolbarButton P cREVGeneral scriptChecksum g KQ revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 18 to 31script
on mouseUp
if validSelChunck(the selectedChunk) then
if the loc of btn "Bold Inverted" is the loc of me then
put "plain" into tStyle
set the loc of btn "Bold Inverted" to -100,-100
else
put "bold" into tStyle
set the loc of btn "Bold Inverted" to the loc of me
end if
if the textStyle of the selectedChunk contains "italic" then
set the textStyle of the selectedChunk to tStyle & ",italic"
else
set the textStyle of the selectedChunk to tStyle
end if
end if
end mouseUp
K theText )pon selectionChanged repeat with x =1 to the number of lines in fld "theText" if line x of fld "theText" contains tab and "" is not in line x of fld "theText" then replace tab with "" in line x of fld "theText" if line x of fld "theText" contains "" and tab is not in line x of fld "theText" then replace "" with "" in line x of fld "theText" end repeat checkSelection end selectionChanged on checkSelection if validSelChunck(the selectedChunk) then if the textstyle of the selectedChunk contains "bold" then set the rect of btn "Bold Inverted" to the rect of btn "Bold" else set the loc of btn "Bold Inverted" to -100,-100 end if if the textstyle of the selectedChunk contains "italic" then set the rect of btn "Italic Inverted" to the rect of btn "Italic" else set the loc of btn "Italic Inverted" to -100,-100 end if if the textstyle of the selectedChunk contains "link" then set the rect of btn "Link Inverted" to the rect of btn "Link" else set the loc of btn "Link Inverted" to -100,-100 end if else set the loc of btn "Bold Inverted" to -100,-100 set the loc of btn "Italic Inverted" to -100,-100 set the loc of btn "Link Inverted" to -100,-100 end if end checkSelection q@ K cREVGeneral scriptChecksum t<r$Ě bookmarks revUniqueID 1008663558642 handlerList selectionChanged checkSelectionscriptSelection char 378 to 377 prevHandler selectionChanged tempScript scripton selectionChanged
repeat with x =1 to the number of lines in fld "theText"
if line x of fld "theText" contains tab and "·" is not in line x of fld "theText" then replace tab with "" in line x of fld "theText"
if line x of fld "theText" contains "·" and tab is not in line x of fld "theText" then replace "·" with "" in line x of fld "theText"
end repeat
checkSelection
end selectionChanged
on checkSelection
if validSelChunck(the selectedChunk) then
if the textstyle of the selectedChunk contains "bold" then
set the rect of btn "Bold Inverted" to the rect of btn "Bold"
else
set the loc of btn "Bold Inverted" to -100,-100
end if
if the textstyle of the selectedChunk contains "italic" then
set the rect of btn "Italic Inverted" to the rect of btn "Italic"
else
set the loc of btn "Italic Inverted" to -100,-100
end if
if the textstyle of the selectedChunk contains "link" then
set the rect of btn "Link Inverted" to the rect of btn "Link"
else
set the loc of btn "Link Inverted" to -100,-100
end if
else
set the loc of btn "Bold Inverted" to -100,-100
set the loc of btn "Italic Inverted" to -100,-100
set the loc of btn "Link Inverted" to -100,-100
end if
end checkSelection
L ` @ 0 r I S Plain ( on mouseUp if validSelChunck(the selectedChunk) is false then if fld "theText" is empty then set the textStyle of fld "theText" to empty set the textSize of fld "theText" to empty end if else put the selectedChunk into tSelectChunk put value (tSelectChunk) into tString --GO AHEAD AND SET STYLE PROPERTIES BEFORE DELETING set the textSize of the selectedChunk to empty set the textStyle of the selectedChunk to empty set the linkText of the selectedChunk to empty --GET THE START POSITION set itemDel to " " put item 2 of the selectedChunk - 1 into tStartChar --GET RID OF THE LIST FORMAT replace tab with "" in tString replace "" with "" in tString --DELETE THE OLD SELECTED TEXT select tSelectChunk delete --INSERT THE NEW put tString after char tStartChar of fld "theText" put tStartChar + 1 into x put tStartChar + the length of tString into y select char x to y of fld "theText" set the textSize of the selectedChunk to empty set the textStyle of the selectedChunk to empty set the linkText of the selectedChunk to empty resetBtns end if end mouseUp F * ( toolbarButton R cREVGeneral scriptChecksum t%7M?<3Uj* revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 1163 to 1162scripton mouseUp
if validSelChunck(the selectedChunk) is false then
if fld "theText" is empty then
set the textStyle of fld "theText" to empty
set the textSize of fld "theText" to empty
end if
else
put the selectedChunk into tSelectChunk
put value (tSelectChunk) into tString
--GO AHEAD AND SET STYLE PROPERTIES BEFORE DELETING
set the textSize of the selectedChunk to empty
set the textStyle of the selectedChunk to empty
set the linkText of the selectedChunk to empty
--GET THE START POSITION
set itemDel to " "
put item 2 of the selectedChunk - 1 into tStartChar
--GET RID OF THE LIST FORMAT
replace tab with "" in tString
replace "·" with "" in tString
--DELETE THE OLD SELECTED TEXT
select tSelectChunk
delete
--INSERT THE NEW
put tString after char tStartChar of fld "theText"
put tStartChar + 1 into x
put tStartChar + the length of tString into y
select char x to y of fld "theText"
set the textSize of the selectedChunk to empty
set the textStyle of the selectedChunk to empty
set the linkText of the selectedChunk to empty
resetBtns
end if
end mouseUp
Z Link ( ton mouseUp if validSelChunck(the selectedChunk) is false then answer warning "Please, First select some text for the link" exit mouseUp else put the selectedChunk into tSelectChunk -- if the loc of btn "Link Inverted" is the loc of me then -- set the textStyle of tSelectChunk to empty -- set the linkText of tSelectChunk to empty -- set the loc of btn "Link Inverted" to -100,-100 -- exit mouseUp -- end if if the textStyle of tSelectChunk contains "link" then put the linkText of tSelectChunk into tLink end if put "Please enter the URL you wish to link to" & return & "ex. http://www.ibm.com/test.htm" & return & "Use the Plain button to remove link." into themsg if tLink is not empty then ask themsg with tLink else ask themsg with "http://" end if if it is not empty then -- set the textStyle of tSelectChunk to empty -- set the linkText of tSelectChunk to empty -- else set the textStyle of tSelectChunk to "link" set the linkText of tSelectChunk to it end if end if end mouseUp F * ( toolbarButton [ cREVGeneral scriptChecksum *@{}>'(9 revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 1014 to 1013script .on mouseUp
if validSelChunck(the selectedChunk) is false then
answer warning "Please, First select some text for the link"
exit mouseUp
else
put the selectedChunk into tSelectChunk
-- if the loc of btn "Link Inverted" is the loc of me then
-- set the textStyle of tSelectChunk to empty
-- set the linkText of tSelectChunk to empty
-- set the loc of btn "Link Inverted" to -100,-100
-- exit mouseUp
-- end if
if the textStyle of tSelectChunk contains "link" then
put the linkText of tSelectChunk into tLink
end if
put "Please enter the URL you wish to link to" & return & "ex. http://www.ibm.com/test.htm" & return & "Use the Plain button to remove link." into themsg
if tLink is not empty then
ask themsg with tLink
else
ask themsg with "http://"
end if
if it is not empty then
-- set the textStyle of tSelectChunk to empty
-- set the linkText of tSelectChunk to empty
-- else
set the textStyle of tSelectChunk to "link"
set the linkText of tSelectChunk to it
end if
end if
end mouseUp
F Large ( |on mouseUp if validSelChunck(the selectedChunk) then set the textSize of the selectedChunk to 18 end if end mouseUp F * ( toolbarButton M cREVGeneral scriptChecksum 0Dʤ4M@2+$ revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseEnterscriptSelection char 12 to 55scripton mouseUp
if validSelChunck(the selectedChunk) then
set the textSize of the selectedChunk to 18
end if
end mouseUp
G Medium ( ~on mouseUp if validSelChunck(the selectedChunk) then set the textSize of the selectedChunk to 15 end if end mouseUp + F * ( toolbarButton N cREVGeneral scriptChecksum HB revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseEnterscriptSelection char 104 to 103scripton mouseUp
if validSelChunck(the selectedChunk) then
set the textSize of the selectedChunk to 15
end if
end mouseUp
H Small ( ~on mouseUp if validSelChunck(the selectedChunk) then set the textSize of the selectedChunk to 10 end if end mouseUp U F * ( toolbarButton O cREVGeneral scriptChecksum YΉţVF revUniqueID 1008640598870 bookmarks handlerList mouseUp tempScript prevHandler mouseEnterscriptSelection char 104 to 103script 0on mouseUp
if validSelChunck(the selectedChunk) then
set the textSize of the selectedChunk to 10
end if
end mouseUp
z %Lock Field (for testing Linked Text) `E ( on mouseUp if the hilited of me is false then set the locktext of field "theText" to false else set the locktext of field "theText" to true end if end mouseUp cREVGeneral scriptChecksum QJ>-y}G revUniqueID 1009575646273 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 11 to 10scripton mouseUp
if the hilited of me is false then
set the locktext of field "theText" to false
else
set the locktext of field "theText" to true
end if
end mouseUp
` htmlText a =H cREVGeneral revUniqueID 1008836836589 U htmlText )` A@ { cREVGeneral revUniqueID 1008640919786 V ` @ 0 B y j list.gif @ > ( GIF89a ! , HA *\0A "JHaA3J E 9vDR#ÁK 0BYp0@Ä9Xs@@)(:g 5)fJIڼ)O |51DP.()Σ^ּ4YZfZ6.ںc _2 La+& ; cREVGeneral revUniqueID 1008840387173 q HTML a =H cREVGeneral revUniqueID 1008846031370 e html )` A@ { cREVGeneral revUniqueID 1008640919786 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script f ` @ 0 B y r html.png @ 2 b < , PNG IHDR < , HL gAMA 7 tEXtSoftware Adobe ImageReadyqe< IDATxb|?c 1` d.? ." (" ~ X|ÿ2܊pF*8a7ɮE83ۭ E$7:ZA$`ecc h` &* 3 v0!t*$ @?_3003spss01ab`?Y 4йc_@ \m3XY2L䧋cw^xOa~A?3LL?0,cݟP~ N5X.vXXCo>aef` ^FF ?~fa >"j(@ mϿ@62 " AO'Cq/? $ˠS0 \,8OGBR[l߹젰Z j bL?__'z*}̐ 2h(C 4 P?贿}3GiÁ|,1c:نX ]_FOU 8H!"2 7 8X L!U@ @C\r ~?B??r ِŚY""(_8ف ge QV`J^kcI8r 68USN!eE[b7}Q@_8 "蟼} JdO`1AKA!00F= 3#% L@_dy_Js<_f(M +.`ߙ! Pea! (-w# a'R3 ~I4l{:=}/טβniV' !u }׀o;LueK&OJ9<*D233a Mq}qѷ B%3/A l~gn|/,o|af_ˏW[R?o)6 6V ^~ 6` ~hCl @hf0 K`don mouseUp
if the altKey is down then
if the style of this stack is palette then
set the style of this stack to topLevel
else
set the style of this stack to palette
end if
exit mouseUp
end if
lock screen
go next
set the rect of this stack to the topLeft of this stack, the left of this stack + 322, the top of this stack + 205
unlock screen
end mouseUp
v New Button *CPon mouseUp lock screen set the loc of btn "Win Style Stack Resizer" to 315,199 set the textsize of fld "theText" to empty put "" into fld "theText" set the textStyle of fld "theText" to empty set the textFont of fld "theText" to empty go first set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44 unlock screen end mouseUp @ < , revScript false s r cREVGeneral scriptChecksum K\8&* ^i bookmarks revUniqueID 1009572038197 handlerList mouseUpscriptSelection char 402 to 401 prevHandler mouseUp tempScript scripton mouseUp
lock screen
set the loc of btn "Win Style Stack Resizer" to 315,199
set the textsize of fld "theText" to empty
put "" into fld "theText"
set the textStyle of fld "theText" to empty
set the textFont of fld "theText" to empty
go first
set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44
unlock screen
end mouseUp
w New Field 1 X 7on linkClicked pLink revGoURL pLink end linkClicked aa FFuu < * cREVGeneral scriptChecksum %3zlo%4 revUniqueID 1008746424778 bookmarks handlerList linkClicked tempScript prevHandler linkClickedscriptSelection char 21 to 20script Jon linkClicked pLink
revGoURL pLink
end linkClicked
AHTMLbuilder allows you create/edit text and htmlText. V1.2 ( @ x blueend K` FFuu v * cREVGeneral revUniqueID 1009572913637 y Win Style Stack Resizer "BPlocal lMoving, lDistance on mouseDown put true into lMoving put the right of this stack - item 1 of the screenMouseloc,the bottom of this stack - item 2 of the screenMouseLoc into lDistance end mouseDown on mouseUp put false into lMoving unlock cursor end mouseUp on mouseRelease put false into lMoving unlock Cursor end mouseRelease on mouseMove if lMoving then put item 1 to 2 of the rect of this stack,item 1 of the screenMouseloc+item 1 of lDistance,item 2 of the screenMouseloc+item 2 of lDistance into tRect if item 3 of tRect < (the minWidth of this stack+the left of this stack) then put (the minWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect < (the minHeight of this stack+the top of this stack) then put (the minHeight of this stack+the top of this stack) into item 4 of tRect if item 3 of tRect > (the maxWidth of this stack+the left of this stack) then put (the maxWidth of this stack+the left of this stack) into item 3 of tRect if item 4 of tRect > (the maxHeight of this stack+the top of this stack) then put (the maxHeight of this stack+the top of this stack) into item 4 of tRect lock screen set the rect of this stack to tRect set the bottomRight of me to the width of this stack, the height of this stack unlock screen end if end mouseMove on mouseEnter if the platform is not "MacOS" then lock cursor set cursor to the cWinCursor of me end if end mouseEnter on mouseLeave put false into lMoving unlock cursor end mouseLeave 5 cWinCursor 200308 p cREVGeneral revUniqueID 1009573865166 bookmarks handlerList >mouseDown mouseUp mouseRelease mouseMove mouseEnter mouseLeave tempScript prevHandler mouseDownscriptSelection char 1061 to 1060script { tgLbl ex on mouseUp put the selectedObject into PropObj if PropObj contains "field" then toggleProperties PropObj choose browse tool exit mouseUp end if if the selectedField is not empty then put the long name of the selectedField into PropObj put PropObj if PropObj contains "field" then if PropObj contains "theText" then exit mouseUp toggleProperties PropObj choose browse tool end if end if end mouseUp on toggleProperties PropObj if the lockText of PropObj then set the traversalOn of PropObj to true set the lockText of PropObj to false set the autoHilite of PropObj to true else set the traversalOn of PropObj to false set the lockText of PropObj to true end if end toggleProperties @ X Sets Label Field to Edit mode Toggle Label Text cREVGeneral scriptChecksum 7쌿Y=B, m revUniqueID 1017296406438 bookmarks handlerList mouseUp toggleProperties tempScript prevHandler mouseUpscriptSelection char 366 to 365scripton mouseUp
put the selectedObject into PropObj
if PropObj contains "field" then
toggleProperties PropObj
choose browse tool
exit mouseUp
end if
if the selectedField is not empty then
put the long name of the selectedField into PropObj
put PropObj
if PropObj contains "field" then
if PropObj contains "theText" then exit mouseUp
toggleProperties PropObj
choose browse tool
end if
end if
end mouseUp
on toggleProperties PropObj
if the lockText of PropObj then
set the traversalOn of PropObj to true
set the lockText of PropObj to false
set the autoHilite of PropObj to true
else
set the traversalOn of PropObj to false
set the lockText of PropObj to true
end if
end toggleProperties