AltME groups: search

(that is, i once had a panel with buttons that had a key defined; 
the keys worked in one case but not in another. basically, in one 
case i was using a style that used words instead of faces in the 
pane - so it was easier to probe it for testing - and the function 
find-key-face didn't recurse into that pane)

so there's a possibility that this is going to happen somewhere else 
too... everyone is just expecting faces there, if pane is a block.

sortuj: [  items:  sort/compare  items func [a b ][(pick a n) < pick 
b n]
            save %data.txt items          
            show lay              ]


dodaj: [a: to-url tx/text 

        items: append array/initial 1 reduce [ a  [] [] [] ] items 
        show lay  ]


p:  [    field 200  field 100  field  100  field 100  field 100 return]


add: func [ /local coll] [ coll: get in  layout/offset/origin p  
0x0 1x1 'pane
                           insert tail sub-panel/pane coll  ]

sub-panel: layout [space 2x2
        across 
        origin 1x1
        ; style label text bold right 60
        backcolor blue

       field 200  field 100  field  100  field 100  field 100 return

       field 200  field 100  field  100  field 100  field 100 return 


          ]


lay: layout [

    origin 5x5
    space 1x0
              
 across

   txt 20 "url"    tx: field  270 txt 30 "add" [do dodaj] txt 100 center 
   "sprawdz" [] 
 return
        
 across
h3 200 center red "www" [n: 1  do sortuj   ] 
h3 100 center red "ip"[n: 2 do sortuj ] 
h3 100 center red "nazwa" [n: 3  do sortuj ]
h3 100 center red "kraj" [n: 4 do sortuj]
h3 100 center red "agent" [n: 5  do sortuj ]
 return
        space 0
        panel: box  610x400 blue
        s1: scroller 16x400 [scroll-panel-vert panel s1]
        return
        s2: scroller 300x16 [scroll-panel-horz panel s2]
        return
        button "halt" [halt]
    ]

    panel/pane: sub-panel

    scroll-panel-vert: func [pnl bar][

        pnl/pane/offset/y: negate bar/data * (max 0 pnl/pane/size/y - pnl/size/y)
        show pnl
    ]

    scroll-panel-horz: func [pnl bar][

        pnl/pane/offset/x: negate bar/data * (max 0 pnl/pane/size/x - pnl/size/x)
        show pnl
    ]

    update-panel: func [pnl vbar hbar] [
        pnl/pane/offset: 0x0
        s1/data: s2/data: 0
        hbar/redrag pnl/size/x / pnl/pane/size/x
        vbar/redrag pnl/size/y / pnl/pane/size/y
        
        show [pnl vbar hbar]
    ]

    update-panel panel s1 s2
    view/new lay

do-events

is there a quick way to set a maximum length of text in a field and 
automatically unfocus and move to the nexst field in the tab order? 
E.g. day, month and year fields with limits 2, 2 and 4 and automatically 
jump to the next field

I know of a way, but I wouldn't call it quick - override the engage 
func. for a field and take advantage of the 'parent-face var in the 
object... I'll start a quick example if you want to see it

Okay, here's an example - I don't yet know much about styles, so 
there's certainly a better way out there...

it's a bit buggy... when I select a field and start typing something 
when it already has a length > 3, the first character I write is 
printed and it jumps to the other field

this is definitely something that should be a whole lot easier to 
work with...

Thank you  =^)


And I like the idea, maybe if I have spare time I'll attempt a bit 
better one....

Does somebody face with the plugin problem that I got!? I tried to 
setup an Rebol script as a Plugin in webpage, but got message Cannot 
run ...script name.r. Then to be shure that all is o'k I just copied 
an example (web page and Rebol script) from www.rebol.com and put 
on my localhost web server. All of those examples works fine on my 
IE6 and WinXP.  But when I tried the same example on my localhost 
web server I got the same message. Of course I changed parameter 
LaunchURL to point to the same (copied) script on my localhost. What 
is a diffrerence in environments that I don't know and how to solve 
this problem?

FYI: Baseline releases for REBOL/View 1.3 project development only. 
Contains back-merged 2.5.58 changes (async kernel w/o async). Fixes 
a few dozen bugs. Includes new GC methods.

in this VM there is nothing or near nothing done and yet we get a 
lot of memory used for nothing ...

yes but why I have 800 Ko used for a ingle function with a local 
var called twice

Well, maybe rebol just needs to do a recycle at the end of its startup.

hmm.. under linux the internal version stops when I start it up after 
initial messages. It doesn't display a prompt...

>> help stats
USAGE:
    STATS /pools /types /series /frames /recycle /evals /clear

DESCRIPTION:
     System statistics.  Default is to return total memory used.
     STATS is a native value.

