if (commands = empty) then put value(selectedLine()) into commands
repeat with i=1 to the number of lines of commands
select line i+firstLine of cd fld "Command"
do line i of commands
end repeat
select saveChunk
end executeField
-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=250 top=22 right=51 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=2 top=187 right=314 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Output
----- HyperTalk script -----
on enterInField
put number(chars in the selectedText)
end enterInField
-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=250 top=298 right=314 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=300 top=298 right=314 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Error
-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=172 right=188 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
----- HyperTalk script -----
on enterInField
set cursor to watch
put polish(target) into card field result
end enterInField
on returnInField
if (commandKey() = down) then enterInField
else pass returnInField
end returnInField
-- part contents for background part 13
----- text -----
Description
-- part contents for background part 14
----- text -----
The field to the right can be used to enter commands directly to one of the XFCNs. Simply type a command or commands, select the desired lines, and press Enter or Command-Return to execute those lines. The field labeled "Output" may be used to dump output.
-- part contents for card part 1
----- text -----
-- RESEARCH FUNCTIONS
-- Get sorted list of handlers in several containers.
-- find handlers
put empty into cd fld output
put research("^(on|function)", "script", "containers number startCard 1 firstCard 1 lastCard 3") into cd fld output
put errorstring(research(error))
-- sort output
put listSort(cd fld output, ignorecase, return, false, quicksort) into cd fld output
set the scroll of cd fld output to 0
put research("!") before cd fld output
put research("?")
put research(error)
put research(matched)
put research(pattern, input, options)
-- BINARYTREE FUNCTIONS
put btree("!") into cd fld output
put btree("?")
put btree(delete, tree, key)
put btree(dispose, tree)
put btree(error)
put btree(get, tree, "k1,k2", ",")
put btree(getattribute, tree, unique)
put btree(getattribute, tree, compare)
put btree(inorder,tree,false,",", btree(root,tree))
put btree(insert, tree, "k1;k2","d1:d2",";",":")
put btree(left, tree, key)
put btree(new, tree) into cd fld output
put btree(parent, tree, key)
put btree(postorder,tree,"",",", btree(root,tree))
put btree(preorder,tree,false,",", btree(root,tree))
put btree(range,tree,k1,k2,false,btree(root,tree))
put btree(right, tree, key)
put btree(root, tree)
put btree(set,tree,"k1;k2","d1:d2",";",":")
put btree(setattribute, tree, unique, true)
put btree(setattribute, tree, compare, ignorecase)
-- ARRAYLIST FUNCTIONS
put alist("!") into cd fld output
put alist("?")
put alist(add, list, "added item2")
put alist(get, "list", ";")
put alist(getdimension, list)
put alist(size, list)
put alist(new, list)
put alist(delete, "list[1…3]")
put alist(dispose, list)
put alist(error)
put alist(errorstring)
put alist(find, list, "an item")
put errorstring(alist(error))
put alist(get, "list")
put alist(getattribute, list, sorted)
put alist(getattribute, list, compare)
put alist(insert, "list[0]", "inserted item2")
put alist(new, list)
put alist(pop, list)
put alist(push, list, "pushed item")
put alist(set, list, 1, "set item")
put alist(setattribute, list, sorted, true)
put alist(setattribute, list, compare, ignorecase)
put alist(size, list)
put alist(sort, list)
put alist(top, list)
-- ErrorName
put errorname("!") into cd fld output
put errorname("?") into cd fld output
put errorname(26)
put errorname(empty)
-- ErrorString
put errorstring("!") into cd fld output
put errorstring("?") into cd fld output
put errorstring(26)
put errorstring(errorname(26))
put errorstring(empty)
-- part contents for card part 2
----- text -----
Select lines to execute in field below and press Enter or Command-Return.
