Changeset cfaad89 in tol for tolbase/lib/toltk/project.tcl

Timestamp:

Dec 5, 2016, 11:49:55 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

0614f30

Parents:

cc45a10

Message:

Refs #1938
Se generaliza la versión en los archivos de recursos .rc.
Se crean variables en tcl con las versiones de tolsh y tolbase.
Se simplifica el icono de tolbase en el caso GNU.
Se modifica el título de la aplicación para indicar versión y si es de 32-bits o de 64-bits.

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

File:

• tolbase/lib/toltk/project.tcl (modified) (2 diffs)

tolbase/lib/toltk/project.tcl

@@ -134 +134 @@
     array set tol_platform [lindex [toltcl::eval {PlatformInfo(?)} -named 1] 1]
     if {$tol_platform(CompilerID) eq "GNU"} {
-      set prjtitle "TOLBase (GNU)"
+      if {$tol_platform(PointerSize) eq "4"} {
+        set prjtitle "TOLBase $::tolbase_version (32-bits)"
+      } elseif {$tol_platform(PointerSize) eq "8"} {
+        set prjtitle "TOLBase $::tolbase_version (64-bits)"      
+      } else {
+        set prjtitle "TOLBase (GNU)"      
+      }
     } elseif {$tol_platform(CompilerID) eq "MSVC"} {
       set prjtitle "TOLBase (MSVC)"
@@ -223 +229 @@
     # tol platform selection
     array set tol_platform [lindex [toltcl::eval {PlatformInfo(?)} -named 1] 1]
-    if {$tol_platform(CompilerID) eq "GNU"} {
-      wm iconbitmap . -default [file join $toltk_images_path tolbase-gnu.ico]
-    } elseif {$tol_platform(CompilerID) eq "MSVC"} {
+    if {$tol_platform(CompilerID) eq "MSVC"} {
       wm iconbitmap . -default [file join $toltk_images_path tolbase-msvc.ico]
     } else {