Changeset 1e43dec in tol for tolbase/lib/toltk/tolbase.tcl

Timestamp:

May 25, 2015, 8:00:31 AM (11 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

ee9644c

Parents:

53456bc

Message:

Refs #1827
Se incorporan nuevos iconos para TOLBase 3.2. Se hace diferencia entre el TOL compilado con GNU-GCC (MinGW en Windows) y el TOL con MSVC.
Se introducen cambios en TOLBase para adoptar estas nuevas imágenes.

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

File:

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

tolbase/lib/toltk/tolbase.tcl

@@ -1319 +1319 @@
   global GuiVersionInfo
 
-  set imgfile [file join $toltk_library toltk images splash.gif]
+  # tol platform selection
+  array set tol_platform [lindex [toltcl::eval {PlatformInfo(?)} -named 1] 1]
+  if {$tol_platform(CompilerID) eq "GNU"} {
+    set imgfile [file join $toltk_library toltk images splash-gnu.gif]
+  } elseif {$tol_platform(CompilerID) eq "MSVC"} {
+    set imgfile [file join $toltk_library toltk images splash-msvc.gif]
+  } else {
+    set imgfile [file join $toltk_library toltk images splash.gif]
+  }
   set img [image create photo -file $imgfile]
   toplevel $w