@GiuseppeChillemi @greggirwin Gregg's image resizing demo is also on red/code (with many other examples): https://github.com/red/code/blob/master/Scripts/resize-image.red
@GiuseppeChillemi here is a reacting version: https://gist.github.com/luce80/e34516e5248b629badfd4016dda6cbb8
My previous post did not work after copying and pasting into the console so i deleted it. This version does.
After selecting an item from a text-list i want to delete it from the list.
thedata: ["a" "b" "c"]
selecteditems: copy []
view [
te: text-list data thedata [
t: thedata/(te/selected)
if not(none? t) [
append selecteditems t
thedata/(te/selected): copy ""
]
l: 0
foreach item thedata [
if item <> "" [
l: l + 1
]
]
if 0 = l [unview]
]
]
print selecteditems ; this order is not importantThis code works but there must be a nicer better way to do this.
Note: The selected items can be chosen random.
Some comments about your code:
if not(none? t) [is equivalent toif t [in this case.thedata/(te/selected)is a bit harder to read thanpick thedata te/selectedorat thedata te/selected.- Use shorter words, use hyphen (
-) when putting multiple words together as a variable name. Invest into better names, make your code read well enough in English, it will be easier to understand/maintain. - Avoid using
I,lorOas variable names, as they can often be confused with1and0. - Red has a rich API, most of simple actions you need on built-in datatypes are probably covered already. Take some time to study the existing functions (use
whatfrom the console and the Rebol/Core manual).
Here is an even more concise version:
list: ["a" "b" "c"]
probe collect [
view [
text-list data list on-down [
keep take at face/data face/selected
if empty? face/data [unview]
]
]
]
Submitting code for improvement by the community is a good way to learn. Though, it should not replace reading in depth the existing docs. Also, asking the community questions about some language concepts or constructs is also very useful. Back in the early days in the Rebol community, we only had the mailing-list for that, and it was very helpful for everyone to ask questions and submit code. Nowadays, we have sophisticated realtime chats and online collaborative tools, so don't be shy. ;-)
One more question. How do i get the selected item? Looks simple but
not to me.
not to me.
list: ["a" "b" "c"]
print collect [
view [
text-list data list on-down [
; I need the selected item to
; store it into another text-list
keep take at face/data face/selected
if empty? face/data [unview]
]
]
]
@Rebol2Red Right, I should have used
event/picked rather than face/selected. Though, the mouse events seem to not fill event/picked, so that we need to change the event type and add some extra code to ensure that the text-list's selection does not interfere:list: ["a" "b" "c"]
probe collect [
view [
text-list data list
on-change [face/selected: none]
on-select [
keep take at face/data probe event/picked
if empty? face/data [unview]
]
]
]
I've opened a ticket for the mouse events on text-list, to see if we can improve it.
Then you can sort as each item is selected.
Taking advantage of my holidays I acquired this new T-Shirt at the corner's shop, I'm so proud of wear it this summer :smile:
Looks like a bug. Code
@henrikmk :point_up: August 8, 2017 11:40 AM There is no need to store the old selection, both old and new values are available during
select event.
@GiuseppeChillemi @pekr some improvements:
http://i.imgur.com/LZm7Vas.png
- columns can be reordered
- long text is automatically truncated
- text can be aligned to left or right
- active cell or row can be highlighted
- header
- and probably some others I forgot.
Next is keyboard navigation and editing (probably using fieldstyle, I will see).