dialog reverse {
title "Reverse Text by Maffew"
size -1 -1 370 87
option pixels
edit "",1,5 5 360 23,autohs
edit "",2,5 33 360 23,read,autohs
button "&Close",100,315 63 50 20,ok
button "&Reverse",101,195 63 60 20,default,disabled
check "R&ealtime Reverse",102,5 65 110 20
button "C&opy",103,260 63 50 20,disabled
}
on *:dialog:reverse:edit:1:{
if ($did(102).state) {
did -b $dname 101
if ($did(1,1) != $null) {
did -o $dname 2 1 $reverse($did(1,1))
did -c $dname 2 1 $len($did(2,1)) $len($did(2,1))
did -e $dname 103
}
else {
did -r $dname 2
did -b $dname 103
}
return
}
elseif ($did(1,1) != $null) { did -e $dname 101 }
else { did -b $dname 101 }
}
on *:dialog:reverse:sclick:101:{
if ($did(1,1) != $null) {
did -o $dname 2 1 $reverse($did(1,1))
did -e $dname 103
}
else { did -b $dname 101,103 }
}
on *:dialog:reverse:sclick:102:{
if ($did(102).state) { did -b $dname 101 }
elseif ($did(1,1) != $null) { did -e $dname 101,103 }
else { did -b $dname 101 }
}
on *:dialog:reverse:sclick:103:{
if ($did(2,1) != $null) { clipboard $ifmatch }
else { did -b $dname 103 }
}
menu status,channel,menubar {
-
$iif($dialog(reverse),$style(2)) Reverse Text:{ dialog -m reverse reverse }
-
}