blob: c7a708ae5e7ef53a5ae85d270851983e32937f53 (
plain)
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
|
package provide dialog_find 0.1
package require pd_bindings
namespace eval ::dialog_find:: {
# store the state of the "Match whole word only" check box
variable wholeword_button 0
# if the search hasn't changed, then the Find button sends "findagain"
variable previous_wholeword_button 0
variable previous_findstring ""
namespace export menu_dialog_find
}
# TODO make find panel as small as possible, being topmost means its findable
# TODO (GNOME/Windows) find panel should retain focus after a find
# TODO (Mac OS X) hide panel after success, but stay if the find was unsuccessful
proc ::dialog_find::ok {mytoplevel} {
variable wholeword_button
variable previous_wholeword_button
variable previous_findstring
# find will be on top, so use the previous window that was on top
set search_window [lindex [wm stackorder .] end-1]
puts "search_window $search_window"
set findstring [.find.entry get]
if {$findstring eq ""} {return}
if {$search_window eq ".pdwindow"} {
set matches [.pdwindow.text search -all -nocase -- $findstring 0.0]
.pdwindow.text tag delete sel
foreach match $matches {
.pdwindow.text tag add sel $match "$match wordend"
}
.pdwindow.text see [lindex $matches 0]
} else {
if {$findstring eq $previous_findstring \
&& $wholeword_button == $previous_wholeword_button} {
pdsend "$search_window findagain"
} else {
# TODO switch back to this for 0.43:
#pdsend "$search_window find $findstring $wholeword_button"
pdsend "$search_window find $findstring"
set previous_findstring $findstring
set previous_wholeword_button $wholeword_button
}
}
}
proc ::dialog_find::cancel {mytoplevel} {
wm withdraw .find
}
proc ::dialog_find::set_canvas_to_search {mytoplevel} {
# TODO rewrite using global $::focused_window
if {[winfo exists .find.frame.targetlabel]} {
set focusedtoplevel [winfo toplevel [lindex [wm stackorder .] end]]
if {$focusedtoplevel eq ".find"} {
set focusedtoplevel [winfo toplevel [lindex [wm stackorder .] end-1]]
}
if {$focusedtoplevel eq ".pdwindow"} {
.find.frame.targetlabel configure -text [wm title .pdwindow]
} else {
foreach window $::menu_windowlist {
if {[lindex $window 1] eq $focusedtoplevel} {
.find.frame.targetlabel configure -text [lindex $window 0]
}
}
}
}
}
# the find panel is opened from the menu and key bindings
proc ::dialog_find::menu_find_dialog {mytoplevel} {
if {[winfo exists .find]} {
wm deiconify .find
raise .find
} else {
create_dialog $mytoplevel
}
}
proc ::dialog_find::create_dialog {mytoplevel} {
toplevel .find -class DialogWindow
wm title .find [_ "Find"]
wm geometry .find =475x125+150+150
.find configure
if {$::windowingsystem eq "aqua"} {$mytoplevel configure -menu .menubar}
::pd_bindings::dialog_bindings .find "find"
frame .find.frame
pack .find.frame -side top -fill x -pady 1
label .find.frame.searchin -text [_ "Search in"]
label .find.frame.targetlabel -font "TkTextFont 14"
label .find.frame.for -text [_ "for:"]
pack .find.frame.searchin .find.frame.targetlabel .find.frame.for -side left
entry .find.entry -width 54 -font 18 -relief sunken \
-highlightthickness 3 -highlightcolor blue
focus .find.entry
pack .find.entry -side top -padx 10
checkbutton .find.wholeword -variable ::dialog_find::wholeword_button \
-text [_ "Match whole word only"] -anchor w
pack .find.wholeword -side top -padx 30 -pady 3 -fill x
frame .find.buttonframe -background yellow
button .find.button -text [_ "Find"] -default active -width 9 \
-command "::dialog_find::ok $mytoplevel"
if {$::windowingsystem eq "x11"} {
button .find.close -text [_ "Close"] -default normal -width 9 \
-command "::dialog_find::cancel $mytoplevel"
pack .find.buttonframe .find.button .find.close -side right -padx 10 -pady 3
} else {
pack .find.buttonframe .find.button -side right -padx 10 -pady 3
}
::dialog_find::set_canvas_to_search $mytoplevel
}
|
