[REBOL] Assorted bugs?

From: philb:upnaway at: 6-May-2002 16:00

Hi Ashley,

Work around for #2 is to use the AS-IS keyword.
i.e. change the text-list to :

     text-list data files as-is

Cheers Phil

=== Original Message ===

Another marathon weekend with REBOL and a few more "things that don't work
the way I expect them to". Apologies in advance if some of these have
already been covered in depth (eScribe searches just don't cut it ;) ).

Problems I hit were:

1. Scrolled area text affecting other field(s)
2. text-list anomalies with first entry
3. alt-down SLOW under windows (but OK under Linux)
4. load treating a one line block as a block, but multi-lines as blocks
within a block, makes it hard to write something like:

foreach block load %test.dat [print block/1]  ; this handles 0 and > 1
lines but not 1 line

Anyway, the code to demo these "problems" is given below, any advice on
simple work-arounds / misconceptions greatly appreciated. If any need to go
to feedback let me know. (On a related matter, how can one tell what has
already been sent to feedback . . . is there a "reported bug" summary of
some sort?).

<code>

REBOL []

files: copy []

foreach file read %. [
     insert tail files reform ["o^-" file]
]

view center-face layout [

     text 200 {Click "Area" then type two lines of text in the area, close and reopen the 
     window.
              Notice how the field text has been repositioned.}
     button 200 "Area" [
          view/new center-face layout [
               field 50 "Text"
               area 50x30
          ]
     ]
     text 200 {Notice how the first tab is ignored.}
     text-list data files
     text 200 {Click rapidly with the left then right mouse buttons.
               Notice how left clicks are faster than right clicks [on Windoze].}
     box blue 200x50 "Click here" with [
          data: now/time/precise
          feel: make feel [
               engage: func [face action event] [
                    if action = 'alt-down [

                         print reform ["Right" now/time/precise - face/data] face/data: now/time/precise
                    ]
                    if action = 'down [

                         print reform ["Left" now/time/precise - face/data] face/data: now/time/precise
                    ]
               ]
          ]
     ]

     text 200 {The first result counts values within a block, the second the number of blocks.}
     button 200 "Load block(s)" [
          write/lines %test.dat remold [now now]
          print length? load %test.dat
          write/append/lines %test.dat remold [now now]
          print length? load %test.dat
     ]
]

</code>

Regards,

     Ashley

1 · [2] · 3 · 4 · 5 · 6 · 7 · See whole thread