Skip to content

Instantly share code, notes, and snippets.

@rebolek

rebolek/gist:32e18d5ead80d8465ee3

Last active August 29, 2015 14:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rebolek/32e18d5ead80d8465ee3 to your computer and use it in GitHub Desktop.
Save rebolek/32e18d5ead80d8465ee3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
REBOL[]
do %load-gui.reb
page: to string! read http://www.goodreads.com/quotes
quotes: copy []
parse page [
some [
thru "“" copy value to "”" (append quotes value)
]
to end
]
lay: layout [
vp: scroll-panel 300x300 [
mp: hpanel snow 1 options [
spacing: 0x0
max-hint: guie/max-pair
pane-valign: 'bottom
]
]
button "add" on-action [
append-content mp compose [
text 270 (
rejoin [take quotes newline "added: " now/time newline]
)
]
if 10 < length? mp/gob [
remove-content mp
]
]
]
view lay
@rebolek
Copy link
Author

rebolek commented May 12, 2014

Chat window example in R3GUI

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment