AltME groups: search

silly question - is there a way to increase display font size in 
AltME?

Ok, after all my complaints about font sizes in Altme on newer monitors, 
it looks like the next windows will deal with this... a quote.. 


 Don't you hate it how, when you increase the resolution of your desktop, 
 everything gets smaller? With widescreen LCD monitors sporting resolutions 
 of 1920x1200, and even laptops with screens that high-res, the icons 
 and text on your PC can become absolutely tiny when you run at the 
 native resolution. Enabling large fonts and trying to scale your 
 desktop icons in WinXP only sort-of works, and it breaks as many 
 things as it fixes. With Vista, your plug-and-play monitor can tell 
 your PC what size and resolution it is, and then Vista can scale 
 everything appropriately. 12-point fonts will actually be 12 points, 
 regardless of whether you're using a 1280x1024 19
 LCD or an ultra-high-res laptop."

plug-and-play monitor can tell your PC what size and resolution it 
is, and then Vista can scale everything appropriately

 - Wow, finally WinXP works like the Mac did 10 years ago. (Sorry, 
 I just had to say it.)

Offf-topic but does anyone know what the file size limit is on shared 
files?

Under MacOSX, it's a little difficult to have AltME window fill the 
whole screen, but I found a solution. By "the whole screen", I actually 
don't mean full-screen, because MacOSX has the screen-bar at top, 
and below that is the window bar with the 3 buttons. In the altme/prefs/ 
directory is a file named "window". In there is found 3 parameters 
offset, size and maxed. To make the AltME window be as large as possible 
on a 1024x768 resolution, I set these 3 parameters to:
offset: 0x44
size: 1024x724
maxed: false

A small hand-held vaccuum cleaner can help get rid of dust, which 
might be slightly conductive.. :) I don't actually have one myself, 
I just use  a full-size vaccuum cleaner carefully :)

you could also make the window smaller for this group. Page scrolling 
scrolls about two pages if the size of the list is about 2-300 pixels.

reichart, I think that's what we are doing, and I actually first 
observed the problem with one of my users and then another and another...


The scroller knob looks like it's moving a full page, but it's really 
not. I think this is because the page size is derived directly from 
the pixel size of the knob, which will cause rounding errors, the 
smaller the knob gets.

The text size in minute even with the large font selected. Any hints?

It runs okay but the text is so small I can hardly read it. The large 
text seems to be about the same size as the small text on Windows 
(which is too small for us MAc users ;-) )

Romano: that should be fixed, that error came out whenever there 
was a face with size = 0x0

Romano, Anton: the new error!s were introduced to rebol instead of 
"face in more than one pane" and simmilar console prints.
regarding this error
** Script Error: Invalid graphics face object
** Where: view
** Near: show scr-face
if new [do-events]


I have got it when one of face/size coordinates are lesser than 1.

romano: indeed, that was a bug, and should be fixed. (though, zero-size 
faces are debatable. vid uses them for sensors, so for compatibility 
that must work, however it doesn't seem such a great idea to me.)

view center-face layout [

    f: box 100x100 white edge [size: 10x10 color: none effect: none] 
    with [

        pane: make face [edge: none offset: 50x50 size: 50x50 color: yellow]
    ]
]

Linux 1.3 Beta -> problem with Offset inside a face where a unview 
- view changes the offset of the parent-face to a different offset. 
IM not sure if this is a feature in 1.3 but in 1.2 its not happening, 
the code below demonstrates the behaviour.. Click the window and 
the window will always move by face/offset/y
direction to a new position..
myface: make face [
    offset: 100x100
    size: 400x400
    feel: make feel [
        engage: func [face action event] [
            if action = 'down [ unview myface   view myface  ]
        ]
    ]
]
view myface

Linux 1.3 Beta -> When running this script and pressing the window 
im getting the following error ->
view make face [
    offset: 100x100
    size: 300x100
    edge: none
    pane: reduce [
        make face [
            offset: 0x0
            size: 300x100
            color: water
            edge: none
            text: "Modified Font Object Settings"
            font: make font [
                name: "times"
                size: 20
                style: 'bold
                color: white
                align: 'center
                valign: 'middle
                space: 4x4
                shadow: 2x2
            ]
        ]
    ]
]



--- ERROR --- although its not a displayed event i think that it 
still should not dropout..

** Script Error: Invalid path value: dirty?
** Where: evt-func
** Near: if all [
    system/view/focal-face 
    event/type = 'down 

    not within? event/offset win-offset? system/view/focal-face system/view/focal-face/size 
    system/view/focal-face/dirty?
] [
    fac: system/view/focal-face 
    unfocus 
    if flag-face? fac on-unfocus [
        do-face fac none 
        fac/dirty?: none
    ]
] 
event
>>

you can use size: (length? second a) * 4
it may fail :-)

