dialog link {
title "- link -"
size -1 -1 125 38
option dbu
text "Напишете линка:"1,10 5 50 10
edit ""2,10 12 100 10
button "Ok"3, 10 23 60 10,ok
button "Cancel"4, 70 23 41 10,cancel
}
on *:dialog:link:*:*:{
if ($devent == sclick) {
if ($did == 3) {
set %link $did(link,2)
if ($left( $+ %link $+ ,4) == http) { run %link }
else { run http:// $+ %link }
}
}
}
alias /link { dialog -m link link }