Riferimento Lingua del Tivoli Service Desk 6.0 Developer's Toolkit Script

Comandi albero

Ritorna alla pagina principale


DlgTreeInsert

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


DlgTreeClear

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


DlgTreeActiveRedraw

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


TreeInsert

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


TreeDelete

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


TreeExpand

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


TreeSelect

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


TreeFindNode

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


TreeSetData

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


TreeGetData

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


TreeSetLabel

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


TreeGetLabel

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


TreeIsExpanded

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


TreeIsSelected

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