[tkined] expanding bug

Marat M. Khairullin (xmm@ugai.kcn.ru)
09 Jul 1998 20:36:41 +0400

Tkined do not expand recursively groups at map open time.

RedHat5.0, tcl8.0, tk8.0, scotty2.1.9

Example:
#!/bin/sh
## This file was created by tkined version 1.4.9 >> DO NOT EDIT <<
##
## This may look like TCL code but it is definitely not! \
exec tkined "$0" "$@"

ined page A4 landscape

set node0 [ ined -noupdate create NODE ]
ined -noupdate move $node0 114.00 166.00
ined -noupdate icon $node0 machine
ined -noupdate font $node0 fixed
ined -noupdate name $node0 gate
ined -noupdate address $node0 192.168.2.255
ined -noupdate label $node0 name

set group0 [ ined -noupdate create GROUP $node0 ]
ined -noupdate move $group0 -9999999 -9999999
ined -noupdate move $group0 218.00 215.00
ined -noupdate icon $group0 group
ined -noupdate font $group0 fixed
ined -noupdate name $group0 group21
ined -noupdate label $group0 name
ined -noupdate expand $group0

set node1 [ ined -noupdate create NODE ]
ined -noupdate move $node1 108.00 47.00
ined -noupdate icon $node1 machine
ined -noupdate font $node1 fixed
ined -noupdate name $node1 node67
ined -noupdate label $node1 name

set network0 [ ined -noupdate create NETWORK 0.000000 0.000000 116.000000 0.000000 ]
ined -noupdate move $network0 57.00 116.00
ined -noupdate icon $network0 3
ined -noupdate font $network0 fixed
ined -noupdate name $network0 network2
ined -noupdate address $network0 192.168.2
ined -noupdate label $network0 name

set group1 [ ined -noupdate create GROUP $node1 $group0 $network0 ]
ined -noupdate move $group1 -9999999 -9999999
ined -noupdate move $group1 355.00 196.00
ined -noupdate icon $group1 group
ined -noupdate font $group1 fixed
ined -noupdate name $group1 group22
ined -noupdate label $group1 name
ined -noupdate expand $group1

set link0 [ ined -noupdate create LINK $node0 $network0 ]

set link1 [ ined -noupdate create LINK $node1 $network0 ]

-- 
Marat Khairullin	8->	mailto:xmm@ugai.kcn.ru

--
!! This message is brought to you via the `tkined & scotty' mailing list.
!! Please do not reply to this message to unsubscribe. To subscribe or
!! unsubscribe, send a mail message to <tkined-request@ibr.cs.tu-bs.de>.
!! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more information.