oh well.... that button size may vary in needed size, because it 
did crash in both cases now in the console

so, it has minimal memory use with gigabyte size files?

crc-32.r with gigabytes files: [don't do it] - it works, the memory 
used isn't size relative - but on a 1GHz PIII, the speed is < 300 
kbytes/s! 
rebcode version is a lot faster (>2Mbytes/s), but 
1) rebcode isn't part of official releases 
2) the rebcode version of 'crc-32 needs whole file in memory.

so, back to RAMBO: #3650 - I vote for 'crc32 as another 'checksum/method, 

and maybe a RAMBO ticket for a port aware version of 'checksum would 
be a good idea.

view layout [
	face with [ 
		init: [
			size: 600x400

			pane: layout [
				my-list: list 600x400 [
					my-text: text 600 feel [
						detect: func [face event][
							print ["inner -" mold type? event]
							event
						]
					]
				] data [["hello"]["there"]]
			] 

		] 

		feel: make face/feel [
			detect: func [face event][
				print ["outer -" mold type? event]
				event
			]
		]
	]
]

it-face: make face [
	size: 200x20 
	offset: 20x20
	text: "iterated face"
	feel: make feel [
		detect: func [face event][
			print ["inner -" mold type? event]
			event
		]
	]
]

append system/view/screen-face/pane make face [
	size: 400x400
	pane: make face [
		size: 400x400
		color: gray
		pane: func [face index][
			either integer? index [
				if index < 10 [
					it-face/offset/y: index * 21
					return it-face
				]
			][
				return to-integer index/y - 21 / 21 + 1
			]
		] 

		feel: make feel [
			detect: func [face event][
				print ["outer -" mold type? event]
				event
			]
		]
	]
]
show system/view/screen-face
do-events

it seems to happen if you are specifying the pen attributes and you 
accidentally include something else, like a drawing command, but 
the drawing command has to be somewhat complete to trigger the bug. 
interestingly, setting the box size to 0x0 does not trigger the bug, 
maybe because the draw block is not performed when the box is 0x0.

it seems also to be only when specifying two colors after pen. I've 
boiled it down to this:


view make face [size: 1x1 effect: [draw [pen black white box 0x0 
0x0 line-width]]]

You can even remove line-width, so:


view make face [size: 1x1 effect: [draw [pen black white box 0x0 
0x0]]]

I accidentally put a string in the font size, like this:

view layout [area font [size: "m"]]


Windows gives me a small font, which seems right. On OSX I either 
get screen trashing inside the text area, hanging or a segmentation 
fault.

Actually, I see quite the opposite. Using following code:

view layout [text "MIQXA" text "MIQXA"  font [size: "m"]]


the second line is bigger .I'm trying this on xubuntu 6.06 (using 
area has same results, but area is much bigger than text so it's 
harder to notice).
I'm rebooting to Win to see the difference.

so I tried on Win and the second line is so small so it's unreadable 
(font size 1 or something like that)

Bug: The size of the H1 is different in these two examples:

Anyone confirm ? I think it is maybe something to do with H1 and 
size-text.

[
	if :action [feel: svvf/hot saved-area: true]

 if all [not flag-face? self as-is string? text] [trim/lines text]
	if none? text [text: copy ""]
	change font/colors font/color
	if none? size [size: -1x-1]
	xy: size
	if any [size/x < 0 size/y < 0] [
		state: max 1x1 pane-size * 9 / 10 - offset
		if size/x < 0 [size/x: state/x]
		if size/y < 0 [size/y: state/y]
		size: (size-text self) + (edge-size? self)

  + (to-pair all [para (to-pair para/margin) + to-pair para/origin])
	]
	if xy/x > 0 [size/x: xy/x]
	if xy/y > 0 [size/y: xy/y]
]

How to set correctly progress function for read-net? Or what causes 
following error and :                                            
                >> myProgr: func [ tot bt ] [ print bt / tot ]

>> read-net/progress to-url "http://maps.dnr.state.mn.us/cgi-bin/mapserv36?map=/usr/loca

l/www/docs/mapserver_demos/tests36/expressions/test.map&map_counties_class_expression=(%

5bAREA%5d %3e 7577272785.15339)&layer=title&map_title_class_text=Counties+Larger+Tha
n+Itasca+County&mode=map" :myProgr
0.425625
** Script Error: not is missing its value argument
** Where: read-net

