Text-list updates
[1/5] from: ptretter::charter::net at: 31-May-2004 15:52
I have been working on updates to Text-List. Anyone have any Text-List bugs they want
to mentions or functionality that doesn't seem correct.
What I have done so far is:
* Added a new item called picked-index. This can be used to synchronize data from
several lists.
* Fixed Highlighting so that like items are not highlighted. This also used the picked-index.
* Gave Text-list a default action of double-click. A new facet word was created for
single-click action called "single-click".
Working on:
Updating the Text-list iter items to display formatting independantly over the other
items so that a Text-List can display a different font or font color depending on specifics
resulting from logic, functions or passed values. I already have this part partially
completed with a way of doing this. I just want to refine it a bit more. I uses a new
facet word called 'format for defining the functions or values to be applied to the iter
items.
If you have any useful updates to Text-list or other bugs or ideas, I would be happy
to hear them. I'm currently using the Text-List updated source as provided in the SDK
package. This also includes a striped facet word for creating striped iter faces in the
text-list pane. Since the code is from the SDK, I will have to get Carl's approval before
release to the masses.
Paul Tretter
[2/5] from: ptretter:charter at: 2-Jun-2004 11:18
Here is an example:
http://www.tretsoft.com/images/text-list-new.jpg
Paul Tretter
----- Original Message -----
From: "Paul Tretter" <[ptretter--charter--net]>
To: <[rebol-list--rebol--com]>
Sent: Monday, May 31, 2004 3:52 PM
Subject: [REBOL] Text-list updates
> I have been working on updates to Text-List. Anyone have any Text-List
bugs they want to mentions or functionality that doesn't seem correct.
> What I have done so far is:
>
> * Added a new item called picked-index. This can be used to
synchronize data from several lists.
> * Fixed Highlighting so that like items are not highlighted. This also
used the picked-index.
> * Gave Text-list a default action of double-click. A new facet word was
created for single-click action called "single-click".
> Working on:
> Updating the Text-list iter items to display formatting independantly over
the other items so that a Text-List can display a different font or font
color depending on specifics resulting from logic, functions or passed
values. I already have this part partially completed with a way of doing
this. I just want to refine it a bit more. I uses a new facet word called
'format for defining the functions or values to be applied to the iter
items.
> If you have any useful updates to Text-list or other bugs or ideas, I
would be happy to hear them. I'm currently using the Text-List updated
source as provided in the SDK package. This also includes a striped facet
word for creating striped iter faces in the text-list pane. Since the code
is from the SDK, I will have to get Carl's approval before release to the
masses.
[3/5] from: mike:yaunish:shaw:ca at: 31-May-2004 21:29
I'd love to see the text list respond to keys typed in so that the list
moves to
the closest alphabetic word. (Fairly standard long listing behaviour in
windows etc.)
Mike Yaunish
[4/5] from: atruter:labyrinth:au at: 1-Jun-2004 14:26
> I'd love to see the text list respond to keys typed in so that the list
> moves to
> the closest alphabetic word. (Fairly standard long listing behaviour in
> windows etc.)
I'll second that! I've always liked the following "auto-fill" field style
(which I've lost track of who originally wrote, so yell if it's yours).
<code>
stylize/master [
auto-fill: field with [
feel: make feel [
engage: func [face act event index][
switch act [
down [
either face <> system/view/focal-face [
focus face
][
system/view/highlight-start: system/view/highlight-end: none
system/view/caret: offset-to-caret face event/offset
show face
]
]
over [
if system/view/caret <> offset-to-caret face event/offset [
if not system/view/highlight-start [system/view/highlight-start:
system/view/caret]
system/view/highlight-end: system/view/caret: offset-to-caret face
event/offset
show face
]
]
key [
ctx-text/edit-text face event face/action
if all [
char? event/key
not empty? face/text
find ctx-text/keys-to-insert event/key
][search face]
]
]
]
]
search: func [face /local word][
word: copy face/text
foreach item face/user-data [
if equal? word copy/part item (length? word) [
face/text: copy item
system/view/focal-face: face
system/view/highlight-start: skip face/text length? word
system/view/highlight-end: tail face/text
system/view/caret: tail face/text
show face
exit
]
]
]
words: [data [new/user-data: second args next args]]
]
]
view layout [
a: auto-fill with [
user-data: ["Paul" "Pauline" "Peter"]
]
do [focus a]
]
</code>
Regards,
Ashley
[5/5] from: antonr:lexicon at: 1-Jun-2004 15:00
I think it was Allen Kamp who showed the first
auto-fill style. I used it a long time ago.
Anton.