/editbox -A - 12/09/07 02:46 PM
/editbox -A switch (uppercase)
Append to current text
Append to current text
on *:keyup:*:*: { if ($keychar isalnum) { if ($hfind(ac,$+($gettok($editbox($active),$numtok($editbox($active),32),32),*),1,w)) { editbox $+(-ab,$calc($len($editbox($active)) + 1),e,$calc(($len($editbox($active)) + 1) + ($len($v1) - $len($gettok($editbox($active),$numtok($editbox($active),32),32))))) $+($editbox($active),$right($v1,$calc($len($v1) - $len($gettok($editbox($active),$numtok($editbox($active),32),32))))) } } }
on *:keyup:*:*: { if ($keychar isalnum) { if ($hfind(ac,$+($gettok($editbox($active),$numtok($editbox($active),32),32),*),1,w)) { editbox -aAS $right($v1,-1) } } }
on *:keyup:*:*: { if ($keychar isalnum) { var %a = $editbox($active), %la = $len(%a) + 1 var %na = $numtok(%a, 32), %ga = $gettok(%a, %na, 32) var %lga = $len(%ga), %ldiff = $calc($len($v1) - %lga) if ($hfind(ac,$+(%ga,*),1,w)) { editbox $+(-ab, %la, e, $calc(%la + %ldiff) $+(%a, $right($v1, %ldiff)) } } }