AltME groups: search

yes, you can create 10000x10000 layouts if you want to, they just 
won't fit on the paper without scaling them down. I did something 
similar once in a different system, but it proved to be unusably 
slow on smaller PCs and it eats memory.

image! support is necessary if we want to output the face/image and 
face/effect parts of a face

Can you put bitmaps in a postscript file ?

the "console" on Mac and Linux is just a terminal (OS provided), 
and they are usually UTF-8. That has nothing to do with View.

How can I return something when using DISPLAY/DIALOG when the dialog 
is closed? Something like:

result: display/dialog [...]

Or is this only possible via a wrapper function?

Or  maybe

catch [display/dialog "test" [button "button" [hide-popup]] throw 
"result"]
which is equivalent to a wrapper function I guess

I solved it now by writing a function that collects and returns the 
result. And this function contains the DIALOG stuff.

Does anyone know how to adjust the saturation of a single RGB value?

Chris Ross-Gill might know. He's done a number of color adjustment 
bits.

IIRC, there was first a source version from Chris, then it was added 
as a native ...

It's not exactly equivalent, rgb-hsv returns a block.  It's also 
a little slower...


[hue [integer!] saturation [decimal!] brightness [decimal!] alpha 
[decimal!]]

Is there a way to get an index # from a text list selection?

I'll be ok, I think. Right now I'm trying to find a bug in an hsl-to-rgb 
function.

Is there a way to have an area style that auto adjusts the height 
given a specific width so an entire paragraph will fit in the area. 
I know text style does this but I need to retain formatting.

I'm trying to create a function that builds radio buttons and checkboxes 
on the fly. Sunanda gave me some ideas about how to do that. This 
morning it dawned on me that I was going about it the wrong way. 
I was trying to build an entire string that represented the rebol 
code for the gadget instead of building a block of code.. What was 
happening was my contexts were all in error. 

I'm wondering now how to append my code into an existing layout block. 
The only working method I have found so far is to append into a non-layout 
block then "view layout blk." I'm still curious if there is a way 
to append/insert into a layout block though. E.g., 
a: layout [ btn "Quit" [unview halt] ]
b: [t1: check [ ] ]   <- this is my generated block
append a b

I get a "Script Error: append expected series argument of type: series 
port"

all LAYOUT does is create a big object tree, and of course you can't 
just append blocks to that

insert-event-func [
	if event/type = 'key [
		print face/text
	]
event
]
view layout [area "hello"]

;Can a/text update before it prints?

;There's a one keystroke delay

that should be view layout [a: area "hello"]

Nicolas, you could modify the area's engage function, as in this 
patch.

append blk: select select second get in a/feel 'engage [switch act][key] 
bind [print face/text] blk/2

As I have mentioned before here I have been working on turning strings 
into code. I've used this:
set in get to-set-word "myobj" 'text   "change a value"
where myobj: make object! [text: "default"]

and this works! I just don't know why  get to-set-word "myobj"  behaves 
that way. I'm hoping it's not a fluke because it's my Mr. Helper. 
Anyone able to explain that?

You can get from a word! as well as the corresponding set-word! and 
get-word!.  They are all the same word, after all.

Then the to-word just know by context that myobj was an object, eh? 
 The reason I ask that is that if  it was just a word and not an 
object I don't seem to have to use get.:
>> a: "test"
== "test"
>> set to-word "a" "hello"
== "hello"
>> a
== "hello"
>> set in to-word "myobj" 'text "hello"
** Script Error: in expected object argument of type: object port
** Where: halt-view
** Near: set in to-word "myobj" 'text
>> myobj/text
== "eeee"

I can't remember now .. but how do you start a rebol process with 
a systray?

I guess if you're using a gui, you can kick off your process with 
a timer event on a face ...

S3 backup? You have plans..... beware that for large volumes you 
*have to* parallelize. SQS is there for a reason

Yes ... but it's for small volumes ... maybe a few gbs only

Is there an option to have no caret but capture keyboard events? 
 I'd like to get navigation keys for example but don't want a visible 
caret.

I see notes about using detect for hot keys instead of engage, is 
that the best way or is there a way to turn the caret part off?

There's  a problem with that, in that as soon as you show a parent 
face, the caret will appear, because the subface will also be rendered 
by SHOW.

I have a patch to handle this situation in a general way (focus-system-patch).

