/usr/src/WrapITK/Tcl/itkinteraction.tcl is in libinsighttoolkit3-dev 3.20.1+git20120521-6build1.
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 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 122 123 124 125 126 127 128 | #
# Program: Insight Segmentation & Registration Toolkit
# Module: itkinteraction.tcl
# Language: C++
# Date: $Date$
# Version: $Revision$
#
# Copyright (c) Insight Software Consortium. All rights reserved.
# See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.
#
# This software is distributed WITHOUT ANY WARRANTY; without even
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the above copyright notices for more information.
#
# Need Tk.
package require Tk
# Define ITK Tcl interactor.
namespace eval itk::interact {
set Bold "-background #43ce80 -foreground #221133 -relief raised -borderwidth 1"
set Normal "-background #dddddd -foreground #221133 -relief flat"
set Tagcount 1
set CommandList ""
set CommandIndex 0
proc createInteractor {} {
global itk::interact::CommandList
global itk::interact::CommandIndex
global itk::interact::Tagcount
proc doitk {s w} {
global itk::interact::Bold
global itk::interact::Normal
global itk::interact::Tagcount
global itk::interact::CommandList
global itk::interact::CommandIndex
set tag [append tagnum $Tagcount]
set CommandIndex $Tagcount
incr Tagcount 1
.itkInteract.display.text configure -state normal
.itkInteract.display.text insert end $s $tag
set CommandList [linsert $CommandList end $s]
eval .itkInteract.display.text tag configure $tag $Normal
.itkInteract.display.text tag bind $tag <Any-Enter> \
".itkInteract.display.text tag configure $tag $Bold"
.itkInteract.display.text tag bind $tag <Any-Leave> \
".itkInteract.display.text tag configure $tag $Normal"
.itkInteract.display.text tag bind $tag <1> "itk::interact::doitk [list $s] .itkInteract"
.itkInteract.display.text insert end \n;
.itkInteract.display.text insert end [uplevel 1 $s]
.itkInteract.display.text insert end \n\n
.itkInteract.display.text configure -state disabled
.itkInteract.display.text yview end
}
catch {destroy .itkInteract}
toplevel .itkInteract -bg #bbbbbb
wm title .itkInteract "itk Interactor"
wm iconname .itkInteract "itk"
frame .itkInteract.buttons -bg #bbbbbb
pack .itkInteract.buttons -side bottom -fill both -expand 0 -pady 2m
button .itkInteract.buttons.dismiss -text Dismiss \
-command "wm withdraw .itkInteract" \
-bg #bbbbbb -fg #221133 -activebackground #cccccc -activeforeground #221133
pack .itkInteract.buttons.dismiss -side left -expand 1 -fill x
frame .itkInteract.file -bg #bbbbbb
label .itkInteract.file.label -text "Command:" -width 10 -anchor w \
-bg #bbbbbb -fg #221133
entry .itkInteract.file.entry -width 40 \
-bg #dddddd -fg #221133 -highlightthickness 1 -highlightcolor #221133
bind .itkInteract.file.entry <Return> {
itk::interact::doitk [%W get] .itkInteract; %W delete 0 end
}
pack .itkInteract.file.label -side left
pack .itkInteract.file.entry -side left -expand 1 -fill x
frame .itkInteract.display -bg #bbbbbb
text .itkInteract.display.text -yscrollcommand ".itkInteract.display.scroll set" \
-setgrid true -width 60 -height 8 -wrap word -bg #dddddd -fg #331144 \
-state disabled
scrollbar .itkInteract.display.scroll \
-command ".itkInteract.display.text yview" -bg #bbbbbb \
-troughcolor #bbbbbb -activebackground #cccccc -highlightthickness 0
pack .itkInteract.display.text -side left -expand 1 -fill both
pack .itkInteract.display.scroll -side left -expand 0 -fill y
pack .itkInteract.display -side bottom -expand 1 -fill both
pack .itkInteract.file -pady 3m -padx 2m -side bottom -fill x
set CommandIndex 0
bind .itkInteract <Down> {
global itk::interact::CommandIndex
global itk::interact::CommandList
if { $CommandIndex < [expr $Tagcount - 1] } {
incr CommandIndex
set command_string [lindex $CommandList $CommandIndex]
.itkInteract.file.entry delete 0 end
.itkInteract.file.entry insert end $command_string
} elseif { $CommandIndex == [expr $Tagcount - 1] } {
.itkInteract.file.entry delete 0 end
}
}
bind .itkInteract <Up> {
global itk::interact::CommandIndex
global itk::interact::CommandList
if { $CommandIndex > 0 } {
set CommandIndex [expr $CommandIndex - 1]
set command_string [lindex $CommandList $CommandIndex]
.itkInteract.file.entry delete 0 end
.itkInteract.file.entry insert end $command_string
}
}
wm withdraw .itkInteract
}
# Create the interactor.
createInteractor
}
|