[REBOL] Simple script for view layouts
Here's a script you will probably enjoy. It's been hanging around for
a couple months nagging to educate others, so I decided to give it a
name and post it.
REBOL [
Title: "Graphical Layout Editor"
Author: "Carl Sassenrath"
Date: 20-Jun-2000
File: %layed.r
Purpose: {
Your basic 1K REBOL graphical object layout editor.
Not many features, but a good example of how to drag
faces and show nubs.
}
Note: "Keeping the nubs on top is done on purpose."
Category: [view vid 3]
]
; Layout to edit:
faces: layout [
backdrop %bay.jpg 0.0.200
title "Test"
image %bay.jpg
field
across space 0
button "Send"
button "Cancel"
]
vid-face: get-style 'face
engage-drag: func [f a e][
if find [over away] a [
f/offset: f/offset + e/offset - f/data
update-nubs f
show [f nub-face]
]
if a = 'down [
f/data: e/offset
show-nubs f
]
]
nub-face: make vid-face [
edge: make edge [color: 250.120.40 effect: 'nubs size: 4x4]
color: font: para: text: data: none
feel: make feel [
engage: func [f a e] [ ;intercepts target face events
if data [data/feel/engage data a e]
]
]
]
update-nubs: func [f] [
nub-face/offset: f/offset - 4x4
nub-face/size: f/size + 8x8
]
show-nubs: func [f] [
update-nubs f
nub-face/data: f
if not find f/parent-face/pane nub-face [
append f/parent-face/pane nub-face
]
show f/parent-face
]
foreach f faces/pane [f/feel/engage: :engage-drag]
view faces
[REBOL] Simple script for view layouts Re:
[EMAIL PROTECTED] wrote: Here's a script you will probably enjoy. It's been hanging around for a couple months nagging to educate others, so I decided to give it a name and post it. Well well well - very nice, Carl. Just a small comments: - when moving "Test" over image, the text hides behind it, while edge effect remains over the image. How's that? What about some func for making focused face being upper in the tree? - sometimes during beta 1 or 2 I suggested possibility of change os mouse pointer. What about possibility to enlarge the field, button, etc.? We don't have such functionality, right? Hmm, can we easily catch events going over edges? (not to say events over nubs :-) Hmm, feel of /Author, am I right? How's /Author going? Cheers, -pekr-
[REBOL] Simple script for view layouts Re:
A lot of potential hiding in that simplicity. Gonna have fun with this over
the weekend :-)
One problem, once the backdrop has been selected, you can't grab any thing
else.
mmm..
Tinkering on If I use right click to deselect and remove the nub this
would be the way around that. Tinkering off
Cheers,
Allen K
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, June 30, 2000 4:36 PM
Subject: [REBOL] Simple script for view layouts
Here's a script you will probably enjoy. It's been hanging around for
a couple months nagging to educate others, so I decided to give it a
name and post it.
REBOL [
Title: "Graphical Layout Editor"
Author: "Carl Sassenrath"
Date: 20-Jun-2000
File: %layed.r
Purpose: {
Your basic 1K REBOL graphical object layout editor.
Not many features, but a good example of how to drag
faces and show nubs.
}
Note: "Keeping the nubs on top is done on purpose."
Category: [view vid 3]
]
; Layout to edit:
faces: layout [
backdrop %bay.jpg 0.0.200
title "Test"
image %bay.jpg
field
across space 0
button "Send"
button "Cancel"
]
vid-face: get-style 'face
engage-drag: func [f a
if find [over away] a [
f/offset: f/offset + e/offset - f/data
update-nubs f
show [f nub-face]
]
if a = 'down [
f/data: e/offset
show-nubs f
]
]
nub-face: make vid-face [
edge: make edge [color: 250.120.40 effect: 'nubs size: 4x4]
color: font: para: text: data: none
feel: make feel [
engage: func [f a e] [ ;intercepts target face events
if data [data/feel/engage data a e]
]
]
]
update-nubs: func [f] [
nub-face/offset: f/offset - 4x4
nub-face/size: f/size + 8x8
]
show-nubs: func [f] [
update-nubs f
nub-face/data: f
if not find f/parent-face/pane nub-face [
append f/parent-face/pane nub-face
]
show f/parent-face
]
foreach f faces/pane [f/feel/engage: :engage-drag]
view faces
[REBOL] Need to accept cookies. Re:
In article 000501bfe245$b9b486e0$1c00a8c0@peteri7k, [EMAIL PROTECTED] writes Hi, I am trying a command like the following to access a shopping website: page: read http://www.dstore.com It reads this into page but the page says: "To access this site your browser must be accepting cookies." Is their any way to accept cookies and then get the actual page that I am looking for? Thanks Peter This is interesting. I haven't been reading this list for some months now. I went to Rebol's site to check out what was new in the downloadable scripts, to see if anyone had got round to writing a cookie enabled web browser, and was very surprised to find several hacks I had made last year in the download section! I had left them on my own server, warts and all, as I had never got round to polishing them up to submit to www.rebol.(org|com), and am embarrassed to find someone else has submitted them. One of them doesn't even work anymore http://www.rebol.com/library/html/cellphone.html as MTN changed their interface so that my script failed :-( I never did figure out how to get round their new interface. -- Regards, Graham Chiu gchiuatcompkarori.co.nz http://www.compkarori.co.nz/index.php Powered by Interbase and Zope
[REBOL] REBOL/Core 2.3 Released! Re:(4)
Well, I have Rebol on my C drive, I have Windows 98 (the initial version, not the special edition), %/c/ %/e/ are both on the main hd (C is the main partition), %/d/ is a seperate drive. Julian Kinraid Rebol/View 4.1 - read %/ == [%/a/ %/c/ %/e/ %/f/ %/p/ %/x/] Rebol/Core 2.3 - read %/ == [%/a/ %/c/ %/e/ %/f/ %/p/ %/x/] I have Rebol/Core and /View on my D drive!! D drive! By -JanRegent- Objevujte Internet s http://www.centrum.cz Zalote si svuj mail na http://mail.centrum.cz
[REBOL] View: RebolForces Reb updated
Hi Rebols,
I've just finished an update of the Rebolforces Reb. I've added a number of
the interface features people asked for. You can now choose to run, download
and browse the colorised source for each script. ("+" maximises the
minimised windows too) .
If you haven't visited for a while, click the download icons before running
scripts to force an updated version to be cached on your system.
The view-FAQ I wrote is also linked from the reb as well as 13 other view
demos.
Have a good weekend! (and pity us Aussies as we wake up to a new tax system)
Cheers,
Allen K
Use the REBOL forces link from the Rebol Tech Reb or use the link below
REBOL []
do http://www.janita.com.au/rebolforces/reb/index.r
[REBOL] Re: Random chaos Re:
Hello [EMAIL PROTECTED]! On 29-Giu-00, you wrote: h Since you are using the Amiga version: connected? there h currently only works with Miami and Miami Deluxe in recent :-) But shouldn't it return FALSE if there's no stack running? Regards, Gabriele. -- Gabriele Santilli [EMAIL PROTECTED] - Amigan - REBOL programmer Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
[REBOL] REBOL HQ Webcam
Thanks to Andrew, one of our summer students, the REBOL Headquarters webcam is now in beta. Take a peek out the front window of REBOL across the Ukiah town square to the hills beyond (2000 ft elev). The town square has various events worth visiting from time to time... fiddle and guitar bands, punkin festivals, old car shows, dancing dogs with clean hippy kids, the usual Mendocino stuff. Now you can see for yourself why Ukiah was ranked the 6th best small town in America, right? If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van. With a webcam like this, who needs TV. "Hey, Cindy, pass the popcorn." -Carl
[REBOL] Webcam URL
Whoops. Should have gotten more than 3 hours sleep... Here's the address: http://demo.rebol.net/webcam/
[REBOL] REBOL HQ Webcam Re:
Very cool. I assume the messages are retrieved from the Webcam using REBOL, correct? If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van.
[REBOL] Webcam URL Re:
Whoops. Should have gotten more than 3 hours sleep... Here's the address: http://demo.rebol.net/webcam/ ahh...there you are! sighhh...have to stop looking now...reminds me too much of home... well...our trees are a bit bigger...;^) --Alan [EMAIL PROTECTED]
[REBOL] REBOL HQ Webcam Re:
Take a peek out the front window of REBOL across the Ukiah town square to the hills beyond (2000 ft elev). The town square has various events worth visiting from time to time... fiddle and guitar bands, punkin festivals, old car shows, dancing dogs with clean hippy kids, the usual Mendocino stuff. Now you can see for yourself why Ukiah was ranked the 6th best small town in America, right? If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van. Very nice, but where's the cannon and the great weathered bronze equestrian statue of General Carl "Old Code and Glory" Sassenrath, famous hero of the REBOLution? Where are the boiled peanut vendors, the maganolias, the weeping willow trees? Ukiah has a lot to learn about town squares. I don't even see a town drunk?g Erin and Sterling are doing okay, tho'. Inline skating is great training for debugging code. But I do like the web cam. Nice. --Ralph Roberts
[REBOL] REBOL HQ Webcam Re:
If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van. With a webcam like this, who needs TV. "Hey, Cindy, pass the popcorn." Actually, to be fair, I see the old street clock... nice... we have one of those also. A nice point, the pole of the clock, for Erin and Sterling to grab in executing rapid changes of direction while inline skating, thus keeping themselves well rounded. --Ralph
[REBOL] REBOL HQ Webcam Re:(2)
You bet! At 6/30/00 01:56 PM -0500, you wrote: Very cool. I assume the messages are retrieved from the Webcam using REBOL, correct? If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van.
[REBOL] REBOL HQ Webcam Re:(2)
At 6/30/00 03:26 PM -0400, you wrote: Take a peek out the front window of REBOL across the Ukiah town square to the hills beyond (2000 ft elev). The town square has various events worth visiting from time to time... fiddle and guitar bands, punkin festivals, old car shows, dancing dogs with clean hippy kids, the usual Mendocino stuff. Now you can see for yourself why Ukiah was ranked the 6th best small town in America, right? If you look closely, you might see Sterling or Erin setting new inline skating records, Bo doing wheelies in the square, Holger rewiring the exchange, or Jeff burning tobacco. You might even get to see Cindy unloading sodas from the van. Very nice, but where's the cannon and the great weathered bronze equestrian statue of General Carl "Old Code and Glory" Sassenrath, famous hero of the REBOLution? Where are the boiled peanut vendors, the maganolias, the weeping willow trees? Ukiah has a lot to learn about town squares. I don't even see a town drunk?g The magnolias, willows, and town drunk are down the street two blocks. They are reserved for courthouse only. This square is young... Built just a couple years ago, which is why there are no large trees. The bronze statue is on back order from Amazon. -Carl
[REBOL] core 2.3 install woes
core 2.3 install woes howdy guys, just tried to upgrade to REBOL/core 2.3. I think it has already been mentioned that "upgrade" does not work. I grabbed the libc6 version for linux, and it failed to start because it seemed to be looking for a libc5 shared library. I got the old library, tried it, and now rebol just crashes. Is this a bug, or what's going on? version 2.2 works just fine. thanks, -tom
[REBOL] Webcam URL Re:
How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM Or has someone just stuck a picture to the lense :-) Cheers, Allen K - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, July 01, 2000 4:32 AM Subject: [REBOL] Webcam URL Whoops. Should have gotten more than 3 hours sleep... Here's the address: http://demo.rebol.net/webcam/
[REBOL] Webcam URL Re:(2)
Allen wrote: How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM I'm more concerned as to why the tree to the right, looks like a giant snarling rat? Andrew Martin Rebol voyeur... ICQ: 26227169 http://members.xoom.com/AndrewMartin/ --
[REBOL] Webcam URL Re:(2)
I'm guessing that the AirBorne Express driver bumped something when he went in or out - jim At 07:40 AM 7/1/2000 +1000, you wrote: How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM Or has someone just stuck a picture to the lense :-) Cheers, Allen K - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, July 01, 2000 4:32 AM Subject: [REBOL] Webcam URL Whoops. Should have gotten more than 3 hours sleep... Here's the address: http://demo.rebol.net/webcam/
[REBOL] Webcam URL Re:(3)
At 7/1/00 09:49 AM +1200, you wrote: Allen wrote: How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM I'm more concerned as to why the tree to the right, looks like a giant snarling rat? Andrew Martin Rebol voyeur... ICQ: 26227169 http://members.xoom.com/AndrewMartin/ -- And we all thought it was a furry fluffy bunny. Not sure why it stopped, but somehow I get this feeling that Airborne Express had something to do with it... grin
[REBOL] Webcam URL Re:(3)
I'm more concerned as to why the tree to the right, looks like a giant snarling rat? It totally does!!!
[REBOL] Webcam URL Re:
I seem to be suffering from that same disease... REBOLITIS. --- [EMAIL PROTECTED] wrote: Whoops. Should have gotten more than 3 hours sleep... Here's the address: http://demo.rebol.net/webcam/ __ Do You Yahoo!? Kick off your party with Yahoo! Invites. http://invites.yahoo.com/
[REBOL] Webcam URL Re:(3)
Turns out, it was the rat that took out the webcam. At 7/1/00 09:49 AM +1200, you wrote: Allen wrote: How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM I'm more concerned as to why the tree to the right, looks like a giant snarling rat? Andrew Martin Rebol voyeur... ICQ: 26227169 http://members.xoom.com/AndrewMartin/ --
[REBOL] Webcam URL Re:(3)
To: [EMAIL PROTECTED] From: [EMAIL PROTECTED] Send reply to: [EMAIL PROTECTED] Date sent: Sat, 1 Jul 2000 9:49:49 +1200 Subject:[REBOL] Webcam URL Re:(2) Allen wrote: How often is it updated? Looks like its stuck on Friday June 30, 2000 1:22:25PM Maybe it's stuck on 1:22:25pm because todays webcam shot is sponsored by Airborne Express. Tomorrow it'll be the Pepsi van. ;-) Kev Kevin McKinnon, Network Engineer [EMAIL PROTECTED] Sunshine Communications http://www.sunshinecable.com PGP Public Key: http://www.dockmaster.net/pgp.html PGP 6.0 www.pgp.com
[REBOL] Webcam URL Re:(4)
I'm more concerned as to why the tree to the right, looks like a giant snarling rat? It totally does!!! It totally is!! Why do you think we get so much done around here? We have to wait until it goes to sleep to leave the office. :) Sterling
[REBOL] REBOL HQ Webcam Re:(2)
On 30-Jun-2000/15:26:13-4:00, [EMAIL PROTECTED] wrote: Very nice, but where's the cannon and the great weathered bronze equestrian statue of General Carl "Old Code and Glory" Sassenrath, famous hero of the REBOLution? Where are the boiled peanut vendors, the maganolias, the weeping Ukiah has a lot to learn about town squares. I don't even see a town drunk?g There is a cannon, you just can't see it as it is a little off the left side of the picture and down the street a bit. The problem with the equestrian statue is getting Carl to consent to being covered with plaster while making the mold. You can sometimes catch the drunk just to the right of the clock in the mornings. ;-) -- Bohdan "Bo" Lechnowsky REBOL Adventure Guide REBOL Technologies 707-467-8000 (http://www.rebol.com) Download the REBOL Messaging Language for all Platforms
[REBOL] View: RebolForces Reb updated Re:
Hi Allen,
really very nice work.
At 02:55 AM 7/1/00 +1000, you wrote:
Hi Rebols,
I've just finished an update of the Rebolforces Reb. I've added a number of
the interface features people asked for. You can now choose to run, download
and browse the colorised source for each script. ("+" maximises the
minimised windows too) .
If you haven't visited for a while, click the download icons before running
scripts to force an updated version to be cached on your system.
The view-FAQ I wrote is also linked from the reb as well as 13 other view
demos.
Have a good weekend! (and pity us Aussies as we wake up to a new tax system)
Cheers,
Allen K
Use the REBOL forces link from the Rebol Tech Reb or use the link below
REBOL []
do http://www.janita.com.au/rebolforces/reb/index.r
;- Elan [ : - ) ]
[REBOL] tab delimited records
Didn't get a reply awhile ago on this so I'm going to ask again (seems
everyone got caught in the CSV discussion :)).
scenario:
file with lines of data, tab delimited fields.
datadatadata^tdatadata^tmoredata^n
Now, I can suck this up with parse and write it back but end up with one
huge block of series.
[{datadata ^t^t^tdatamoredata^tfoo^n}(repeat...)]
(converts from TDV to rebol format)
foreach file load indir [
dat: read/lines rejoin [indir file]
print rejoin ["Converting " file]
block: make block! 1000
heading: parse/all first dat "^n"
foreach line next dat [append block parse/all line "^n"]
save rejoin [outdir file] head insert/only head block heading
]
Ideally I would like to be able to dump back out to a file as:
[
[my data stuff^tmore of this record^n]
[repeat more data..]
]
(reads back in what we wrote above to verify its format)
foreach file load indir [
dat: load rejoin [indir file]
foreach blk next dat [
; perl equiv in a nutshell - ($var1, $var2, $var3, $var4, $therest) =
split("\t",$_);
set [name userid grp online offline created code gen res xp yp rad url
blurb
street city phone fax mobile hotline email key hist virt imag1 cap1
desc1
img2 cap2 desc2 img3 cap3 desc3 access flags] parse/all blk "^t"
print name
]
]
Kinda like a block in a block I was thinking. Better yet (this is my C side
thinking) being able to load and save objects (records). I have noticed in
the core dictionary that: set [d e] [1 2] would be something I probably
wouldn't
mind either but am not quite able to get parse to spit things out right,
tried: set [var1 var2 var3] parse/all data newline
Regards,
Deryk
[REBOL] Database sample data
I am developing a MySQL database application and want to generate some sample data in tab delimited format: The following script is my first effort: REBOL [ Title: "jobs-gen.r" Author: "Doug Hudgeon" Date: "Saturday, 17 June 2000" ] data: to-string 100 ;set a series of functions to field names JobID: 1 JobTypeID: func [] [join random 2 tab] SupplierEmpID: func [] [join random 240 tab] BidderEmpID: func [] [join random 240 tab] SupplierJobID: func [] [join random 100 tab] Name: func [] [names: read/lines %name.dat join pick names random 606 tab] Desc: func [] [Descs: read/lines %desc.dat join pick Descs random 2 tab] AcceptedBidID: func [] [join random 1 tab] makedate: func [] [ day: random 29 month: random 6 rejoin [day "-" month "-" 2000] ] Q: func [] [join random 5 tab] T: func [] [join random 5 tab] P: func [] [join random 5 tab] ;create header row data: join "JobID" [ tab "JobTypeID" tab "SupplierEmpID" tab "BidderEmpID" tab "SupplierJobID" tab "Name" tab "Desc" tab "AcceptedBidID" tab "EntryDate" tab "ClosingDate" tab "Q" tab "T" tab "P" newline ] ;create data rows loop 100 [ data: join data [ jobID tab JobTypeID SupplierEmpID BidderEmpID SupplierJobID Name Desc AcceptedBidID date: to-date makedate tab date + random 3 tab Q T P ] JobID: JobID + 1 data: join data newline ] write %jobs.txt data quit == names.dat is a text file with 606 names in it (drawn from a list of Pilgrims to the US) desc.dat is a text file with two sample descriptions of the data. The remaining data is generated randomly from dates and numbers. The script works but it is not particularly rebolious. To help me learn Rebol, can you suggest ways that my script can be improved? Thanks for your help. Doug
[REBOL] Re: REBOL HQ Webcam Re:(2)
Hello [EMAIL PROTECTED] On 30-Jun-00, [EMAIL PROTECTED] wrote: There is a cannon, you just can't see it as it is a little off the left side of the picture and down the street a bit. The problem with the equestrian statue is getting Carl to consent to being covered with plaster while making the mold. You can sometimes catch the drunk just to the right of the clock in the mornings. ;-) That is not me,just my evil twin brother! :) Regards -- What was the first lesson I ever taught you? - Never start a fight, but always finish it. - David and John Sheridan JMS Trustee http://www.jms.org HP=http://www.sonic.net/~alanwall/ First computer solar powered vic-20 AmigaQNX-notAmigaNG=no good computers for people not suits sent via Yam ver2 on AmigaForever ver3 Be a Rebel get [EMAIL PROTECTED] UIN#=9391028
[REBOL] Webcam URL Re:(5)
- Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, July 01, 2000 9:09 AM Subject: [REBOL] Webcam URL Re:(4) I'm more concerned as to why the tree to the right, looks like a giant snarling rat? It totally does!!! It totally is!! Why do you think we get so much done around here? We have to wait until it goes to sleep to leave the office. :) Sterling It's spooky after dark.. This is a great timezone converter, now I always know what time it there. RMT (rat meal time) Cheers, Allen K
[REBOL] tab delimited records Re:
[EMAIL PROTECTED] wrote: Didn't get a reply awhile ago on this so I'm going to ask again (seems everyone got caught in the CSV discussion :)). Disregard that message..I managed to get it sorted out with some trial and error. Wonder why it sometimes takes longer than a day for messages to reach the list..odd. Deryk
[REBOL] Browser?
Been snoozing a bit, but was I dreaming or did somebody mention working on / having a /View-based web browser project going? jb