** Near: all [:callback size not callback size length? buffer data: 
true break]
not data
>> source read-net
read-net: func [

    {Read a file from the net (web). Update progress bar. Allow abort.}
    url [url!]

    /progress callback {Call func [total bytes] during transfer. Return 
    true.}
    /local port buffer data size
][
    vbug ['read-net url]
    if error? try [port: open/direct url] [return none]

    size: to-integer any [port/locals/headers/content-length 8000]
    buffer: make binary! size

    set-modes port/sub-port [lines: false binary: true no-wait: true]
    until [
        if not data: wait [60 port/sub-port] [data: true break]
        if data: copy port/sub-port [append buffer data]

        all [:callback size not callback size length? buffer data: true break]
        not data
    ]
    close port
    if not data [buffer]
]
>>

Thanks Allen!
The problem was so obvious that I did not think about it ;-)

just it is impossible to know what size of image will be that is 
coming from a cgi process with many parameters.

I have a question about the order of arguments to a function. I wanna 
hear your opinion. I'm programming REBOL versions of some of the 
Amiga graphics.library functions. BltMaskRGBMap is a function of 
mine, that will copy part of an image at a certain position and size 
to another image through a mask. It takes the arguments: source image, 
source position, destination image, destination position, size and 
finally mask. That would be the order of the arguments, if it was 
an Amiga graphics.library function. But in REBOL, destination is 
often (always?) first, so maybe I should switch source image and 
position with destination image and position? What do you think would 
be the better way for a REBOL programmer?

generates a SVG graph of size 1000x1000, and scales the data automatically

system/view/screen-face/feel/event-funcs/1: func [face event /local 
fac][
    if all [
        system/view/focal-face 
        event/type = 'down 

        not within? event/offset win-offset? system/view/focal-face system/view/focal-face/size 
        system/view/focal-face/dirty?] [
        fac: system/view/focal-face 
        unfocus 
        if flag-face? fac on-unfocus [
            do-face fac none 
            fac/dirty?: none]] 
    event]

Maybe a box like this:


>> l: layout [b: box white font [size: 12 style: none shadow: none 
color: black] "text text text text text text text text"]
>> b/size/y: second (size-text b) + 4x4
== 34
>> view l

correction: b/size/y: second (size-text b) + 4

Have any of you looked close at the MakeDoc2 formatter? It's a 2-pass 
parsing, first converting the text to rebol blocks, and then parsing 
the block(s) producing HTML code. Of course it's smart, because if 
you wanna make a parser producing e.g. PDF code, you only have to 
make a new second level parser. And there's also the problem with 
Table Of Content, which can only be completed after the first pass. 
My first approach with my NicomDoc format was to make a 1-pass parser, 
and build the TOC along the way as separate text, and then only combine 
the TOC and the rest of the document before output. Benefit with 
1-pass parsing would be speed, but downside is, that you need a new 
full parser, if you wanna make PDF code. Then again a parser going 
from some rebol block format to e.g. PDF would probably be almost 
same size as going from a text format (NicomDoc or MakeDoc) to PDF. 
hmm What about XML? Making an XML file from some rebol blocks would 
be pretty easy, same the other way. What should I do? Make a 1-pass 
or a 2-pass formatter?

simpler to just check the size of the string before it gets worked 
on.

=image 
    file: images/a picture.gif 
    size: 200x300
    caption: some caption below the picture 
    desc: some description for the picture


I'm trying to extend Makedoc2 for a project to generate a xml dialect 
and I need much more information to certain elements - e.g. images 
- so I'm trying to make it as easy as possible for the user. The 
above is what I actually wanted to parse - but the order of the information 
is supposed to be free and I can't and don't want to use rebol datatypes 
which might be the first thought to make the parsing easier, because 
normal people don't want to learn too many rules for all these things. 
So the b and c in the example corresponded more to the caption and 
desc in the above example.

I'm gonna try again:

