on altShowMe
palette this stack
show stack "revAltHtml"
end altShowMe
on altGetInfo
answer last word of fld "info"
end altGetInfo
on closeStack
delete me
end closeStack
on openStack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
end openStack
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 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 u%|35x,p bookmarks handlerList eresizeStack mouseEnter mouseDown mouseUp mouseRelease mouseLeave validSelChunck resetBtns linkClickedscriptSelection char 779 to 778 prevHandler linkClicked tempScript scripton 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 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
w ^ I \ _ ` q y { } @ B M N O P Q R [ j icons group i d( 3 cREVGeneral revUniqueID 971717392786 bookmarks handlerList tempScript prevHandler scriptSelection 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 mouseUp tempScript prevHandler mouseUpscriptSelection char 1 to 10script 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 revButton false cTopLeft 485,23cREVUnHilitedText Bedit group - edit the currently selected group (background)cREVtoolbarButton revbasic false Edit Group Edit Group cREVGeneral scriptChecksum Wy og*j bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 339 to 338script 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 revButton false cTopLeft 540,23cREVUnHilitedText 6group - group controls in the current selection revbasic falsecREVtoolbarButton (Un)Group Controls Group cREVGeneral scriptChecksum @u L+Y̺# bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 142 to 141script 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 mouseUpscriptSelection char 428 to 427 prevHandler mouseUp tempScript script 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 mouseUpscriptSelection char 161 to 160 prevHandler mouseUp tempScript script 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 mouseUpscriptSelection char 99 to 98 prevHandler mouseUp tempScript script Copy B Aon mouseUp send "menuPick" && "Copy" to btn "Edit" end mouseUp l ) # cTopLeft 145,23cREVtoolbarButton Copy cREVGeneral scriptChecksum Q3*3}#J (\, bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 15 to 14script 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,23cREVtoolbarButton revbasic false 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
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 ' bookmarks revUniqueID 963110710621 handlerList mouseUpscriptSelection char 71 to 70 prevHandler mouseUp tempScript script 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 revUniqueID 963110745807 bookmarks handlerList mouseUp tempScript Yon mouseUp
send "menuPick Text" to btn "Object"
pass mouseUp
end mouseUp
prevHandler mouseUpscriptSelection
char 53 to 64script 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 revUniqueID 971379307721
bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection
char 53 to 52script / 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 # #
revButton false cTopLeft 1,23 revbasic falsecREVtoolbarButton New Card cREVGeneral scriptChecksum jR }쪠
bookmarks handlerList mouseUpscriptSelection
char 11 to 10 prevHandler mouseUp tempScript script I Border @' * ( cREVGeneral
bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script 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 revUniqueID 1008835943530 bookmarks handlerList 0mouseUp menuPick convert2Normal convert2HTMLtext tempScript prevHandler convert2HTMLscriptSelection char 196 to 195scripton 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 bookmarks revUniqueID 1008836744857 handlerList scriptSelection char 1 to 0 prevHandler tempScript script g Bold Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ revUniqueID 963360387374 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script h Italic Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ revUniqueID 963360387374 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script l Link Inverted @' 0 white * ( cREVGeneral scriptChecksum ُ B~ revUniqueID 963360387374 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script 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މ bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 372 to 371 prevHandler mouseEnter tempScript scripton 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 bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 18 to 31 prevHandler mouseUp tempScript script
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$Ě revUniqueID 1008663558642 bookmarks handlerList selectionChanged checkSelection tempScript prevHandler selectionChangedscriptSelection char 378 to 377scripton 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* bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 1163 to 1162 prevHandler mouseUp tempScript scripton 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 bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 1014 to 1013 prevHandler mouseUp tempScript script .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+$ bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 12 to 55 prevHandler mouseEnter tempScript scripton 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 bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 104 to 103 prevHandler mouseEnter tempScript scripton 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 bookmarks revUniqueID 1008640598870 handlerList mouseUpscriptSelection char 104 to 103 prevHandler mouseEnter tempScript script 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 bookmarks revUniqueID 1009575646273 handlerList mouseUpscriptSelection char 11 to 10 prevHandler mouseUp tempScript scripton 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 bookmarks revUniqueID 1008640919786 handlerList scriptSelection char 1 to 0 prevHandler tempScript script f ` @ 0 B y w info X 7on linkClicked pLink revGoURL pLink end linkClicked < * cREVGeneral scriptChecksum %3zlo%4 bookmarks revUniqueID 1008746424778 handlerList linkClickedscriptSelection char 21 to 20 prevHandler linkClicked tempScript script Jon linkClicked pLink
revGoURL pLink
end linkClicked
AHTMLbuilder allows you create/edit text and htmlText. V1.3 ( @ 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 bookmarks revUniqueID 1009573865166 handlerList >mouseDown mouseUp mouseRelease mouseMove mouseEnter mouseLeavescriptSelection char 1061 to 1060 prevHandler mouseDown tempScript script { 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 bookmarks revUniqueID 1017296406438 handlerList mouseUp togglePropertiesscriptSelection char 366 to 365 prevHandler mouseUp tempScript scripton 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
} altPlug.png @ altOpenVisible truealtPlugFileName revAltHtml.revaltMenu Info altOnClickMe altShowMealtMenuHandlers altGetInfo htmlText editor PNG IHDR szz gAMA a 9IDATx_UE ?smu%5R[쏑a!i!/>?- %ʹ,rA15LXf93 fι瞽w̝33}͙#ږu$IPBK H u}bܳB\7`xJî,`xJ%(uB+(# h PDLTP2J QFDՈRJDTS*@R$*H DX kB Y C lBzEN PfRp