Riferimento Lingua del Tivoli Service Desk 6.0
Developer's Toolkit Script
Comandi albero
Ritorna alla pagina principale
Descrizione
Inserisce un nodo livello "root" in un albero.
Sintassi
Integer DlgTreeInsert( handle : WINDOW, treeId : STRING, REF node : TREENODE, label : STRING, userData : ANY, position : POSITION );
Note argomento
Nome dell'argomento |
Descrizione |
handle |
L'handle della finestra della
casella di dialogo che contiene l'albero |
treeId |
ID dell'albero |
node |
Il nodo appena creato che è stato
inserito nell'albero |
label |
L'etichetta del testo da visualizzare
sul nodo albero inserito |
userData |
I dati da associare al nodo albero inserito |
position |
La relazione utilizzata per
determinare come inserire il nuovo nodo |
Esempio
KNOWLEDGEBASE example;ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
0 |
Nessun comando albero trovato |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
-9 |
Sintassi errata |
Consultare anche
Descrizione
Elimina tutti i nodi da un albero.
Sintassi
Integer DlgTreeClear( handle : WINDOW, treeId : STRING );
Note argomento
Nome dell'argomento |
Descrizione |
handle |
L'handle della finestra della
casella di dialogo che contiene l'albero |
treeId |
ID dell'albero |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
DlgTreeClear( whdl, 'TREE_CONTROL' );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
-9 |
Sintassi errata |
Consultare anche
Descrizione
Controlla se aggiornare o meno graficamente l'albero quando i nodi
dell'albero vengono aggiunti all'albero programmaticamente.
Sintassi
Integer DlgTreeActiveRedraw( handle : WINDOW, treeId : STRING, state : BOOLEAN );
Note argomento
Nome dell'argomento |
Descrizione |
Handle |
L'handle della finestra della
casella di dialogo che contiene l'albero |
TreeId |
ID dell'albero |
State |
Indicatore che specifica se l'albero
deve essere aggiornato graficamente quando vengono inseriti i nodi
albero (TRUE per sì, FALSE per no) |
Note
Disattivando l'aggiornamento attivo, le aggiunte dei
nodi ad un albero, sono molto più veloci. Dopo che tutti i nodi sono
stati aggiunti all'albero, attivando l'aggiornamento grafico attivo
si aggiorna l'albero.
Esempio
KNOWLEDGEBASE example;
ROUTINESPROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
DlgTreeActiveRedraw( whdl, 'TREE_CONTROL', FALSE );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
DlgTreeActiveRedraw( whdl, 'TREE_CONTROL', TRUE );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
-9 |
Sintassi errata |
Consultare anche
Descrizione
Creare un nuovo nodo in un albero relativo al nodo di riferimento.
Sintassi
Integer TreeInsert( referenceNode : TREENODE, REF newNode : TREENODE, label
: STRING, userData : ANY, position : POSITION );
Note argomento
Nome dell'argomento |
Descrizione |
referenceNode |
Il nodo relativo al nodo inserito |
newNode |
Il valore del nodo inserito |
label |
L'etichetta del testo da visualizzare
nel nodo albero inserito |
userData |
I dati da associare al nodo albero inserito |
position |
La relazione tra il nodo di riferimento
e il nodo inserito |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeExpand( root, TRUE );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
-9 |
Sintassi errata |
Consultare anche
Descrizione
Elimina dall'albero il nodo specificato.
Sintassi
Integer TreeDelete( node : TREENODE );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeDelete( root );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Apre o chiude il nodo albero specificato.
Sintassi
Integer TreeExpand( node : TREENODE, state : BOOLEAN );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
state |
Indicatore che rappresenta lo
stato aperto del nodo (TRUE per aperto, FALSE per chiuso) |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeExpand( root, TRUE ); -- Expand the root node
TreeExpand( root, FALSE ); -- Collapse the root node
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Seleziona il nodo albero specificato.
Sintassi
Integer TreeSelect( node : TREENODE );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeSelect( root );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Determina il nodo relativo al nodo specificato.
Sintassi
Integer TreeFindNode( node : TREENODE, REF newNode : TREENODE, relatedHow : POSITION );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Il nodo albero dal quale
effettuare la inquiry |
newNode |
Il nodo albero restituito dalla inquiry |
relatedHow |
La relazione tra il
nodo iniziale e il nodo desiderato |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
foundNode : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD ); ret := TreeFindNode( root, foundNode, $FIRSTCHILD );
if ( ret = 1 ) then
-- Found it...
TreeExpand( root, TRUE );
TreeSelect( foundNode );
WinMessageBox( $Desktop, 'Node Search', $MBOK, 'Found' );
else
-- Not found...
WinMessageBox( $Desktop, 'Node Search', $MBOK, 'Not found' );
end;
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
0 |
Nessun comando albero trovato |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Associa i dati al nodo albero specificato. Questi dati possono essere di qualsiasi tipo.
Sintassi
Integer TreeSetData( node : TREENODE , userData : ANY );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
userData |
I dati da associare al nodo albero |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
rootRecord.Field1 := 1;
rootRecord.Field2 := 2;
rootRecord.Field3 := 3;
rootRecord.Field4 := 4;
rootRecord.Field5 := 5;
TreeSetData( root, rootRecord );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Richiama i dati utente associati al nodo albero specificato.
Sintassi
Integer TreeGetData( node : TREENODE, REF userData : ANY );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
userData |
I dati richiamati dal nodo albero |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
newRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
rootRecord.Field1 := 1;
rootRecord.Field2 := 2;
rootRecord.Field3 := 3;
rootRecord.Field4 := 4;
rootRecord.Field5 := 5;
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeGetData( root, newRecord );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Imposta l'etichetta del testo del nodo albero specificato.
Sintassi
Integer TreeSetLabel( node : TREENODE, label : STRING );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
label |
L'etichetta del testo da visualizzare sul nodo albero |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeSetLabel( root, 'New Root' );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Richiama l'etichetta del testo del nodo albero specificato.
Sintassi
Integer TreeGetLabel( node : TREENODE, REF label : STRING );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
label |
L'etichetta del testo correntemente
visualizzata sul nodo albero |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
rootLabel : String;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeGetLabel( root, rootLabel );
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Comando riuscito |
-1 |
Handle della finestra non corretto |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Determina se il nodo albero specificato è aperto.
Sintassi
Boolean TreeIsExpanded( node : TREENODE );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
expanded : Boolean;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD ); expanded := TreeIsExpanded( root );
if ( expanded ) then
-- Tree node is expanded...
Nothing;
else
-- Tree node is not expanded...
Nothing;
end;
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Albero aperto |
0 |
Albero non aperto |
-2 |
Valore sconosciuto |
Consultare anche
Descrizione
Determina se il nodo albero specificato è selezionato.
Sintassi
Boolean TreeIsSelected( node : TREENODE );
Note argomento
Nome dell'argomento |
Descrizione |
node |
Nodo albero di destinazione |
Esempio
KNOWLEDGEBASE example;
ROUTINES
PROCEDURE example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE example IS
VARIABLES
ret: Integer;
selected : Boolean;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
selected := TreeIsSelected( root );
if ( selected ) then
-- Tree node is selected...
Nothing;
else
-- Tree node is not selected...
Nothing;
end;
WinWait(whdl);
END;
Codici di ritorno
Codice di ritorno |
Descrizione |
1 |
Albero aperto |
0 |
Albero non aperto |
-2 |
Valore sconosciuto |
Consultare anche
Riferimento Lingua del Tivoli Service Desk 6.0
Developer's Toolkit Script
Ritorna alla pagina principale
Copyright