A bit more suitable for easy reuse.....
on textdown
BumpText the long id of field "test", -1
end textdown
on textup
BumpText the long id of field "test", 1
end textup
on BumpText theObject theDirection
if theDirection is not among the lines of "1" & return & "-1" then throw
"Need 1 or -1 for theDirection"
put the htmlText of fld 1 into theHtml
replace "size=""e with "size="&numtoChar(1500) in theHTML
set the itemdel to numToChar(1500)
if the number of items of theHTML<>1 then
put 0 into itemCount
repeat for each item theItem in theHTML
add 1 to itemCount
if itemCount=1 then
put theItem into newHTML
next repeat
end if
put 1 into counter
put offset (">", theItem) into tClose
put offset ("<" , theItem) into tOpen
if tClose <> 0 then -- found it
if tOpen <> 0 and tOpen > tClose then-- found "<" and after ">"
whis is ok
repeat forever
add 1 to counter
if char counter of theItem=quote then exit repeat
end repeat
put char 1 to counter-1 of theItem into theSize
put theSize + theDirection into theSize
put theSize into char 1 to counter-1 of theItem
end if
end if
put quote&theItem after newHTML
end repeat
set the htmlText of theObject to newHTML
end if
set the textSize of theObject to \
the effective textSize of theObject + theDirection
end BumpText
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
