Script Library: 1220 scripts
 

search2.r

REBOL [ Title: "Search Center" Date: 4-Nov-2001 Version: 1.2.2 File: %search2.r Author: "Kevin Adams" Needs: "REBOL View" Purpose: {Searches various places,such as Google, without having to go to their website .} Email: %kadams--netlane--com Notes: {A little source code take from Jos Yule's Dictionary Lookup program.} library: [ level: none platform: none type: none domain: [other-net GUI web markup] tested-under: none support: none license: none see-also: none ] ] about: layout [ backdrop 219.219.219 h1 "Search Center" 28.52.86 text "Version 1.2.0" text "written by Kevin Adams, %kadams--netlane--com" button "okay" [unview] 70x20 effect [gradient 0.0.0] ] win1: layout/size [ backdrop 219.219.219 h1 "Search Center" 28.52.86 guide pad 20 button "Section One" [panels/pane: panel1 show panels] 85x20 effect [gradient 0.0.0] button "Section Two" [panels/pane: panel2 show panels] 85x20 effect [gradient 0.0.0] button "About" [view/new center-face about] 85x20 effect [gradient 0.0.0] button "Quit" [quit] 85x20 effect [gradient 0.0.0] return box 2x270 28.52.86 return panels: box 180x280 ] 350x350 panel1: layout [ backdrop 219.219.219 across h2 "Dictionary Search" 28.52.86 return word_to_lookup2: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" [http://www.m-w.com/cgi-bin/dictionary "?book=dictionary&va=" word_to_lookup2/text] ] return h2 "Google Search" 28.52.86 return word_to_lookup3: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://www.google.com/search?q=" word_to_lookup3/text "&btnG=Google+Search"] ] return h2 "Yahoo Search" 28.52.86 return word_to_lookup6: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://search.yahoo.com/bin/search?p=" word_to_lookup6/text ] ] return h2 "Slashdot Search" 28.52.86 return word_to_lookup1: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://slashdot.org/search.pl?query="word_to_lookup1/text ] ] ] panel2: layout [ backdrop 219.219.219 across return h2 "Image Search" 28.52.86 return word_to_lookup4: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://images.google.com/images?num=20&q=" word_to_lookup4/text "&btnG=Google+Search"] ] return h2 "Usenet Search" 28.52.86 return word_to_lookup5: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://groups.google.com/groups?q=" word_to_lookup5/text "&hl=&btnG=Google+Search"] ] return h2 "eBay Search" 28.52.86 return word_to_lookup7: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://search.ebay.com/search/search.dll?MfcISAPICommand=GetResult&ht=1&SortProperty=MetaEndSort&query=" word_to_lookup7/text "&x=-567&y=-92"] ] return h2 "Stock Quote" 28.52.86 return word_to_lookup8: field 120 [ ] button "Go" 30 effect [gradient 0.0.0] [ browse/only join "" ["http://finance.yahoo.com/q?s=" word_to_lookup8/text "&d=v3"] ] ] panel1/offset: 0x0 panel2/offset: 0x0 panels/pane: panel1 view center-face win1
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (kadams:netlane:com)