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
|
# Copyright (C) 2003-2007 Tresys Technology, LLC
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
namespace eval Apol_PolicyConf {
variable textbox
}
proc Apol_PolicyConf::create {tab_name nb} {
variable textbox
set frame [$nb insert end $tab_name -text "Policy Source"]
set sw [ScrolledWindow $frame.sw -auto none]
set textbox [text [$sw getframe].text -bg white -wrap none]
$sw setwidget $textbox
bind $textbox <Button-3> [list Apol_Widget::_searchresults_popup %W %x %y]
pack $sw -expand yes -fill both
bind $textbox <<Insertion>> Apol_PolicyConf::insertionMarkChanged
rename $textbox ::Apol_PolicyConf::_real_text
# Override the textbox's command to do two things:
#
# Deny normal insert and delete commands - but still show the
# insertion cursor. (Setting the state to disabled hides
# insertion cursor.) Use the 'fakeinsert' and 'fakedelete'
# commands to make changes.
#
# Unfortunately the Tk 8.4 text widget does not generate a virtual
# event whenever the insertion mark moves. Thus to simulate the
# behavior, override the mark command to generate the event
# <<Insertion>> after the mark changes.
proc ::$textbox {cmd args} {
switch -- $cmd {
insert -
delete { return }
fakeinsert { set cmd insert }
fakedelete { set cmd delete }
}
set retval [uplevel 1 ::Apol_PolicyConf::_real_text $cmd $args]
if {$cmd == "mark" && [string equal -length 10 $args "set insert"]} {
event generate $Apol_PolicyConf::textbox <<Insertion>>
}
return $retval
}
}
proc Apol_PolicyConf::open {ppath} {
variable textbox
$textbox fakedelete 0.0 end
if {![ApolTop::is_capable "source"]} {
$textbox fakeinsert end "The currently loaded policy is not a source policy."
} else {
set primary_file [$ppath get_primary]
if {[catch {::open $primary_file r} f]} {
$textbox fakeinsert end "$primary_file does not exist or could not be read by the user."
} else {
$textbox fakeinsert end [read $f]
::close $f
}
}
$textbox see 0.0
$textbox mark set insert 1.0
}
proc Apol_PolicyConf::close {} {
variable textbox
$textbox fakedelete 0.0 end
}
proc Apol_PolicyConf::getTextWidget {} {
variable textbox
return $textbox
}
proc Apol_PolicyConf::insertionMarkChanged {} {
set lpos [$Apol_PolicyConf::textbox index insert]
foreach {line col} [split $lpos .] {break}
ApolTop::setPolicySourceLinenumber $line
}
proc Apol_PolicyConf::gotoLine {line} {
variable textbox
$textbox tag remove sel 0.0 end
$textbox mark set insert $line.0
$textbox see $line.0
$textbox tag add sel $line.0 $line.end
focus $textbox
}
|