REFINEMENTS:

     /pools -- Returns: width units free-units units-per-alloc segments 
     mem-in-use
     /types -- Returns: Datatype count

     /series -- Returns: total blocks strings other avail free expansions
     /frames -- Returns: total used unused free values-total

     /recycle -- Returns: count series-total series-last frames-total 
     frames-last ballast
     /evals -- Returns: values functions blocks
     /clear -- Clears the evals counters

I think a "frame" is an internal interpreter structure or object.

but in fact the GC is problematic I would prefer a dealloc/realloc 
each time a ": " is found by the REBOL  code parse engine ;)

instead of having frames not related to a rebol word and  still allocated 
in memory until the GC decides to do he's job ;)

but slower than making a recycle on every show function calls in 
Vid application like what was done in  rebgui  ?? I don't think so 
;)

you're trying to fight the system without coming up with a better 
one, that's all.

C is definitely not Rebol. But consider this:
	a: b: context [data: "love me"]
	a: none
Obviously the object should not be freed yet.

The question is, should a full recycle occur (checking for unattached 
values) ?

I think that would make setting words very slow and degrade performance 
terribly.

(After all, just about every second word in rebol code is a set-word.)

Anton it depends if a; and b; store each the cloned content ;)

>> recycle
>> stats
== 2936994
>> a: make object! [print "I love rebol but not GC"]
I love rebol but not GC
>> stats
== 2937746
>>

>> recycle
>> stats
== 2936994
>> a: b: make object! [print "I love rebol but not GC"]
I love rebol but not GC
>> stats
== 2937810
>>

you have it twice in memory but in fact no because if you make a: 
b: make object! [ test: 'test"]

then a/test: "test200" print b/test

if you make a:  make object you use less memory than a: b: make object! 
that's a fact ;)

in rebol there is an allocation table that will allow us to know 
if a data is share betwin several word  in the rebol diccionary

you're trying to fight the system without coming up with a better 
one, that's all.

 OH OH Comon we are talking about a serrious issue and that's not 
 because I make  a criticise of the system that I have a better solution 
 ....

ypu can say I hate capitalism because it makes  little people very 
ricth and most of the people just poor  without having a rechange 
solution ;)

debian? you lack a config-file for teminal which name i forgot.

There's a quick workaround maybe - run a "halt" script. Does it give 
a console then?

Mmm.. When you figure it out, write a quick "install script", which 
detects debian (if you can), and alerts the user with the advice. 
Then, when someone asks in future, you can just give your script. 
Also, this may evolve into a fully cross-platform installer script.

with a halt script I get a prompt but no keyboard interaction

As a minimum copy the notes into a text file...

Hi, i've a little problem is there a field property to limit the 
amount onf text an user can type in ? does it need to be coded or 
this is just impossible ?

hi guys, does opening a non-border window on linux garantee a window 
without borders in the later betas?

I remeber someone posting that x forces a border on some versions/builds 
of linux....

Henrik, I've saved an extract to a text file, but I probably won't 
publish it for a while. Eventually it will go up, though...

could such errors could add a field for the face? so that we can 
look into /stye and /facets? could help

(I think there is a good set up here somewhere...)

Just my 1 cent contribution: there is a bug with the drop-down face 
when no action is set. The 'action facet defaults wrongly to 'show-dropdown, 
making the drop-down to freeze when the user does not override it. 
The fix is simply drop-down with [action: none]

I have a proble to submit to VID GURUS... My problem is the following 
I writing a click and scroll algorithm. (ike In MDP-GUI you have 
the floating toc window panel when you click on on of the title shows 
in the floating toc window the visualisation scroll to the related 
title. But this show the title on the middle of the screen and no 
on the top of the visualisation pane. The forumal I apply is sld/data: 
related-offet/y  / sub-pane-visualisation/size/y  and then I apply 
the scroll function. What must be the for mula to have always the 
related title in the visualisation pane on the top part of the screen

for example title 4  with related-offse/yt: 1586 and sub-pan-visualisation/size/y: 
3142 i get a sld/data: 0.504774029280713 and I have the title around 
the middle of the visualisation box. If I use the scroller to place 
the title 4 on the top of the visualisation pane I get sld/data: 
0.602247191011236

I hope youcould helpme to solve this problem it's a long time since 
I'm trying to solve it

I expect that the View 1.3 release will bring more inside / detailed 
documention as well on view. Although i realy hope RT can fix that 
intime its a absolute must :-)

the SVG view can be firefox/mozilla... thats why i asked if view 
can save/svg  ;-) that would extend Rebol View into a Very usefull 
SVG tool as well !!

about SVG: i don't think that will be supported natively. it's not 
that hard to do that in rebol, a cyphre has something working already.

