1941-docker-image-to-testdevel
|
Last change
on this file since 0614f30 was
cfaad89,
checked in by Pedro Gea <pgea@…>, 10 years ago
|
|
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
|
-
Property mode set to
100644
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | # Tcl package index file, version 1.1 |
|---|
| 2 | |
|---|
| 3 | proc LoadToltcl { version dir } { |
|---|
| 4 | global tcl_platform |
|---|
| 5 | |
|---|
| 6 | set _version [ string map [ list "." "" ] $version ] |
|---|
| 7 | if {[info exist ::env(USE_TOLTCL_$_version)]} { |
|---|
| 8 | puts "requested to load Toltcl from $::env(USE_TOLTCL_$_version)" |
|---|
| 9 | load $::env(USE_TOLTCL_$_version) |
|---|
| 10 | } else { |
|---|
| 11 | set suffix [info sharedlibextension] |
|---|
| 12 | if {$tcl_platform(platform) eq "unix"} { |
|---|
| 13 | set name libtoltcl${version}[info sharedlibextension] |
|---|
| 14 | } else { |
|---|
| 15 | set name toltcl.dll |
|---|
| 16 | } |
|---|
| 17 | load [file join $dir {@TOLTCL_LIB_NAME@}] Toltcl |
|---|
| 18 | } |
|---|
| 19 | } |
|---|
| 20 | |
|---|
| 21 | package ifneeded Toltcl @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ \ |
|---|
| 22 | [ string map [list %d $dir] { |
|---|
| 23 | LoadToltcl @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ {%d} |
|---|
| 24 | source [ file join {%d} toltcl.tcl ] |
|---|
| 25 | } ] |
|---|
| 26 | |
|---|
| 27 | package ifneeded TolshApp @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ \ |
|---|
| 28 | [ string map [list %d $dir] { |
|---|
| 29 | source [ file join {%d} tolsh.tcl ] |
|---|
| 30 | set tolsh_version @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ |
|---|
| 31 | package provide TolshApp @TOLTCL_VERSION_MAJOR@.@TOLTCL_VERSION_MINOR@ |
|---|
| 32 | } ] |
|---|
Note: See
TracBrowser
for help on using the repository browser.
