dialog google {
title "Google Search script"
size -1 -1 1000 18
option dbu
text "Google Search:", 1, 1 4 50 11
edit %google.lastserach, 2, 40 2 100 11
button "Search", 3, 140 2 50 11, ok
}
on *:dialog:google:sclick:3: {
echo Searching Google
set %google.lastserach $did(google,2)
run http://www.google.com/search?hl=en&lr=&ie=UTF-8&oe=UTF-8&q= $+ $replace( $+ $did(google,2) $+ ,$chr(32),+)
}
on *:dialog:google:init:0: {
dll $mircdirdlls\kTools.dll DockWindow $dialog($dname).hwnd > bottom
}
alias google { dialog -m google google }
