John> Printing (actually postscript generation) is broken for me.
John> When I pull up print or postscript, I get the error:
John> Failed to write <filename>: unknown option "-outline"
John> I have no clue which outline is causing the problem, any
John> ideas?
The diff below will fix this one.
John> Also I am having a problem with The "Event monitor" not matching
John> anything when reading from a file. Are there any debug flags I can
John> through that will report every line it scans?
It seems to work here. Just put some additional debug statements in
ev_receive and set the global variable debug to "true". Perhaps your
syslog messages have a different format than ours.
John> Also, how do I set the flash color and timing threshold on the
John> ip-monitor/check rechability. Right now it is flashing white and
John> black, about 10 seconds after the inital unreachable message comes
John> up. Is there some easy way to set the color back to red, and have it
John> flash as soon as the unreachable message comes up?
I thought the initial delay would be a feature (we have lots of
temporary unreachables here), but you are right that this could be
handled by setting the ICMP parameters accordingly. I will make a more
complete patch next week that will fix this and some other small
problems.
John> BTW, the flash interval is now fast enough that it is
John> distinguishable even on a monochrome screen. Nice work.
Good. And thanks for reporting this problems.
Juergen
diff -c tkined-1.0/Editor.tcl tkined-1.0.1/Editor.tcl
*** tkined-1.0-broken/Editor.tcl Sat Aug 13 12:39:46 1994
--- tkined-1.0/Editor.tcl Sat Aug 27 13:32:29 1994
***************
*** 788,796 ****
$w.canvas itemconfigure $item -background White
}
}
! if {[lsearch -glob [$w.canvas gettags $item] label*] >= 0} {
! $w.canvas itemconfigure $item -fill White -outline White
! }
}
# make all selection marks invisible
--- 788,794 ----
$w.canvas itemconfigure $item -background White
}
}
! $w.canvas itemconfigure clip$item -fill White -outline White
}
# make all selection marks invisible
***************
*** 823,831 ****
$w.canvas itemconfigure $item -background $color
}
}
! if {[lsearch -glob [$w.canvas gettags $item] label*] >= 0} {
! $w.canvas itemconfigure $item -fill $color -outline $color
! }
}
# restore the selection marks
--- 821,827 ----
$w.canvas itemconfigure $item -background $color
}
}
! $w.canvas itemconfigure clip$item -fill $color -outline $color
}
# restore the selection marks