I was looking for a way to facilitate the Alt-Printscreen, go to 
Paint, paste, save as .png drudgery and I was close except them I 
found out that clipboard:// only works with text. :-( Gregg and Christian 
created this capture-screen.r app which is pretty amazing. I wonder, 
however, if there will ever be an improvement to the clipboard?

Gregg, what I wanted to do was simply take what was in the clipboard:// 
(via a printscreen) and save it as a png or bmp, thereby skipping 
the monotonous paste into Paint and save.

There's a portable app version too.

Ah, I did the writing part, and then used my send-keys dialect to 
pump keystrokes to other apps to automate the other side. In my case, 
it was putting things into a NetMeeting whiteboard.

James, you might try http://www.rebol.org/view-script.r?script=paste-clipboard.r
to retrieve a bitmap from the clipboard in rebol image! format. Works 
with PrintScreen on my keyboard, ymmv ;-) If you have problems, please 
tell me so.

Christian, that is sweet! Works like a charm.

Anyone here use AVG Virus software.  They really have nice tabbed 
panels in the latest version.  We need a decision that can looked 
nice as that interface.

I use it - a very web-like approach. The tabs-on-left style works 
well on widescreen displays.

is a pane a face?

I see a pane as a block of faces. But the pane is in a graphical 
object, which represents a face, so I guess, you can also say, that 
a pane is a face.

A pane can both be a face and a block of faces. A layout created 
with LAYOUT is a face. A window is also a face. A face is an object. 
A face can hold another face or a block of faces in PANE.

Have you tried it from console or via running a script? Does your 
script open a window?

In a fresh console, does


>> do http://www.rebol.org/download-a-script.r?script-name=clipboard.r
write clipboard:// "Test" read-clip
connecting to: www.rebol.org
Script: "Clipboard" (10-Dec-2008)
== "Test"

work? Which Rebol version do you use?

my install is very standard on top of it.  i don't play a lot with 
the os... it just breaks everything.

Alan, what I did was updating the script on rebol.org, so if you 
get the exact same error message that's likely turning into a caching 
problem now. The script doesn't even contain the word H.DESKTOP-WINDOW 
anymore, so, if your original error (which is confirmed) persists, 
it should at least lead to different error message. Of course, I'd 
rather see it being gone. Would you mind ching the script you're 
using for version 0.3.1, dated 18-12-2008?

Maxim, if Vista has a registry too, then you might have the same 
problem, Graham had, and that he just fixed. See group DevCon2008 
and this:

http://newoldthing.wordpress.com/2007/03/23/how-does-your-browsers-know-that-its-not-the-default-browser/

ChristianE, I downloaded again and it works! This is great! I had 
use of this for a few apps in the past but had given up. I love it!

Thanks a lot.

John, Vista does have a registry.

A View problem:

rebol []
  unview/all
  view layout [button "butt" [request-list "req" [1 2 3]]]
  
Sequence:
1. run the above code

2. click "butt" to get the pop-up request list. Do not interact with 
it! instead:
3. return to the console window and hit esc
4. run the coee again

Result:
 a stuck window
 

Any ideas what I need to do in addition to the unview/all to disable 
whatever the request-list is waiting for?

then perhaps we have a bug?

Thanks....But that still hangs for me under 2.7.6.

  rebol []
  hide-popup
  unview/all
  view layout [button "butt" [request-list "req" [1 2 3]]]


I'm actually tracking down a bug report from a live application .... 
I know it's an unlikely sequence of events, but someone out there 
tried it. It'd be good to have the magic to make it work when they 
try again :-)

I got it ! (this old $#%& of a bug.)

WAKE-EVENT DO EVENT is normally expected (via some GUI action) to 
do HIDE-POPUP, and WAKE-EVENT usually

straight afterwards fixes up SYSTEM/VIEW/POP-FACE (ie. setting it 
to NONE when all requestors are closed).

However, when this process is interrupted in DO EVENT (by pressing 
Escape in the console),
then this fix-up is skipped, and POP-FACE remains set.

So HIDE-POPUP, issued at the console, will not fix POP-FACE (eg. 
set it to NONE).

This means the next VIEW -> WAKE-EVENT will act as if there is a 
requestor open, and return the wrong

result (FALSE, because the incorrect POP-FACE is not found in the 
correctly empty POP-LIST),
and therefore WAIT will return immediately.


The one-line solution seems to be to patch WAKE-EVENT to fix POP-FACE 
when it's not found in POP-LIST,
just before POP-FACE is checked.


 if all [pop-face not find pop-list pop-face][pop-face: none] ; <--- 
 Added by Anton. Fix POP-FACE when it's not found in POP-LIST (eg. 
 HIDE-POPUP was done at the escaped console, not by WAKE-EVENT DO 
 EVENT, as usual, here).
	either pop-face [ ...

A little bit of dancing is required here.

Dancing complete. I am now in a state of expectation of the thunderous 
rain of blessings to be cast upon me.

Seriously, it needs more testing, especially with nested popups. 
Anyone got a nested popup example handy they want to try it on ?

Thunderous rain.....It's impossible to get the kudos you need from 
just debugging :-)

