Tivoli Service Desk 6.0 Developer's Toolkit - Referência da Linguagem de Script
Controles de Árvore
Voltar para Página Principal
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
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
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
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
Descrição
Remove o nó de árvore especificado da árvore.
Sintaxe
Integer TreeDelete( node : TREENODE );
Notas do Argumento
Nome do Argumento |
Descrição |
nó |
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
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
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
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
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
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
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
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
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
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