GiuseppeChillemi

;Red []
Rebol []

sort-by-length: func [
	[catch]
	"Sort a block by the length of its components from smaller to bigger"
	data [block!] "Block of elements"
	/safe "Elements type can be mixed"
	/reverse "Reverse the order of sorting"
	/local

GiuseppeChillemi

;Red []
Rebol []

find**: func [
	data
	column
	value
	/local
	container
	out-data

GiuseppeChillemi

This code:

view [

	host [								
		vlist [				
							
			bt: button "Press meee I am space!" 
			gr: grid-view source= table-data2 size 400x300 on-created [probe gr save %new-mold.txt gr]
			with [

GiuseppeChillemi

## Questions on SPACES paths

Please answer with yes/or no

|                                     | Stored as block? | Stored as name + size block? | Stored as path? | Stored as tree path? | Visualized as path? | Visualized as tree path? | returned as path by functions? | returned as tree path by functions? |
| ----------------------------------- | ---------------- | ---------------------------- | --------------- | -------------------- | ------------------- | ------------------------ | ------------------------------ | ----------------------------------- |
| /map facet                          |                  |                              |                 |                      |                     |                          |                                |                                     |
| /parent facet                       |                  |                              |                 |                      |                     |                          |                              

GiuseppeChillemi

Red [
	Title: "Speed test key val"
	purpose: "Evaluate which method and structures are better for key-val selection"
	note: "It has some bugs, don't use it but speedtest-key-val2."
]

recycle/off
;=== Setup
test: copy []
top: 1000000

GiuseppeChillemi

;Red []
Rebol [
	Title: "Speed test key val2"
	purpose: "Evaluate which method and structures are better for key-val selection"
	Notes: {Actually supports Rebol3 and Red}
	Todo: {
		debug r3 for slowness
		debug r3 for error on saving
		create a text questions standard with "ask",choices,menu-map
		add integer validation 

GiuseppeChillemi

Red [
	Title:  "Red TUI merged test script"
	Needs:	'View
	Config: [GUI-engine: 'terminal]
  Description: {
    show an hang on the event system
  }
]

page-3: layout/tight [

GiuseppeChillemi

Red [
	Title: "This is a bug test for with"
	Description: "it generates not enough memmory"
]

;
;#include %scripts-rebol/add-word.red
;#include %scripts-rebol/get-start-end.red
;#include %scripts-rebol/select-and-store2.red

GiuseppeChillemi

Red [
	title: "NoteManager Evolution"
	needs: 'View
]


#system [
    #import [
        "user32.dll" stdcall [
            SendMessage: "SendMessageW" [

GiuseppeChillemi

Red [
    title: "For-Record"
    description: "A For-skip alternative"
    notes: {
    Use BREAK-HERE let the function return the series at current position 
    Use RETURN-VALUE to let the function return anything you want
    If the cycle will end naturally, the series will be at head position
    }
]