>> s: {=image
{    file: images/a picture.gif
{    size: 200x300
{    caption: some caption below the picture
{    desc: some description for the picture}
== {=image
file: images/a picture.gif
size: 200x300
caption: some caption below the picture
desc: some description for the pictu...
>> parse head append s {^/} [
[    some [
[        thru {file: } copy file to {^/} |
[        thru {size: } copy size to {^/} |
[        thru {caption: } copy cap to {^/} |
[        thru {desc: } copy desc to {^/}
[        ]
[    ]

Pity they don't advise the download size on the download page with 
checksums

i need help  . how I start   rebol cgi script  http://adam.hosting4clans.net/test.cgi
 - receives error : User Error: REBOL: Cannot connect to X server 
** Near: size-text self

Also, you would only be able to restore the dd backup to a disk of 
exactly the same size

Ok, here is my first question: I'm constantly facing the problem 
of optional parameters. 


'keyword set name string! opt [set caption [string!]] opt [set size 
integer!] opt [set maxlength integer!] opt [set default string!]


As parse walks from left to right through this line the order of 
parameters play a role. After giving the first INTEGER value you 
can't specify the 'caption part anymore.


On the other hand, if you don't want to specify the 'caption but 
the 'default you have to provide an "" for 'caption because otherwise 
the second string! will be used as 'caption instead of 'default.

The problem seem to be, that there are no keywords for your optional 
parameters, and therefore the order of parameters paly a role. There 
are 2 string! and 2 integer! parameters, and if order didn't play 
a role, there is no way, the parser can figure out, which one is 
which. You may wanna go something like this:


'keyword set name string! any ['caption set caption string! | 'size 
set size integer! | 'maxlength set maxlength integer! | 'default 
set default string!]

Or you could put your parameters in a block:


'keyword set name string! opt into [any ['caption set caption string! 
| 'size set size integer! | 'maxlength set maxlength integer! | 'default 
set default string!]]

Without keywords: 

(integers: copy [] strings: copy [])
'keyword set name string! any [
	set string string! (append strings string) |
             set integer integer! (append integers integer) 
] (set [size maxlength] integers set [caption default] strings)

but less readable.

But I have an other problem with the non-keyword approach:


'keyword set name string! opt [set caption [string!]] opt [set size 
integer!] opt [set maxlength integer!] opt [set default string!]


In the above example the only order I can specify is: string! integer! 
integer! string! Right?

I can leave out some parts but I can't shuffel them. This isn't possible: 
string! string! integer! integer!


Because PARSE walks through the rule once from left to right. So 
by passing the second string! the integer! rules have been already 
"eaten".

Robert: to remove parameters order, you can act like this :

strings: copy [] integers: copy []

rule: ['keyword (clear strings clear integers) some [set p integer! 
(append integers p) | set p string! (append strings p)] (size: integers/1 
maxlength integers/2 caption: strings/1 default: strings/2)]

It's the principle used by VID but by a function, not with 'parse 
(see grow-facets func in SVV)


But it can't solve the datatype order : you can't passed Maxlength 
without Size !
But you can add another keyword to handle this case, like :

['maxlength set p integer! (maxlength: p)]


It's what VID does : tuple! can be color or font color (depends the 
style you use). To be sure it's font color, you have the 'font-color 
keyword.

Dide, how to handle the "can't pass 'maxlength without 'size" problem 
best? I mean how to specify no-maxlength? Providing a 0 or  a -1? 
I would like to use 'none for all those values, but 'none can't be 
destinquished if it's a none-integer or none-string.

strings: copy [] integers: copy []

rule: ['keyword (clear strings clear integers   size: maxlength: 
caption: default: none  ) some [set p integer! (append integers p) 
| set p string! (append strings p)] (size: integers/1 maxlength integers/2 
caption: strings/1 default: strings/2)]

then, none! is default unless you specify Size and, maybe, Maxlength.

Ups, it's even not needed : if Integers is empty, then "size: empty/1 
--> none!"

rule: [
	'keyword (clear strings clear integers)

 any [set p integer! (append integers p) | set p string! (append strings 
 p)]

 (size: integers/1 maxlength: integers/2 caption: strings/1 default: 
 strings/2)

 any ['maxlength set p integer! (maxlength: p) | 'default set p string! 
 (default: p)]
]

tests: [
	[]
	[keyword]
	[keyword 10 20 "Blue" "Orange"]
	[keyword 10 "Blue"]
	[keyword 10 20]
	[keyword "Blue" "Orange"]
	[keyword 10 "Blue" 20 "Orange"]
	[keyword "Blue" 10 20 "Orange"]
	[keyword "Blue" "Orange" 10 20]
	[keyword "Blue" maxlength 20]
	[keyword 10 default "Orange"]
	[keyword maxlength 20]
	[keyword default "Orange"]
	[keyword maxlength 20 default "Orange"]
	[keyword default "Orange" maxlength 20]
]

strings: copy [] integers: copy []
size: maxlength: caption: default: -1

foreach t tests [
	parse t rule
	print [mold t "==>" size maxlength caption default]
]

rfc: I have a (not so) little function that attempts to match a block 
of values to a given specification.  Example:

	>> probe match [%image.png :red 300x100 /old][
	[	file: file! | url!
	[	size: opt pair!
	[	attributes: any get-word! | refinement!
	[	]
	make object! [
		file: %image.png
		size: 300x100
		attributes: [:red /old]
	]


There's not much to the rules, they are -- one (default), opt (zero 
or one), any (zero or many), some (many).  If they don't match, they 
return an error.  Any suggestions?  Optimizations?

	http://www.ross-gill.com/r/match.r

It could be quite simple in fact (at least in theory) :


1) Send a first message telling the name and size of the file (unprocessed) 
to transmit
2) Send the file in parts (done automatically by Uniserve)

3) Catch the 'on-write-chunk event to process the chunk data (compress, 
encode...) then add a header containing :
     - size of the chunk

     - a sequence ID (an incremental counter starting with 1, 0 would 
     mean last chunk)

one would think there should be a more elegant way to force html 
to stay within a certain % or pixel size

pixel_face: make face [
    size: pixel_size
    edge: none
	color: black
    data: 0
]

...

pane-func: func [face index] [
    index: (index - 1)
    either integer? index [
        if index < ((grid_size/x) * (grid_size/y)) [
        	xx: (index // (grid_size/x)) + 1
        	yy: to-integer ((index / (grid_size/x)) + 1)
            pixel_face/data: index
            pixel_face/offset/y: ((yy - 1) * (pixel_size/y))
            pixel_face/offset/x: ((xx - 1) * (pixel_size/x))
            pixel_face/color: pick paleta sprite-colors/:yy/:xx
            return pixel_face
        ]
    ][
 ;       return to-integer index/y / 20 + 1
    ]
]

key-event: func [face event] [
    if event/type = 'key [
	            switch event/key [
                        up [cursor_y: cursor_y - 1]
	            		down [cursor_y: cursor_y + 1]
                        left [cursor_x: cursor_x - 1]
                        right [cursor_x: cursor_x + 1]

                       ]
           		sprite-colors/:cursor_y/:cursor_x: 2
	            show grid
            ]
    if event/type = 'time [
		? now/time
    	cursor_color: (3 - cursor_color)
   		sprite-colors/:cursor_y/:cursor_x: :cursor_color
        show grid
	]
    event
]
 
insert-event-func :key-event

grid: make face [
    offset: ((screen_size - window_size) / 2)
    size: window_size
    rate: 00:00:05
    color: blue
    effect: [gradient]
    pane: :pane-func
]

view/new grid
do-events

If you want just blinking cursor, don't use insert-event-func, but 
just something like that:
cursorMover: func[f e][
	if e/type = 'key [
		switch e/key [
            up    [cursor/offset/y: cursor/offset/y - 10]
	        down  [cursor/offset/y: cursor/offset/y + 10]
            left  [cursor/offset/x: cursor/offset/x - 10]
            right [cursor/offset/x: cursor/offset/x + 10]
		]
		show cursor
	]
	e
]
insert-event-func :cursorMover

view layout/size [
	cursor: box 10x10 with [
		rate: 10
		colors: [0.0.0 255.255.255]
		feel: make feel [
			engage: func [f a e] [
				if a = 'time [
					f/color: first head reverse f/colors
					show f
				]
			]
		]
	]
] 400x400

