Changeset 3175 for branches/nanovis2/gui/scripts/main.tcl

Timestamp:

Sep 20, 2012, 12:46:32 PM (12 years ago)

Author:

ldelgass

Message:

sync with trunk

Location:

branches/nanovis2

Files:

• . (modified) (1 prop)
• gui/scripts/main.tcl (modified) (2 diffs)

branches/nanovis2/gui/scripts/main.tcl

@@ -55 +55 @@
 option add *Balloon*Radiobutton.font -*-helvetica-medium-r-normal-*-12-*
 option add *Balloon*Checkbutton.font -*-helvetica-medium-r-normal-*-12-*
-option add *ResultSet.controlbarBackground #6666cc
-option add *ResultSet.controlbarForeground white
-option add *ResultSet.activeControlBackground #ccccff
-option add *ResultSet.activeControlForeground black
+option add *ResultSelector.controlbarBackground #6666cc
+option add *ResultSelector.controlbarForeground white
+option add *ResultSelector.activeControlBackground #ccccff
+option add *ResultSelector.activeControlForeground black
 option add *Radiodial.length 3i
 option add *BugReport*banner*foreground white
@@ -146 +146 @@
 set xmlobj [Rappture::library $params(-tool)]
 
-set installdir [file dirname $params(-tool)]
-if {"." == $installdir} {
-    set installdir [pwd]
-}
+set installdir [file normalize [file dirname $params(-tool)]]
+$xmlobj put tool.version.application.directory(tool) $installdir
 
 set tool [Rappture::Tool ::#auto $xmlobj $installdir]