GiuseppeChillemi

Red [
  Title: "Mirror fields"
  Description: "Mirrors a field from a context to another. A modification code can be used"
  Usage: mirror [obj1 obj2] [src-word dest-word [code]....]
]


mirror: func [
	"Mirrors the value of a word in a context to a word in another"
	objects [block!] "The objects to link"

GiuseppeChillemi

Red [
  Title: "VID Composablel library test"
]

library: [
	
	p1 [
		code-segment [
			panel 600x40 [
				b: button "Hit me!" [

GiuseppeChillemi

Red [
  title: "Compose-where"
  Description: "A dialected compose with filtering and auto composition"
]

compose-where: func [
	"Compose where groups match using CMP/GROUP/(code). Use CMPO for ONLY"
	series [block!] "The block to compose"
	/group "Specify a group to compose"
	grp [word! block!] "The group(s) to compose"

GiuseppeChillemi

Red [
	Title: "Include a Function from a file"
	Description: "Extracts and load one or more functions from a file"
]



copy-function: func [
	"Search for a function definition and copy it from a block"
	file [block!] "A block containing the functions"

GiuseppeChillemi

Red [
  title: "collect-functions"
  description: "collects all the function names found inside a block (statically and not at runtime)"
]

add-function: func [
	"Append the function name to the target container"
	container [block!] "The container of functions"
	name [word! set-word! lit-word! paren!] "The function to add or the paren that will be reduced to the name"
	/index "Adds the path to reach the function from the top"

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
    }
]
  

GiuseppeChillemi

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


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

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:  "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 []
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