#105 Default exit commands
When using ZIF to map manually, current way to
manually map an exit requires:
right click on exit box
click on command entry
type in command
click to accept change
The commands you want to type in are almost always the
same for each exit. It would be nice to not have to
type anything for the simple case -- this would save
moving hands from mouse to keyboard and back.
Here's a quicky little patch that demonstrates what I
mean:
$ diff -c TExit.tcl.orig TExit.tcl
*** TExit.tcl.orig Mon Aug 27 17:39:01 2001
--- TExit.tcl Mon Aug 27 17:37:34 2001
***************
*** 378,383 ****
--- 378,388 ----
$itk_component(thick) delete 0 end
$itk_component(thick) insert 0 2
}
+ if {"" == $TV($this,command)} {
+ # quick hack to provide a reasonable
default for exit command
+ regsub {[xoc]} $aPos {} TV($this,command)
+ }
+
}
method doorWasToggled {} {
global TV
Logged In: NO
This is a subset of request #450133
Logged In: NO
This is a subset of request #450133