gscan
dialog gscan {title "Google Scanner"
size -1 -1 188 94
option dbu
icon 1, 0 68 185 25, E:Dokumente und EinstellungenPascalDesktopgoogle.png, 0, noborder
button "Search", 2, 0 55 30 10, flat
button "Cancel", 3, 155 55 30 10, flat cancel
text "Enter a Search here:", 4, 1 15 50 8
edit "", 5, 52 14 130 10
radio "Web", 6, 0 30 50 10
radio "Seiten auf Deutsch", 7, 65 30 60 10
check "Click here to open only Page", 8, 3 3 180 10, push
text "This Google Scanner is v0.1. we are fixing the meta bug even more quickly you have said: Currywurst.^^", 9, 35 45 115 20, disable
}
on *:dialog:gscan:*:*:{
if ($devent == edit) {
set %gsearch $did(gscan,5)
}
if ($devent == sclick) {
if ($did == 7) {
set %gsearch.domain &btnG=Suche&meta=lr%3Dlang_de
}
if ($did == 6) {
set %gsearch.domain &btnG=Suche&meta=lr%3D
}
if ($did ==
{dialog -c gscan gscan
url www.google.de
echo |GScan Dialog was closed - Google runs|
}
if ($did == 2) {
if (%gsearch == $null) { url www.google.de/search?hl=de&q= $+ $$?="Sie haben vergessen eine Suchanfrage anzugeben" $+ %gsearch.domain }
else {
url www.google.de/search?hl=de&q= $+ %gsearch $+ %gsearch.domain
eCHO -A To search with Google without these Dialog type: /g (-d) <your question> }
}
}
}
alias /g {
if ($1 == -d) {
url www.google.de/search?hl=de&q= $+ $2- $+ &btnG=Suche&meta=lr%3Dlang_de
}
else {
url www.google.de/search?hl=de&q= $+ $1- $+ &btnG=Suche&meta=lr%3D
}
if ($1 == $null) { echo -a You don't asked a question }
}