|
Lines 147-156
Link Here
|
| 147 |
|
147 |
|
| 148 |
proc {settings} {} { |
148 |
proc {settings} {} { |
| 149 |
global Vars |
149 |
global Vars |
| 150 |
if {![file exist DESTDIR/lib/tkphone_settings.tcl]} { |
150 |
if {![file exist DESTDIR/libexec/tkphone/tkphone_settings.tcl]} { |
| 151 |
tk_messageBox -default ok -icon error -message "The file DESTDIR/lib/tkphone_settings.tcl was not found" -title "File not found" -type ok |
151 |
tk_messageBox -default ok -icon error -message "The file DESTDIR/libexec/tkphone/tkphone_settings.tcl was not found" -title "File not found" -type ok |
| 152 |
} else { |
152 |
} else { |
| 153 |
source DESTDIR/lib/tkphone_settings.tcl |
153 |
source DESTDIR/libexec/tkphone/tkphone_settings.tcl |
| 154 |
} |
154 |
} |
| 155 |
} |
155 |
} |
| 156 |
|
156 |
|
|
Lines 731-740
Link Here
|
| 731 |
} |
731 |
} |
| 732 |
|
732 |
|
| 733 |
proc using {} { |
733 |
proc using {} { |
| 734 |
if {![file exist DESTDIR/lib/tkphone_using.tcl]} { |
734 |
if {![file exist DESTDIR/libexec/tkphone/tkphone_using.tcl]} { |
| 735 |
tk_messageBox -default ok -icon error -message "The file DESTDIR/lib/tkphone_using.tcl was not found" -title "File not found" -type ok |
735 |
tk_messageBox -default ok -icon error -message "The file DESTDIR/libexec/tkphone/tkphone_using.tcl was not found" -title "File not found" -type ok |
| 736 |
} else { |
736 |
} else { |
| 737 |
source DESTDIR/lib/tkphone_using.tcl |
737 |
source DESTDIR/libexec/tkphone/tkphone_using.tcl |
| 738 |
} |
738 |
} |
| 739 |
} |
739 |
} |
| 740 |
|
740 |
|
