/*
By Yochai Timmer
These commands will help you control a Tree View list.
I've made $did-tree to act like the regular $did command, and supports the props used for
$did-tree(dialog,ID,N) Gives you the text of the Nth branch, You have to use branch loaction and give all the root IDs before like 2 3 4 etc..
$did-tree(dialog,ID,N).lines Gives you the number of lines under the Nth root. (Not including line 1 of course)
$did-tree(dialog,ID) gives you the selected line's text.
$did-tree(dialog,ID).len Gives you the selected line's length.
$did-tree(dialog,ID).sel Gives you the selected line's branch location.
$did-tree(dialog,ID).root Gives you the selected line's root.
$did-tree(dialog,ID).lines Gives you the number of lines in the corrent branch.
$did-tree(dialog,ID).Event Will return the last event for that ID
$did-tree(dialog,ID,N).Tooltip Will give you the Branch's tooltip

Example, Rootview:

-Root {tab} Tooltip - root
|-Branch1
|-Branch2
-Root2
|-THing
|--Subthing {tab} This is the tooltip


The basic law is that mdx uses line 1 in each Branch, so the actuall lines that you see start from line 2
So the location of "Subthing" would be: 3 2 2
and the location of Branch2 would be: 2 3

Now to call check writen in the First root, seconed line you would use this: $did-tree(Dialog,ID,2 3)

Now lets assume that "Subthing" is selected now:
$did-tree(dialog,ID) Gives you Subthing
$did-tree(dialog,ID).len gives you 8
$did-tree(dialog,ID).sel gives you 3 2 2
$did-tree(dialog,ID).root gives you 3
$did-tree(dialog,ID).lines gives you 1 (There's only 1 line in that branch)
$did-tree(dialog,ID).Tooltip gives you This is the tooltip

$did-tree(dialog,ID,2) will give you Root
$did-tree(dialog,ID,2).lines will give you 2 (there are 2 branches under "root")
$did-tree(dialog,ID,2).Tooltip will give you Tooltip - root
$did-tree(dialog,ID,2).Event will give you Sclick

I like using %vars cause it's easier to read %names than $1 $2 $4, but it's not necessery, and you can change that.
*/ ;$Did-Tree By Yochai Timmer
Alias -l did-tree {
var %dialog = $1
var %id = $2
;It's not necessery to set the $1 and $2 to vars, but I like to use named vars (Espcialy in examples)

if (!$dialog(%dialog)) return
;Just checking...


if ($3) {
; Checks if a specific location was requested

var %Loc = $3-
;Sets the location

if ($prop = lines) {
;Checks if the Property .lines was used

did -i %dialog %id 1 cb root %loc
;always need to use cb (change branch) to get the requested location

return $calc($did(%dialog,%id,0).lines -1)
;mdx default returns the number of lines + 1 (the options line), so you need to reduce by one to get the actuall number of lines

}
if ($numtok(%Loc,32) = 1) did -i %dialog %id 1 cb root
else { did -i %dialog %id 1 cb root $gettok(%loc,1- $+ $calc($numtok(%loc,32) -1),32) }
;Changing to the requested branch...

var %line = $gettok($did(%dialog,%id,$gettok(%Loc,-1,32)),7-,32)
;This sets %line to the branch's text

if ($prop = tooltip) return $gettok(%line,2-,9)
;This returns the branch's tooltip

return $gettok(%line,1,9)
;This returns the requested branch

}
var %entry = $did(%dialog,%id,1)
if ($gettok(%entry,1,32) = slclick) var %loc = $gettok(%entry,4-,32)
else var %loc = $gettok(%entry,3-,32)
;This checks the last event in the requested ID

var %depth = $calc($numtok(%loc,32) -1)
var %branch = $gettok(%loc,-1,32)
;Setting the depth of the branch, and the actuall branch position

if (%depth = 0) did -i %dialog %id 1 cb root
else did -i %dialog %id 1 cb root $gettok(%loc,1- $+ %depth,32)
;Changing to the requested branch

var %line = $gettok($did(%dialog,%id,%branch),7-,32)
;This sets %line to the branch's text

if (!$prop) return $gettok(%line,1,9)
;If no props were set it returns the branch's text

if ($prop = root) return $gettok(%loc,1,32)
;returns the root ID

if ($prop = sel) return %loc
;returns the branch's location

if ($prop = lines) return $calc($did(%dialog,%id,0).lines -1)
;Returnes the number of lines in the selected branch

if ($prop = len) return $len(%line)
;This returns the length of the branch's text

if ($prop = tooltip) return $gettok(%line,2-,9)
;This returns the branch's tooltip

if ($prop = event) return $gettok(%entry,1,32)
;This returns the last Event in the dialog

}