/usr/share/elmerpost/tcl/message.tcl is in elmer-common 6.1.0.svn.5396.dfsg2-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | proc message { text { name message } } {
toplevel .message
place_window .message
wm title .message $name
frame .message.frame
text .message.frame.text -width 42 -height 9 -font -Adobe-Helvetica-Medium-R-Normal-*-140-*
button .message.frame.but -text "Close" -command "destroy .message"
pack .message.frame
pack .message.frame.text
pack .message.frame.but -side bottom
.message.frame.text insert end $text
}
|