This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
patch: tkconq.tcl
- From: mniw at sol dot dti dot ne dot jp (mniw)
- To: xconq7 at sources dot redhat dot com
- Date: Wed, 6 Mar 2002 17:46:59 +0900 (JST)
- Subject: patch: tkconq.tcl
This patch fixes a problem with the notice window.
(If you click in the notice window, it is confused)
--- tcltk/tkconq.tcl.orig Wed Mar 6 16:42:01 2002
+++ tcltk/tkconq.tcl Wed Mar 6 16:41:44 2002
@@ -2822,8 +2822,10 @@
proc update_mouseover { mapn str } {
global map_widget
+ $map_widget($mapn).leftside.botside.mouseover configure -state normal
$map_widget($mapn).leftside.botside.mouseover delete 1.0 end
$map_widget($mapn).leftside.botside.mouseover insert insert "$str"
+ $map_widget($mapn).leftside.botside.mouseover configure -state disabled
}
# Scroll the main or world map by the given amount.
@@ -2961,7 +2963,9 @@
for { set i 1 } { $i <= $nummaps } { incr i } {
set notices $map_widget($i).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert notices.last $str notices
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
}
@@ -2978,7 +2982,9 @@
set dfltstr "ny"
}
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert prompt.first "$str \[$dfltstr\]" prompt
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
} else {
@@ -3041,7 +3047,9 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert prompt.first "$str" prompt
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
}
@@ -3078,7 +3086,9 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert prompt.first "$str" prompt
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
}
@@ -3094,8 +3104,10 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert prompt.first "$str" prompt
$notices insert "answer.first + 1 chars" "$dflt" answer
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
}
@@ -3106,9 +3118,11 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices delete "answer.first + 1 chars" "answer.last - 1 chars"
# FIXME: need some quoting in case the user types an open brace.
$notices insert "answer.first + 1 chars" $answer answer
+ $notices configure -state disabled
}
proc ask_string_done { mapn } {
@@ -3121,8 +3135,10 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices insert prompt.first "$str" prompt
$notices insert "answer.first + 1 chars" "$dflt" answer
+ $notices configure -state disabled
# (should only do if already scrolled to end of notices)
$notices yview moveto 1.0
}
@@ -3131,8 +3147,10 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices delete "answer.first + 1 chars" "answer.last - 1 chars"
$notices insert "answer.first + 1 chars" $answer answer
+ $notices configure -state disabled
}
proc ask_side_done { mapn } {
@@ -3143,8 +3161,10 @@
global map_widget
set notices $map_widget($mapn).leftside.topside.notices.t
+ $notices configure -state normal
$notices delete prompt.first "prompt.last - 1 chars"
$notices delete "answer.first + 1 chars" "answer.last - 1 chars"
+ $notices configure -state disabled
}
set new_find_name ""
@@ -3820,6 +3840,7 @@
proc update_help { key contents nclass arg } {
.help.top.title config -text "$key"
+ .help.bot.t.txt configure -state normal
.help.bot.t.txt delete heading.first heading.last
.help.bot.t.txt insert 1.1 "$key" heading
if { $nclass == "u" } {
@@ -3831,6 +3852,7 @@
}
.help.bot.t.txt delete body.first body.last
.help.bot.t.txt insert end "$contents" body
+ .help.bot.t.txt configure -state disabled
}
proc scrolled_listbox { f args } {
--
mniw <mniw@sol.dti.ne.jp> http://tadalunch.s5.xrea.com/xconq/index.html