Which one of us has  not worked all night to solve a critical problem; 
and the only real reward is to see that no one even notices when 
they come to work in the morning?

This is really valuable, so make sure it gets posted somewhere that 
it won't scroll off an be lost.


It's fantastic stuff Anton, but only a few people can appreciate 
it. :-\

Gregg, I have it saved in a file, and this group is web-public, at 
least.

It is cool, and it seems to get posted about once a year...

Don't know.  
We plan to do a version of it for our Gantt.

Took me ages but I finally managed to get a version of timeline running.

is there a way to do mouse chording?

Re; keys.   yes?   Play around with something like
rebol []
set-modes system/ports/input [lines: false]
while [
    code: input
    code <> 13
][
    probe code
]
set-modes system/ports/input [lines: true]
print "--"


But I'll admit to being confused.   Ctrl-A returns 1, Ctrl-B returns 
27, 91, 49, 126, Ctrl-C bails, Ctrl-D prints 4

Alt-A 27 27 97, Alt-B 27 27 98    On my Debian GNU/Linux box 2.7.6

Yep, I was suggesting that as a method to get at the codes that View 
might return, but yeah you are correct and now I'll ask, is it a 
different keyscan engine?  Core vs View?

Question, I've been writing an app that shuffles through a lot of 
images but one at a time (same single image in layout) . I notice 
that what appears to be happening is that each time an image is loaded, 
more memory is consumed. I am not using load-image but maybe I should 
with the /clear refinement. Any thoughts?

I'm going to be converting a bunch of images to binary for storage 
in a db (sqlite). What is with the base 64 option? Is there an advantage 
or need in my case? I'll be compressing them also...

Base 64 in REBOL is, basically, a type of ASCII represention. It 
can stand a certain amount of damage (like whitespace being inserted 
-- imagine it is sent as an email) and can still be reconstructed:
    str: "abcdefabcdef"      ;; a string
    s64: enbase str    ;; enbased to base-64 by default

    replace/case/all s64 "W" "  W  "   ;; whitespace polluted in transit
    str = to-string debase s64    ;; do we get it back intact?

amacleod, I don't think, there's much of a idea in using base 64 
to store images locally, as they will grow in size. The format is 
good for sending binary data over the internet.

I'll also be storing on a server using mySQL.

The size increase can be significant if you're storing a lot of big 
images. Why not just store the binary data raw?

Makes sense...
when I upload an image to the db how do I go about it?
Do I load it into a variable first?

Depends on the interface to the DB. I haven't use sqlite. If it's 
just in a file, you'll need to read it first (unless the DB layer 
does that, kind of like VID does). Of course, storing files in the 
files system and just putting the name in the DB is another option. 
If you have a lot of big images, the DB can grow very quickly, and 
many DBs aren't particularly designed for BLOB storage.

