World: r3wp

IIRC Cyphre used this approach (using words or lit-words) in SWIS. 
It does make lookups quite simple, but then again it is not too hard 
to maintain a separate index block if needed. Keepning the workload 
down for the rendering of faces is probably a good reason to avoid 
the 'word approach.

Strictly I would call wake-event buggy. But then popup-faces are 
usually not that complex. So its a 80/20, the complex faces are easier 
with words, the simple popups a bit  restricted.

So i favor christians patch.

Gabriele, thanks for the "being in the pane TWICE" explanation: you 
pointed me to a mysterious "face in more than one pane" error message 
I wasn't able to track down to it's origin. Should've read "face 
more than once in pane", though ;-)  Then again, it seems to work 
fine if the word-lookup doesn't evaluate to a face (even non-face 
objects seem to be allowed).


Did you had some special mezzanines in mind which may stumble over 
this? WAKE-EVENT currently is the first and only one I know of for 
now. Of course the number of idioms like FOREACH FACE PANE [FACE/...] 
is legion, so this really may turn out to be problematic.

Allen, yes, I too expected the extra type cast required to eventually 
slow down the view engine. As always, it seems to be the old choice 
between being fast or elegant. But please don't cite me as saying 
that fast code couldn't be elegant ;-)

It's just that the approach seems to fit into the 'code is data and 
data is code' idea quite nice.

christian: i remeber seeing the "bug" in the event func that handles 
keys, too.

Fine, thank you, I'll have a look at that.

(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.

Yes, you name the problem. I'm very likely will choose something 
like Allen suggested or store the references in the face's user-data. 
They're fixed number, so that wouldn't be much work, it just makes 
code somewhat lengthy in comparison. Thanks again!

While wer're at it - I guess this is known: VIEW MAKE FACE [PANE: 
SELF] crashes REBOL without warning, or, to give it another name, 
causes the interpreter to quit silently instead of telling me that 
trying this really makes no sense. I couldn't find something related 
in RAMBO, though.

christian: add it to rambo please.

Added as RAMBO Ticket #-205

#3678

The more I mess with ImageMagick and PIL, the more I like Draw :-)

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

how to add columny ?

Doc's Win95 demo (in Demo's folder of ViewTop breaks on layout/trace, 
looks like build is involved, but the file is %win95.zip ... on some 
recent /Views, didn't test all the way back to where it works, but 
has anyone fixed or know much about it?

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

Uggh sorry I can't think right now..

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

Jumplength: 3

stylize/master [
   JumpField: field with [
      make multi [
         integer: func [face blk][]
      ]
   ] feel [
      engage: func [face b c][ 
         if b = 'down [show face focus face]
         if b = 'key [
            if char? c/key [
               switch/default c/key [
                  #"^H" [
                     remove back tail face/text
                  ]
                  #"^M" []

                  #"^-" [focus first next find face/parent-face/pane face]
               ][
                  if none? face/text [face/text: copy {}]
                  append face/text c/key
                  if JumpLength <= length? face/text [
                     unfocus face
                     TMP: next find face/parent-face/pane face
                     error? try [

                        while [all [TMP/1/style <> 'JumpField  not empty? TMP]][TMP: next 
                        TMP]

                        if TMP/1/style = 'JumpField [clear TMP/1/text show TMP/1 focus TMP/1]
                     ]
                  ]
               ]
               system/view/caret: tail face/text
               show face
            ]
         ]
      ]
   ]
]

view center-face layout [
   across
   text {Length of 3:}
   JumpField
   return
   text {Length of 3:}
   JumpField {Already Here!}
]

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...

As I said, I'm still new to styles - hopefully someone with more 
experience will come along and do something better...

nice try though :-)

Thank you  =^)


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

do decompress #{
789C8D55518FD3300C7E8549FC07F374F070EAB8099D34DD98400221748813E2
ADEA432E73D7686952A5E9EDCAB4FF8E93766DB766E3FC5227CE673BF6E7F4F7
D72FBFEE214E2693D2D652FCC52867A54503F104007E5479F14DA05CCD21751F
D80A9B352692BC9256CC21671B6CF4CE4252922F42558A439C328EF02837C9C0
4E82C668B3046B6A38369088140A26C89A0A535A076EDC44ADDFC36E12000A65
718D01ACC112ED7FC04DD412B956AB51D87EFB62DC11BA0D7C0E3E581D54FF4D
2045945D7150ADD9FAA4A8C093187A3865F1080BB85AE9AD82984B64067C0616
9F2D9499DEFA25A49A57A55793317883A70D210BCF18DD8C4763A36B36F18267
D10A53463C8077565F97D608B56E00EFC70892DDAB7D709FC460AE9FE8768C6F
C03221FB3B04CE8F5AE17CBFD93B52070CAFC9D0DEDED340B9C2A482DAE26314
CCA0B2D7ADAEF0B4466DC850DE5424A5152E07058F3B750E5C1735ECF6A1A458
51E021018FF3550B87E8F904770B90C4099B1D850C57B4527DCBC327FEFC7C98
BFA81A61F8A561EE649B0989103349A4A678D187C8BD3A08779FE0AA7B6B80CA
6801F3C2D64B975592C47D6E6E7DD63D9567E8753174DA0E4363EFA7C1AFDB71
F0FA19EFA1ED312D467351D35B9A474F02B711A75A120D2ED3B99BD097BD0F13
7AB79D73E0D42634BE512059ADAB96088C1B5D964EF357DEDD7BBE804EE166BE
3F7AE1E1C62D29C5CAA8D0F9D9E9F919EC3E4B836C55C37734F8767F197FDBE3
9B5FC92D7C9C4E9F6753282A53489C24FF00F407B8428B060000
}  ;I feel like saving space today...   =^þ

you can save even more space by switching to binary 64bits ;)

Ah.. I forgot about that lol

Looks wacky, but it works well!   =^)

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?

rebview1210231.exe is out on http://www.rebol.net/builds/031/

fantastic ;)

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.

sure but GC is still problematic maybe it could be interresting to 
rethink this part ... :)

Type "desktop" to start desktop.
WARNING: CALL function enabled in this version.
To see most recent beta changes, type: changes?
>> fun: func [/local i ][print i for i 1 10 1 [] print i ]
>> fun fun
none
none
none
none
>> stat
** Script Error: stat has no value
** Near: stat
>> stats
== 3769230
>> recycle
>> stats
== 2937954
>>

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

You should recycle first.

and keep recycling until it is stable.

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

I see 2.4 kb used.

We should not have to worry about how and when recycle works. It 
should just work.

I agree, mainly.

shadwolf, see this:
>> fun: func [/local i ][print i for i 1 10 1 [] print i ]
>> stats
== 3792829
>> recycle
>> stats
== 2944354
>> recycle
>> stats
== 2944354
>> fun fun
none
none
none
none
>> stats
== 2945682
>> recycle
>> stats
== 2944450
>> recycle
>> stats
== 2944450
>> 2945682 - 2944450
== 1232

That's not too much is it ?

3792829 -  2944354 that's mutch ;)

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