A great... if thats possible im happy already :)

Rebolinth anyone can write an SVG emitter, just like there is a Flash 
emitter. I think this complex and unique enough that it shouldn't 
be included in the base. But 3rd party script will do.

thanks to DideC, Volker and most specificly to Brock witch helps 
me a lot

the problem was complicate to understand and chatting with brock 
help me a lot to think

Mental blank. How to set the selected item in a rotary?

I've been unable to to change it once displayed. But I've got a work 
around where I change the data list before it is created. that gets 
me out of trouble for now.

;a little cleaner...
view layout [
    this-rotary: rotary "one" "two" "three"  

    button "change rotary"  [this-rotary/data: find this-rotary/data 
    "three" show this-rotary]
]

Allen - you may not be interested if Carl's rotary serves your needs 
but I find the FX5 rotary that Frank Sievertsen created some years 
ago to be a bit more usable because he added the left and right arrow 
navigation to the base rotary.   Clicking on the rotary itself rolls 
it forward but with the FX5 one, you have a back option instead of 
having to cycle through the list.    The rotary is still a bit cumbersome 
without key board support that is specific to the widget when it 
has focus.

is it possible to remove the REBOL - .... part of a window in View? 
"REBOL - My Window" Would become "My Window"

sorry, I am referring to a window title

I just hacked the graph-layout stuff found in Rebol-Framework into 
a standalone using the new AGG stuff. Very cute and fast!! Take a 
look at: http://www.robertmuench.de/download/graph-layout.r

Updated to show boxes. Now, is there any way to associated an ID 
with a box and get it back if the users clicks inside the box?

Sorry, a box drawn with the DRAW dialect.

... and its size.  So you make a canvas/feel to trap the mouse clicks, 
then search your nodes to find the one affected.

Your nodes need DEPTH, so they can be depth-arranged. Double-click 
can send a node to the head of nodes and shift-double-click can send 
a node to the tail.

You will need a within?-like function for determining if a mouse-click 
is in a node box or not.

Could you try following on your system? Run new View alpha, go to 
desktop, run Bubbles and then start Particles demo - both demos slow 
down dramatically. Those are separated processes though (that can 
be proven by closing the Desktop - demos will stay running). Cyphre's 
theory is, that it is normal, and that CPU usage is high and so OS 
have to divide its CPU time between the two. But normally my PC can 
run several videos without noticable glitch, I wonder if Rebol will 
give it a hard time ...

Bubbles was made to always take 100% of your CPU time. it easily 
gets to 50+ fps, and this is a great result considering the amount 
of work it is doing.

put in a 'wait for a short amount of time and cpu usage may drop 
dramatically. it works well with responsiveness for scrolling large 
panes even if the frame rate drops a bit

your videos are not that big problem on modern hardware. a bigger 
problem is to react fast enough for the framerate.

I've been looking at %view-edit.r recently (and Romano's excellent 
http://www.rebol.it/~romano/edit-text-undo.txt), and have the following 
three code change suggestions:


1) Allow Shift-Tab to cycle back through the first / last pane objects 
(as Tab does):

	back-field: func [face /local item][
		all	[
			item: find face/parent-face/pane face

   any [if head? item [item: tail item] true] ; new line added here
			while [face <> first item: back item][
			...

2) Implement a new function to hilight the current word.

	current-word: function [str] [s ns] [
		set [s] word-limits
		s: any [all [s: find/reverse str s next s] head str]
		set [ns] word-limits
		ns: any [find str ns tail str]
		;	hilight word
		hilight-text s ns
		show view*/focal-face
	]


3) Refactor the engage / down action to allow double-click selection 
of a word (something I use all the time in almost every editor I 
use).

Current code:

	down [
		either not-equal? face view*/focal-face [
			focus face
			view*/caret: offset-to-caret face event/offset
		][
			view*/highlight-start:
			view*/highlight-end: none
			view*/caret: offset-to-caret face event/offset
		]
		show face
	]

Proposed change:

	down [
		either event/double-click [
			current-word view*/caret
		][
			either face <> view*/focal-face [focus face] [unlight-text]
			view*/caret: offset-to-caret face event/offset
			show face
		]
	]

Comments?

Cyphre, since you are definitly the right one to ask on graphics 
related issues: I've already spent *ages* trying to understand how 
text high-lighting works in View. Do you happen to know if it is 
possible to make the background color of highlighted text different 
to the color of the text in lowlighted state? In a field with text 
black, I'd like to have the selection highlightened in e.g. silver, 
whilst the text itself should remain written in black. But I never 
managed to do so.

Maybe I'll find "a little spare time" to do a field which draws it's 
text in the effect block and rewrite the stilll somewhat buggy text 
editing functions ;-)