I don't know how it is stored in the DB, but it is bound to the DB 
as hex (base16) and stored as a 'Blob'.  As far as I'm aware, Ashley's 
driver will do this for you:

	sql ["INSERT INTO mytable VALUES (?)" #{ABCD}]

Careful with SQLite and big blobs.   A blob can be SQLITE_MAX_LENGTH 
(usually a billion) but SQLITE_MAX_SQL_LENGTH defaults to a million. 
 A single line of SQLite may limit the size of blobs to under 1 million.
See http://www.sqlite.org/limits.htmlfor deets.

I'm trying to make an interface that updates a file on every keystroke

what is in btn-face ?

anyway... if the text is not inserted in a draw block, this should 
work:

font: make font [color: white]

I'm working on taking the output of a console program to a view. 
 Its formatted nice for the console but I can't seem to get the text 
spaced correctly for the text-list box such as teletype or monotype.... 
any suggestions?  

myData: read %./
lo: [text-list 640x480 data to-block myData]

view/options/title layout lo [resize] "Files"          ;; characters 
do not line up vertically but look fine in console

thanks in advance.

Yes: I know that there was a shorcut for fixed font but I foget the 
word. Anton answer is more OS compatible !

Hi, i was was wondering if anybody already tried to make a toolbar, 
which is collapsible like the windows systembar. For quite a while 
i am thinking about a small word processor with such a toolbar. It 
should be  invisible when the mouse is not over it.  I want to try 
it with R2 and R3, but R3 is in focus, and need a little jumpstart. 
Can anybody help??

I've done an appbar that sits on the desktop. It doesn't use the 
officel APPBAR APIs, just emulates the slide on/off bit. It's not 
perfect, but not horrific either. Basically, I have a timer and target 
locations, FSM driven. When in a given state, and an event occurs, 
it sets the target position and then moves towards it on each timer 
tick. When the window deactivates (using insert-event-func to catch 
that), slide off. When it activates, slide on.


It's not perfect, because you can't do it on a mouse hover, and I 
haven't tried to make it work on multiple montors. With my new setup, 
it slides off the center monitor and onto the left edge of the right 
monitor. :-\

I'm working with resizing fields.  Setting the size of the field 
would be a good start. Figuring how to size the text-list on a window 
resize event would be a bonus.
I took a sample from the docs and modifed slightly.

REBOL []


displayData: ["A very long entry that will exceed the default width 
of the field that is displaying it."]
view/options/title layout [

 lines: text-list 640x480 bold font-size 14 font-name font-fixed data 
 to-block displayData [  		;; not sure how to auto-size the text-list 
 either 

 see-it/text: first lines/picked										;; how do I size this field
	show see-it												;; maybe its done here  
	]													;;
	see-it: info												;; or here?								
] [resize] "Test"

Thanks again in advance.

Basically you need to perform the resizing as an event function of 
the window using insert-event-func and set up sizes manually for 
each element that you wish to resize. However this is very tedious 
in the long run and very un-rebolish as there are absolutely no functions 
to handle resizing in standard VID/View.

So BrianH and I wrote a prototype for a resize engine, which we hoped 
would be part of REBOL/View 2.7.7. Brian is probably against spreading 
it as it's not debugged and complete, but I want to give it to you 
anyway, because I use it and it works fairly well, at least much 
better than the nightmare of manual resizing.

A couple of examples in the bottom. You need to add some resizing 
hints for each element you want to resize, but we'll get to that.

Thanks Henrik.  I'll take a look.

you need to get a resize event from the window and apply that to 
the image. you can use INSERT-EVENT-FUNC for that.

Never mind, I found a link Anton posted for image Magick image saver...

If you mean this link: http://box.lebeda.ws/~hmm/rebol/save-image.html
 than you should know that I fixed a memory leak now. (and added 
a /quality refinement)

I have much more routines from IM, but I must to clean the sources 
a bit.

not entirely free, but powerfull - http://xnview.com/en/features_nc.html
  It enabled to Carl to batch process Italy devcon images in few 
minutes - no wrapper needed, just a command line ...

You don't need wrapper, but you cannot do: save-image %test.jpg to-image 
layout [button "hello world"]

Also IM can be used as a command line tool, which I was doing quite 
a long time. But finally I'm working on wrapper as it's faster than 
doing many calls to external app. Of course.. if you want to resize 
100 photos per year, you don't care if it's call or by using wrapper.

Thanks for the info guys.

Oldes, its for a personal tool so I can dfeal with the memory leak 
but the quality refinement sounds useful.

I'll check out XNVIEW too..

It might be a version problem...
Using ImageMagick-6.4.9-Q16

I get a different error with version:  ImageMagick-6.3.2-Q16
errror:

The procedure entry point MagickOpenStream could not be located in 
dynamic link library CORT_RL_.dll

I'm probably wrong then.  It's been a few years since I played with 
it...

From inside folder of the newer version I get a Visual C++ Runtime 
errror...

program ..rebol.exe

R6034

An application has made an attempt to load the C runtime library 
incorrectly.
Please contact the application's support team for more info..

if you're got an empty table or whatever, and you're wating for data 
to load ... do you think is better .. to hide the widget, and have 
a "loading...." or other busy indicator ajax like ... or flash up 
a flash ?

Don't hide the widget. A busy indicator on top would be good, or 
at least have a single row in the table which says "loading data...".

I had the "loading data" in a single row ... decided to move away 
from that.

In terms of visuals, it is much more apparent that you have a result 
when the whole table appears as opposed to a table that fills ?  
right?