Tivoli Service Desk 6.0 Developer's Toolkit - Referência da Linguagem de Script

Controles de Árvore

Voltar para Página Principal


DlgTreeInsert

Descrição

Insere nó de nível de "raiz" em uma árvore.

Sintaxe

Integer DlgTreeInsert( handle : WINDOW, treeId : STRING, REF node : TREENODE, label : STRING, userData : ANY, position : POSITION );

Notas do Argumento

Nome do Argumento Descrição
handle Identificador de janela da caixa de diálogo que contém a árvore
treeId ID da árvore
node O nó criado recentemente que foi inserido na árvore
label O rótulo do texto a ser exibido no nó de árvore inserido
userData Os dados a serem associados com o nó de árvore inserido
position A relação utilizada para determinar como o novo nó é inserido

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
0 Não foi encontrado controle de árvore
-1 Identificador de janela incorreto
-2 Valor Desconhecido
-9 Sintaxe incorreta

Consulte também


DlgTreeClear

Descrição

Remove todos os nós de uma árvore.

Sintaxe

Integer DlgTreeClear( handle : WINDOW, treeId : STRING );

Notas do Argumento

Nome do Argumento Descrição
handle Identificador de janela da caixa de diálogo que contém a árvore
treeId ID da árvore

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-1 Identificador de janela incorreto
-2 Valor Desconhecido
-9 Sintaxe incorreta

Consulte também


DlgTreeActiveRedraw

Descrição

Controla se a árvore deve ou não ser atualizada graficamente quando os nós da árvore são incluídos na árvore de forma programada.

Sintaxe

Integer DlgTreeActiveRedraw( handle : WINDOW, treeId : STRING, state : BOOLEAN );

Notas do Argumento

Nome do Argumento Descrição
Identificador Identificador de janela da caixa de diálogo que contém a árvore
TreeId ID da árvore
State Sinalizador que representa se a árvore deve ser atualizada graficamente quando são inseridos nós de árvore ( TRUE para sim, FALSE para não )

Notas

Desativando o desenho ativo, as adições de nó em uma árvore são muito mais rápidas. Quando todos os nós tiverem sido incluídos na árvore, ativar o desenho ativo atualiza a árvore graficamente.

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-1 Identificador de janela incorreto
-2 Valor Desconhecido
-9 Sintaxe incorreta

Consulte também


TreeInsert

Descrição

Cria um novo nó em uma árvore, relativo ao nó de referência.

Sintaxe

Integer TreeInsert( referenceNode : TREENODE, REF newNode : TREENODE, label
: STRING, userData : ANY, position : POSITION );

Notas do Argumento

Nome do Argumento Descrição
referenceNode O nó relacionado ao nó inserido
newNode O valor do nó inserido
label O rótulo do texto a ser exibido no nó de árvore inserido
userData Os dados a serem associados com o nó de árvore inserido
position A relação entre o nó de referência e o nó inserido

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-1 Identificador de janela incorreto
-2 Valor Desconhecido
-9 Sintaxe incorreta

Consulte também


TreeDelete

Descrição

Remove o nó de árvore especificado da árvore.

Sintaxe

Integer TreeDelete( node : TREENODE );

Notas do Argumento

Nome do Argumento Descrição
Nó de árvore de destino

Exemplo

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;


Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-2 Valor Desconhecido

Consulte também


TreeExpand

Descrição

Expande ou reduz o nó de árvore especificado.

Sintaxe

Integer TreeExpand( node : TREENODE, state : BOOLEAN );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino
state sinalizador que representa o estado expandido do nó ( TRUE para expandido, FALSE para reduzido)

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-2 Valor Desconhecido

Consulte também


TreeSelect

Descrição

Seleciona o nó de árvore especificado.

Sintaxe

Integer TreeSelect( node : TREENODE );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-2 Valor Desconhecido

Consulte também


TreeFindNode

Descrição

Determina o nó relativo ao nó especificado.

Sintaxe

Integer TreeFindNode( node : TREENODE, REF newNode : TREENODE, relatedHow : POSITION );

Notas do Argumento

Nome do Argumento Descrição
node O nó de árvore para pesquisa
newNode O nó de árvore retornado da pesquisa
relatedHow A relação entre o nó inicial e nó desejado

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
0 Não foi encontrado controle de árvore
-1 Identificador de janela incorreto
-2 Valor Desconhecido

Consulte também


TreeSetData

Descrição

Associa dados com o nó de árvore especificado. Esses dados podem ser de qualquer tipo.

Sintaxe

Integer TreeSetData( node : TREENODE , userData : ANY );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino
userData Os dados a serem associados com o nó de árvore

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-2 Valor Desconhecido

Consulte também


TreeGetData

Descrição

Recupera os dados do usuário associados com o nó de árvore especificado.

Sintaxe

Integer TreeGetData( node : TREENODE, REF userData : ANY );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino
userData Os dados recuperados do nó de árvore

Exemplo

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;


Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-1 Identificador de janela incorreto
-2 Valor Desconhecido

Consulte também


TreeSetLabel

Descrição

Define o rótulo de texto do nó de árvore especificado.

Sintaxe

Integer TreeSetLabel( node : TREENODE, label : STRING );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino
label O rótulo do texto a ser exibido no nó de árvore

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-2 Valor Desconhecido

Consulte também


TreeGetLabel

Descrição

Recupera o rótulo de texto do nó de árvore especificado.

Sintaxe

Integer TreeGetLabel( node : TREENODE, REF label : STRING );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino
label O nó de texto exibido atualmente no nó de árvore

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Comando concluído com êxito
-1 Identificador de janela incorreto
-2 Valor Desconhecido

Consulte também


TreeIsExpanded

Descrição

Determina se o nó de árvore especificado é expandido.

Sintaxe

Boolean TreeIsExpanded( node : TREENODE );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Árvore expandida
0 Árvore não expandida
-2 Valor Desconhecido

Consulte também


TreeIsSelected

Descrição

Determina se o nó de árvore especificado está selecionado.

Sintaxe

Boolean TreeIsSelected( node : TREENODE );

Notas do Argumento

Nome do Argumento Descrição
node Nó de árvore de destino

Exemplo

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;

Códigos de Retorno

Código de Retorno Descrição
1 Árvore expandida
0 Árvore não expandida
-2 Valor Desconhecido

Consulte também


Tivoli Service Desk 6.0 Developer's Toolkit - Referência da Linguagem de Script

Voltar para Página Principal

Copyright