- -
Button charWrap:
Code: Select all
on mouseUp
put empty into fld "fKUP"
put fld "f2" into EFF2
put empty into fld "f2"
repeat until EFF2 is empty
put char 1 of EFF2 after fld "fKUP"
if the (formattedWidth of fld "fKUP") > (width of fld "f2") then
put (fld "fKUP" & cr) after fld "f2"
put empty into fld "fKUP"
else
--nix
end if
delete char 1 of EFF2
end repeat
put fld "fKUP" after fld "f2"
end mouseUp
no promises; it may curdle your milk or make your horse go lame; tough; you are not going to get to duck me in the village pond.