(Not a serious comment though, because that's definitly not the league 
I'm playing in.)

Is there a way to show a pop-requester with a time-out? I want to 
show if for X seconds and if nothing happens return a default action.

parse-keywords: func [data /local k tmp ]

                     [ tmp: []


                       parse data [ any [thru "keywords=" copy k to {"} 

                                    (insert tail tmp join k " ")
 
                                    skip ]  ]

                       return tmp ]



lay: layout [  backdrop silver
               across
               h2 red 40 "url" f: field 200 []
               
               return
             
               
              space 0x0
              a:  text-list   []   [  i/text: form a/picked
                                             show i ]

              return
           
              i: info
    
              
             
              return
              pad 0x10
              space 10x10
              across 

              button "load url" [ a/data: parse-keywords read load f/text 

                                  a/sld/data: a/sn / ((length? head a/lines) - a/lc)
                                  show a]

              button "pase clibord" [ a/data: parse-keywords read clipboard:// 
              show a ]

             ; button "write" [write/append w a/text   a/text: "" show a ]



f/text: "http://cat333.com/"

button "halt" [halt]

]



view  lay

button "load url" [

                  insert tail clear a/data parse-keywords read load f/text
                  a/sld/redrag a/lc / max 1 length? head a/lines 
                  show a 
                                  
              ]
              button "paste clipboard" [ 

                  insert tail clear a/data parse-keywords read clipboard:// show a
                  a/sld/redrag a/lc / max 1 length? head a/lines 
                  show a
              ]

Oh, sorry, remove the first "show a" in "paste clipboard" button's 
action block.

re versions I'm trying to run Didec's delete-emails which requires 
View 1.2.8+. I downloaded the latest version of View and it shows 
up as 1.2.1? When I look at the downloads dir I see 1.2.8 circa june 
2005 but the more recent files are labeled version 1.2.1. Can someone 
explain why newer code has a lower version number?  Thanks

(we sat on View 1.2.48 for a while, so I expect, like myself, Dide 
used this version to test his programs for a while)

btw why is the latest beta a lower version number than 1.2.48?

higher: 119 > 48 (it's a tuple : a set of small integers, not a decimal)

It's not a final version, but is completely usable. What is not finish 
is the editor for the rules.

So, this rules are stored in the rules.txt file (this file appear 
after your run it one time) and should be edit manually.

I need to use com12 (on winXP) to access a Bluetooth serial port 
- anyway this can be done using REBOL?? (Other ports work fine on 
a different PC to Bluetooth) - but I need the flexibility as eventually 
I will be talking to 4 remote devices.   Any help out there???  thanks.........

Gregg, I added com12 to the system/ports/serial and it gets thrown 
out when I OPEN.  Will work if I used com7 on another PC - seems 
to only like a single digit for N in comN??

Thanks, I've tried some com port mapping software (maps com12 to 
com1) and then all works.  I can keep the REBOL com port as com1 
and change it in the mapping software.  A work around for now.  Tnks 
for the help

I built a little Rotation Zoomer here: http://www.hmkdesign.dk/rebol/rzoom.r

and please - could someone come with more attractive ViewTop skin? 
Maybe we could do a small contest, no? :-)

pekr, yes, it's bitmap. I noticed someone asked about a performance 
measuring tool for AGG perspective mapping, but I didn't have much 
time, so it became a rotation zoomer.

New ViewTop look!  I vote for that.  I did not want to use it again 
in 1.3 -- but our focus was in other areas, not on improving that 
graphic. I did a few small things t make it look a bit better.

Viewtop source has been open for a long time now, but the only one 
who did anything with it, AFAIK, was Volker.

But, yes ok, it's not a big work ;-)

I think there have been a great effort in other areas... this could 
easily be applied to the desktop project

rebolinth: hehe, well, I think the desktop is a pretty obvious target, 
don't you think? :-) Carl mentions this above...

That's what I suggested. We have Cyphre gfx guru here, Chris knows 
something about mock-ups. Maybe the desktop does not need to necessarily 
look like a desktop? :-) There is too much of desktops everywhere 
:-)

I'm not sure what else it should be... AmigaDE is actually the same 
principle. They sell you a program which launches kind of a desktop 
where you can launch AmigaDE games and programs.

but I think there could be potential in a real, full desktop with 
its own window manager. I've been playing with that idea.

Yep

 means yes: since there is only one single "Yep" in Anton's answer, 
 you can't turn it off by selected a "No" there!

Mostly you use radio buttons in a group, so ....

That's right. Radio buttons make no sense unless they are in a group. 
If you want a single on and off option then you must use a checkbox.

I seem to have found a solution, but it's ridiculously complex...