REBOL[
	Title:"Sticky"
	Date: 25-Oct-2005
    	File: %sticky.r
    	Author: "Tim Wylie"
    	Purpose: "Small sticky app for reminder notes."
]
OFFSET: 30x30
view/options win: layout/size/offset[
	origin 0
	at 0x0 a: area 200x100 wrap
	at 185x5 button effect[cross] white 10x10 [quit]
	key #"^d"[
		win/offset: OFFSET: OFFSET + 20x0 
		show win
	] 
	key #"^a"[
		win/offset: OFFSET: OFFSET + -20x0 
		show win
	]
	key #"^w"[
		win/offset: OFFSET: OFFSET + 0x-20 
		show win
	]
	key #"^s"[
		win/offset: OFFSET: OFFSET + 0x20 
		show win
	]
	key #"^b"[unfocus show win]
] 200x100 OFFSET [no-border no-title]