;; ================================================= ;; Script: search.r ;; downloaded from: www.REBOL.org ;; on: 28-Mar-2024 ;; at: 21:57:43.776656 UTC ;; owner: carl [script library member who can update ;; this script] ;; ================================================= ;; =================================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would not ;; be munged ;; =================================================== REBOL [ Title: "Search Center" Date: 3-Jan-2002 Version: 1.2.1 File: %search.r Author: "Kevin Adams" Needs: "REBOL View" Purpose: {Uses various resources for various searches without having to go to their website.} Email: %kadams--netlane--com Notes: {Program first written on November 4, 2001 .A little source code take from Jos Yule's Dictionary Lookup program.} library: [ level: 'intermediate platform: none type: none domain: [other-net GUI web] 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" 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