Changeset 79686

Timestamp:

06/23/11 09:27:34 (4 years ago)

Author:

jmr@…

Message:

display negative default variants correctly

Location:

trunk/base/src

Files:

• port/port.tcl (modified) (2 diffs)
• port1.0/portutil.tcl (modified) (1 diff)

trunk/base/src/port/port.tcl

@@ -2091 +2091 @@
                             array set variant $vinfo($v)
                             if {[info exists variant(is_default)]} {
-                                set varmodifier "\[+]"
+                                set varmodifier "\[$variant(is_default)]"
                             }
                         }
@@ -3320 +3320 @@
                         set varmodifier "($global_variations($v))"
                     } elseif {[info exists variant(is_default)]} {
-                        set varmodifier "\[+]"
+                        set varmodifier "\[$variant(is_default)\]"
                     } else {
                         set varmodifier "   "

trunk/base/src/port1.0/portutil.tcl

@@ -2030 +2030 @@
                     if {![info exists variations($variant)]} {
                         # Set is_default and update vinfo.
-                        array set info [list is_default val]
-                        array set vinfo [list $variant [array get info]]
+                        array set vinfo [list $variant [list is_default $val]]
 
                         set variations($variant) $val