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 dlls/mdx.dll SetMircVersion $version
dll dlls/mdx.dll MarkDialog $dname
dll dlls/mdx.dll SetControlMDX $dname 1 ToolBar > dlls/bars.mdx
dll dlls/mdx.dll SetDialog $dname style
dll dlls/mdx.dll SetBorderStyle 1
dll dlls/ktools.dll DockToolbar $dialog($dname).hwnd > bottom
}