[70666] branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl
and.damore at macports.org
and.damore at macports.org
Mon Aug 16 11:19:36 PDT 2010
Revision: 70666
http://trac.macports.org/changeset/70666
Author: and.damore at macports.org
Date: 2010-08-16 11:19:34 -0700 (Mon, 16 Aug 2010)
Log Message:
-----------
fixed ui_* messages
Modified Paths:
--------------
branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl
Modified: branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl
===================================================================
--- branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl 2010-08-16 18:10:19 UTC (rev 70665)
+++ branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl 2010-08-16 18:19:34 UTC (rev 70666)
@@ -839,12 +839,12 @@
}
proc _pick_config_upgrade_actions {requested active changed_files} {
+ global UI_PREFIX
variable config_upgrade_completed
set actions_list [list]
foreach file $changed_files {
- ui_msg "$UI_PREFIX [format [msgcat::mc " File %s changed"] $file]"
- #puts "\nFile $file changed";
+ ui_debug "File $file has changed"
set choice ""
while {[lsearch "keep new" $choice] < 0} {
if {$choice eq "current"} {
@@ -856,7 +856,7 @@
#set result [string range $a 0 [expr [string length $a]-33]]
#ui_msg "$result"
}
- ui_msg "$UI_PREFIX [format [msgcat::mc " \nPlease choose one of (keep) current, install (new), show diff original-(current), show diff current-(upgraded):"] ]"
+ ui_msg "$UI_PREFIX [format [msgcat::mc "Please choose one of (keep) current, install (new), show diff original-(current), show diff current-(upgraded):"] ]"
#puts "\nPlease choose one of (keep) current, install (new), show diff original-(current), show diff current-(upgraded):"
gets stdin choice
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100816/88d1d1f3/attachment.html>
More information about the macports-changes
mailing list