1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
// Scicos
//
// Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
//
// See the file ../license.txt
//
function tree_show(x,titletop)
if argn(2) < 1 then
error(sprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "tree_show", 1, 2));
end
if type(x)<>16 & type(x)<>17 & type(x)<>15 then
error("Wrong type; input must be a list.")
end
//-- tt = ["set BWpath [file dirname '"$env(SCIPATH)/modules/tclsci/tcl/BWidget-1.8.0'"] "
//-- "if {[lsearch $auto_path $BWpath]==-1} { set auto_path [linsert $auto_path 0 $BWpath] }"
//-- "package require BWidget 1.8.0"
//-- // 'proc ppx {label} {global xmind; set xmind $label;ScilabEval '"%tcl_par=''1'''"}'
//-- // 'proc qqx {label} {global xmind; set xmind $label;ScilabEval '"%tcl_par=''3'''"}'
//-- 'catch {destroy .ss}'
//-- 'toplevel .ss'
//-- 'scrollbar .ss.ysb -command {.ss.t yview}'
//-- 'scrollbar .ss.xsb -command {.ss.t xview} -orient horizontal'
//-- 'Tree .ss.t -xscrollcommand '".ss.xsb set'" -yscrollcommand '".ss.ysb set'" "+...
//-- " -width 30'
//-- 'grid .ss.t .ss.ysb -sticky nsew'
//-- ' grid .ss.xsb -sticky ew'
//-- ' grid rowconfig .ss 0 -weight 1'
//-- ' grid columnconfig .ss 0 -weight 1'
//-- ];
//-- for i=1:size(tt,1)
//-- TCL_EvalStr(tt(i))
//-- end
//-- if argn(2)>1 then
//-- tt = 'wm title .ss {'+titletop+'}';
//-- elseif type(x)<>15 then
//-- v = getfield(1,x);
//-- tt = 'wm title .ss '+v(1);
//-- else
//-- tt = 'wm title .ss list';
//-- end
//-- TCL_EvalStr(tt)
Path = "root"
tree = uiCreateNode("Root");
tree = crlist3(x,Path, tree);
uiDisplayTree(tree);
//-- TCL_EvalStr(' .ss.t bindText <Double-1> {ppx}')
//-- TCL_EvalStr(' .ss.t bindText <3> {qqx}')
endfunction
function java = crlist3(x,Path, java)
if type(x)==15 then
II=1:size(x);v=string(II);
else
v=getfield(1,x);
if type(x)==17 & v(1)=="st" then
II=3:size(v,"*");
else
II=2:size(v,"*");
end
end
for i=II
path=Path+","+string(i)
titre=v(i);
o=getfield(i,x);
if type(o)==16 |type(o)==17 then
w=getfield(1,o);
titre2=titre+" ("+w(1)+")";
//-- TCL_EvalStr('.ss.t insert end '+Path+' '+path+' -image [Bitmap::get folder] -text {'+titre2+'}')
currentNode = uiCreateNode(titre2);
currentNode = crlist3(o,path,currentNode); //* recursive
java = uiConcatTree(java, currentNode);
elseif type(o)==15 then
titre2=titre;
//-- TCL_EvalStr('.ss.t insert end '+Path+' '+path+' -image [Bitmap::get folder] -text {'+titre2+'}')
currentNode = uiCreateNode(titre2);
currentNode = crlist3(o,path,currentNode); //* recursive
java = uiConcatTree(java, currentNode);
else
try
if size(o, "*") > 40 then
tts = typeof(o) + " of size " + sci2exp(size(o))
else
tts = sprintf("%s", sci2exp(o))
end,
catch
tts = typeof(o);
end
titre2=titre+": "+tts ;
//-- TCL_EvalStr('set yy {'+titre2+'}')
//-- TCL_EvalStr('.ss.t insert end '+Path+' '+path+' -text $yy')
java = uiConcatTree(java, uiCreateNode(titre2));
end
end
endfunction
|