What could be problem with this script?

set-net [[user-:-mail-:-com] smtp.mail.com pop3.mail.com] 
today: now/date
view center-face layout [
		size 340x120
 		button "Send mail" font [size: 26] 300x80	[

    send/attach/subject [user-:-mail-:-com] "" %"/c/file.xls" reduce [join 
    "Today  " :danas]
 			quit
 		]
	]

I get this error:


** User Error: Server error: tcp 554 5.7.1 <[user-:-mail-:-com]>: Relay 
access denied
** Near: insert smtp-port reduce [from reduce [addr] message]

Could it be some security issue?

It worked with previous internet provider... A week ago we changed 
it and now this happens...

Should I contact my provider to change some security settings or 
should I change something in the script?

Files are 1-2 Mb. Ziped archives of dbf files.

As I said now I'm using small rebol script to send file as attachment, 
human on the other side is downloading them and unpacking them, and 
its working.

I planed to make a "server" side script that would download newly 
arrived attachments and unpack them in designated folders, but then 
I thought about trying some real client-server approch...

Then again, server would have to be started at the time of transfer. 
I have to know ip adresses and to make them public (hamachi jumps 
in as help)...

E-mail used as buffer for data is not bad... And it works... But 
I have to check max mailbox size .... What if workers execute sending 
script more then ones?

There is one strange thing with sending big (>1 Mb) files::

On win98 it goes without any problem. On XP at the end of transfer 
rebol returns an error message about network timeout, but the file 
is sent and all is ok..

Thanks guys... Lot of info... Will check it out and send my experiences.

