Rebol

Scripts

Animation

CGI

Compression

Console

Database

Debug

Dialects

Dialogs

Editor

Encryption

Extension

External Library

File

File Handling

Files

Financial

FTP

Game

Games

Graphics

GUI

HTML

HTTP

Internet

LDC

Markup

Math

Module

Network

Networking

None

Other - Net

Parse

Patch

Printing

Protocol

Rebol

Scheme

Scientific

SDK

Security

Shell

Sound

SQL

TCP

Testing

Text

Text Processing

User Interface

Util

Utility

VID

Visualization

Web

Win API

X-File

XML

Wiki

Download Script View Documentation

REBOL[
	Title: "Yubnub search"
	Version: 1.0.0
	Copyright: "Philippe Le Goff-2007"
    Author: "Philippe Le Goff"
	File: %yubnub-searches.r
	Date: 3-Jan-2007
	Purpose: {
		Just a tool to play with Yubnub service - Yubnub.org.
    }
	Usage: {
		Select a search engine with rotary btn.
                Type the word(s) to search. Click "search" button.
	}
	Library: [
		level: 'beginner
		platform: 'all
		type: [tool]
		domain: [web html]
		tested-under: 'winXP
		support: none
		license: 'BSD
		see-also: none
	]
]

rot-datas: sort extract metas: [ 
"Google" "g "
"Google News" "gnews "
"Yahoo!" "y "
"Wikipedia" "wp "
"Technorati" "tec "
"Amazon" "am "
"CNN" "cnn "
"Weather for zip code" "weather "
"eBay" "ebay "
"AllMusic.com" "allmusic "
"del.icio.us tag" "deli "
"Flickr" "flk "
"ESPN" "espn "
"Yahoo! Stock Quote" "stock "
"Dictionary (Answers.com)" "a "
 ] 2 
 

lay: [
key (escape) [quit]
backeffect  [ gradient 0x1 148.148.148 22.22.22 ]
rt: rotary brick 150 data rot-datas font [size: 10 name: "Courrier New"]
fld: field 150x20 
pad 0x20
across
btn-cancel 50x20 "Quit" [quit] font [color: white style: 'bold]
pad 20x0
btn-help 70x20 "Search !"  [ browse to-url rejoin ["http://yubnub.org/parser/parse?command=" select metas rt/data/1  fld/text] ]
return
below
pad 15x20
txt gray " © Philippe Le Goff-2007" font [size: 9]
]

view layout lay