Changeset 5bf4c62 in tol

Timestamp:

Jan 24, 2012, 11:57:17 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

5e111e9

Parents:

49e814a

Message:

fixes #1405, refs #1396, algunas fuentes tiene nombre compuesto por mas de una palabra por eso hay que protegerlo dentro de una lista.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4037 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolbase.tcl (modified) (1 diff)

tolbase/lib/toltk/tolbase.tcl

@@ -245 +245 @@
     array set normalProps [ CGetFont [ $widgets(output) cget -font ] ]
   }
-  prefs set bodytext "$normalProps(-family) $normalProps(-size)"
-  prefs set monotext "Courier $normalProps(-size)"
+  prefs set bodytext [ list $normalProps(-family) $normalProps(-size) ]
+  prefs set monotext [ list Courier $normalProps(-size) ]
   foreach {f ds p} {header1 4 bold header2 2 bold header3 0 bold title 8 {} small -4 {}} {
-    prefs set ${f}text  "Helvetica [ expr {$normalProps(-size) + $ds} ] $p"
+      prefs set ${f}text  [ list Helvetica [ expr {$normalProps(-size) + $ds} ] $p ]
   }
   prefs NotifyObservers