No.     Time        Source                Destination           Protocol 
Info

     90 2.750586    192.168.2.108         194.9.94.127          FTP   
        Request: TYPE I

     97 2.823074    194.9.94.127          192.168.2.108         FTP   
        Response: 200 TYPE is now 8-bit binary

     98 2.828500    192.168.2.108         194.9.94.127          FTP   
        Request: PASV

    113 3.171841    192.168.2.108         194.9.94.127          FTP  
        [TCP Retransmission] Request: PASV

    114 3.244193    194.9.94.127          192.168.2.108         TCP  
        [TCP Previous segment lost] ftp > mgemanagement [ACK] Seq=80 
    Ack=15 Win=16500 Len=0

    131 3.889034    194.9.94.127          192.168.2.108         FTP  
        [TCP Retransmission] Response: 227 Entering Passive Mode (194,9,94,127,250,69)

    137 3.984887    192.168.2.108         194.9.94.127          FTP  
        Request: STOR ik104test.zip

    149 4.247163    194.9.94.127          192.168.2.108         TCP  
        ftp > mgemanagement [ACK] Seq=80 Ack=35 Win=16500 Len=0

    210 7.046287    194.9.94.127          192.168.2.108         FTP  
        Response: 150 Accepted data connection

    241 7.218716    192.168.2.108         194.9.94.127          TCP  
        mgemanagement > ftp [ACK] Seq=35 Ack=110 Win=16269 Len=0

   1613 17.145048   194.9.94.127          192.168.2.108         FTP 
        Response: 226-File successfully transferred

   1617 17.172970   192.168.2.108         194.9.94.127          FTP 
        Request: SIZE ik104test.zip

   1620 17.277591   194.9.94.127          192.168.2.108         FTP 
        Response: 213 566605

   1623 17.375906   192.168.2.108         194.9.94.127          FTP 
        Request: TYPE A

   1628 17.498619   194.9.94.127          192.168.2.108         FTP 
        Response: 200 TYPE is now ASCII

   1629 17.516657   192.168.2.108         194.9.94.127          FTP 
        Request: PASV

   1633 17.644044   194.9.94.127          192.168.2.108         FTP 
        Response: 227 Entering Passive Mode (194,9,94,127,205,237)

   1637 17.750889   192.168.2.108         194.9.94.127          FTP 
        Request: LIST

   1643 17.835367   194.9.94.127          192.168.2.108         FTP 
        Response: 150 Accepted data connection

   1644 17.863490   194.9.94.127          192.168.2.108         FTP 
        Response: 226-Options: -a -l 

   1645 17.863548   192.168.2.108         194.9.94.127          TCP 
        mgemanagement > ftp [ACK] Seq=75 Ack=364 Win=16015 Len=0

hmm, but most of that stuff is several times the size of rebol itself 
:-)

img: make image! 1280x1024
result: copy []
loop img/size/x * img/size/y [insert tail result 0]
histogram img/rgb result

The drug list is in the HTML:


<select name="drugList" id="drugList" size="8" style="width:280px; 
font-family: verdana; font-size:10pt;" onDblClick="addDrugToList();">
					
					

<option value="4055" title="2-Amino-2-Deoxyglucose">2-Amino-2-Deoxyglucose</option> 
<option.....

as far as my experience goes, WXP was never problem - plug-and-play, 
never lost single file. The problem is valid for W2K, but it is how 
they did it .... one of my friends told me (not sure it is true), 
that W2K first caches files, and unless of some size, it is not being 
written to target USB device. So, if you unplug it and not by using 
OS disconnecting facility, such files are not there ....

>> s: 0 t: now/time/precise foreach js [
[    "/zkdemo/zkau/web/js/ext/prototype/prototype.js"
[    "/zkdemo/zkau/web/js/ext/aculo/effects.js"
[    "/zkdemo/zkau/web/js/ext/aculo/dragdrop.js"
[    "/zkdemo/zkau/web/js/zk/html/boot.js"
[    "/zkdemo/zkau/web/js/zk/html/lang/mesg.js"
[    "/zkdemo/zkau/web/js/zk/html/common.js"
[    "/zkdemo/zkau/web/js/zk/html/au.js"
[    "/zkdemo/zkau/web/js/zk/datelabel.js.dsp"
[    ][s: s + length? read join http://www.potix.comjs]
== 144313

>> print ["total js size:" s "downloaded in:" now/time/precise - 
t]
total js size: 144313 downloaded in: 0:00:07.406

it's almost the size of rebol/core:-)

I prefer pixel fonts (for fonts with size less then 12px)

71 KB of js, css, xml, html code to get weather plug-in .... imo 
could be done in fraction of size of rebol code ...

From the User Guide: "Every connect, disconnect, error and statement 
retry is logged to %sqlite.log. This refinement adds SQL statements 
as well. While this can be useful to monitor what SQL statements 
are being issued and what the volume and distribution is; be sure 
to monitor the size of this file in high transaction environments."


If you really don't want any log output then just direct it to /dev/null

Depends on the number and size of records you wish to handle, whether 
ACID is important to you, and whether you need SQL access or not.

What am I doing wrong here:

rebol []
do %sqlite.r
do %rebgui.r

if not exists? %id.txt [write %id.txt 1]

db: %indodex.db
either not exists? db [
    CONNECT/create/flat/direct/format db

    SQL "create table base (id, Nama, Alamat, Telefon, Handfon, Fax, 
    Email, Tgl_Nikah, Nota)"

    SQL "create table birthdays (id, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT/flat/direct/format db
]
unless value? 'ctx-rebgui [
	either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55
fonts: reduce [font-sans-serif font-fixed font-serif "verdana"]
do show-cc: make function! [] [
display "IndoDex Ver. 1.0.1" [
    tab-panel #HW data [
        "Add" [

            label "Title:" priority: drop-list 30 #W "Pak" data ["Pak" "Ibu" 
            "Sdr." "Sdri." "Drs." "Dr." "Tuan" "Nyonya"] 20x5
            return
            label "Nama:" nama: field 
            return
            label "Alamat:" alamat: area 50x30
            return
            label "Telefon" telefon: field
            return
            label "Handfon" handfon: field
            return
            label "Fax:" fax: field
            return
            label "E-Mail:" email: field
            return
            label "Nota:" nota: area 50x30
            return
            button "Save" [
                (id: to-integer read %id.txt)

                SQL/flat/direct {insert into base values (id, Nama, Alamat, Telefon, 
                Handfon, Fax, Email, Tgl_Nikah, Nota)}
                (write %id.txt id)
                show-text ex-status "Saved"]
        ]
        "Edit" [
            
	]
	"Search" [
	]
    ]
]
]
do-events

Here's the latest version:

rebol []
do %sqlite.r
do %rebgui.r
unless value? 'ctx-rebgui [
	either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55
fonts: reduce [font-sans-serif font-fixed font-serif "verdana"]

if not exists? %id.txt [write %id.txt 1]
i: to-integer read %id.txt
i: i - 1
either not exists? %indodex.db [
    CONNECT/create %indodex.db

    SQL "create table base (ID, Title, Nama, Alamat, Telefon, Handfon, 
    Fax, Email, Tgl_Nikah, Nota)"

    SQL "create table birthdays (ID, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT %indodex.db
]
do show-cc: make function! [] [
set-colors
display "IndoDex Ver. 1.0.1" [
            label 16 "ID:" id: text (to-string i)
            return

            label 16 "Title:" title: drop-list 30 #W "Pak" data ["Pak" "Ibu" 
            "Sdr." "Sdri." "Drs." "Dr." "Tuan" "Nyonya"] 20x5
            return
            label 16 "Nama:" nama: field 
            return
            label 16 "Alamat:" alamat: area 50x30
            return
            label 16 "Telefon:" telefon: field
            return
            label 16 "Handfon:" handfon: field
            return
            label 16 "Fax:" fax: fax: field
            return
            label 16 "E-Mail:" email: field
            return
            label 16 "Nota:" nota: area 50x30
            return
            button "Save" [

                ;UNCOMMENT THE FOLLOWING LINES AND YOU WILL SEE THEY DON'T WORK. 
                ANYBODY KNOW WHAT IS WRONG?

                ;SQL reduce ["insert into base values (?, ?, ?, ?, ?, ?, ?, ?, ?, 
                ?)" id/text, title/text, nama/text, alamat/text, telefon/text, handfon/text, 
                fax/text, email/text, tgl_nikah/text, nota/text]

                ;SQL {insert into base values ('Pak' 'Ibu' 'Sdr.' 'Sdri.' 'Drs.' 
                'Dr.' 'Tuan' 'Nyonya' 'Jonew')}
                (i: to-integer i)
                (i: i + 1)
                (write %id.txt i)
                (i: to-string i)
            ]
            button "GUI Info [

                print [id/text " " title/text " " nama/text " " alamat/text newline]
            ]
            button "DB Info" [
                print TABLES
                SQLite/col-info?: true
                print SQL "select * from base"
                print SQLite/columns
            ]
            button "Halt" [
                halt
            ]
            button "Quit" [
                quit
            ]
]
]
do-events

gee, what are they doing? 50KB more size of dll to fix few bugs? 
They should aredy fix their docs whee they claim that other engine 
libraries start at 450KB ... they are nearly there too ...

if that size is not necessarily 100MB and you don't need to back-up 
all the files all the time ....

What's the size of each row? Given the size/price of memory, REBOL 
may be fast enough by itself. If you use sort, parse and create a 
little list comprehension dialect...

500k rows, every 2 bytes per row makes your DB grow by 1 MB. Now 
if your average size is 2KB/row, you'll use 1Gb of memory (this REBOL 
independent). Doable

word wrap queries (like in the old amiga api) within AGG draw would 
be cool too... as in, what would the size of this text (or any gfx 
element, for that matter) be with current font/drawing settings. 
 and how many letters from a string fit within this box ? wrapped 
or not.

setcm seems to influence font size. Try:
do http://home.tiscali.dk/john.niclasen/postscript/postscript.r

write %test.ps postscript [page [font [Times-Roman 1] setcm linewidth 
0.5 path [setgray 0.5 at 2.5 2 box 8 12] path [at 5x8 rotate 45 "Hello 
World!"]]]

louis, the one on rebol.org seems to be a bit old. the one I have 
locally can generate bitmaps as image! in 1x, 2x, 4x and 8x size 
and vectors for PDF Maker. it can generate an EAN13 code with the 
correct checksum. it doesn't save to file, but it's only a couple 
of lines of code to do that

So the unit of measure doesn't have anything to do with the actual 
size of pixel or (dot).

text: [err:
		set txt string! (
			fontcount: fontcount + 1
			set to-word join "font" fontcount  make face/font compose [
				 size: (fontsize) 
				 name: (fontname) 
				 color: (rgb)
			] 
			pos/y: pos/y - fontsize

   repend output  [ 'font (to-word join "font" fontcount) 'pen rgb 'text 
   'vectorial txt pos ]
		) 
	]

at present, I am keeping the x as is, and just reducing the y by 
the size of the page

>> exists? path-thru http://localhost/slideshow/test.r
== false
>> probe info? http://localhost/slideshow/test.r
connecting to: localhost
make object! [
    size: 15
    date: none
    type: 'file
]
>>

anyon can tell me how I can fix a web page containing a rebol plugin, 
so it detects the vertical size properly?

do you know if we can properly resize the plugin size using javascript? 
or will in not refresh?

I thought by setting the object's size properties through the DOM... 
I haven't tried.

and because it took me some time... there is this important difference, 
if you center faces inside plugin:
;system/version == 2.6.2.3.1

center-face: func [
    obj [object!]
    /with face [object!]
][
    if none? face [face: system/view/screen-face]
    obj/offset: max 0x0 face/size - obj/size / 2 + face/offset
    obj
]

;system/version == 2.7.5.3.1
center-face: func [

    {Center a face relative to parent (screen for windows) or a sibling 
    face.}
    obj [object!]
    /with "Center relative to a sibling face." face [object!]
][

    if none? face [face: any [obj/parent-face system/view/screen-face]]

    obj/offset: max 0x0 face/size - obj/size / 2 + either with [face/offset] 
    [0x0]
    obj
]

kernel32: make object! [ lib: load/library %kernel32.dll win32api-GetEnvironmentVariable: 
make routine! [ name [string!] buffer [string!] size [ struct! [ 
size [integer!] ] ] return: [integer!] ] lib "GetEnvironmentVariableA" 
get-env: func [name [string!] /local size][ buffer: copy "" repeat 
sp 255 [buffer: append buffer " "] size: make struct! [size [integer!]] 
reduce [length? buffer] win32api-GetEnvironmentVariable name buffer 
size trim buffer ] win32api-SetEnvironmentVariable: make routine! 
[ name [string!] value [string!] return: [integer!] ] lib "SetEnvironmentVariableA" 
set-env: func [name [string!] value [string!] ][ win32api-SetEnvironmentVariable 
name value ] ]

what is the core size of a minimal plugin ?

minimal plugin size: between 4-8k depending on your compiler

this is my final function, I removed the rounding as it created a 
lot of noise in position, (not the fault of the round function but 
the act or rounding itself, would snap the position back and forth 
while dragging)


I also use the vector's length using an hypothenuse formula (similar 
to distance), cause your previous example did not properly scale 
to the vector's maximum size.


I also added support for supplying a negative value for 'AT argument 
so that it actually offsets from the end, which is very usefull.

vlength: func [v] [v: v * v square-root v/x + v/y]

between: func [
	{compute the specified point on the line}
 	start [pair!]
	end [pair!]
	at [decimal! integer!]
	/local vector points 
] [
	; solve "degenerate case" first
	if equal? start end [return start]
	vector: end - start	 
	if integer? at [
		; convert AT to decimal
		at: at / (to-integer vlength vector)
	]
	if negative? at [
		at: 1 + at
	]
	

 start + to-pair reduce [to-integer vector/x * at to-integer vector/y 
 * at] 
]

REBOL produce a green result here, when scaling the test image to 
half size.


view layout [image http://www.4p8.com/eric.brasseur/gamma_dalai_lama_gray.jpg
image http:
//www.4p8.com/eric.brasseur/gamma_dalai_lama_gray.jpg 129x111]

From a design POV, Chrome is right, web servers shouldn't redirect 
twice for a given resource, but, sometimes, it really helps by reducing 
complexity and code size.

Btw, the printer dialect use milimeters as unit for positioning and 
size.

the idea was to use size-text to produce the needed position, but 
the result is not usable, because I don't think DRAW uses the concept 
of a bounding box for text.