Index: tolbase/lib/toltk/project.tcl
===================================================================
--- tolbase/lib/toltk/project.tcl	(revision 3634546802541a118227445a60f75bc192005986)
+++ tolbase/lib/toltk/project.tcl	(revision e87e769a48e7ef87c79436fd699fd53e3e5903b2)
@@ -110,5 +110,4 @@
 #/////////////////////////////////////////////////////////////////////////////
   global tcl_platform
-  global toltk_images_path
   variable data
   variable widgets
@@ -128,12 +127,16 @@
   
   # Gives a name for the application
-  # tol platform selection
-  array set tol_platform [lindex [toltcl::eval {PlatformInfo(?)} -named 1] 1]
-  if {$tol_platform(CompilerID) eq "GNU"} {
-    set prjtitle "TOLBase (GNU)"
-  } elseif {$tol_platform(CompilerID) eq "MSVC"} {
-    set prjtitle "TOLBase (MSVC)"
+  if { [string equal $tcl_platform(platform) "unix"] } {
+    set prjtitle "TOLBase"  
   } else {
-    set prjtitle "TOLBase"
+    # tol platform selection
+    array set tol_platform [lindex [toltcl::eval {PlatformInfo(?)} -named 1] 1]
+    if {$tol_platform(CompilerID) eq "GNU"} {
+      set prjtitle "TOLBase (GNU)"
+    } elseif {$tol_platform(CompilerID) eq "MSVC"} {
+      set prjtitle "TOLBase (MSVC)"
+    } else {
+      set prjtitle "TOLBase"
+    }
   }
   
@@ -143,31 +146,15 @@
   wm title . $prjtitle
 
-  #if { [TolConReq] }
-    #Creamos frame de trabajo
-    set widgets(mainmenu) [::project::CreateMdiMenu .main.mdi]
-	set widgets(mainframe) [frame .main]
-	set widgets(mainmdi) [mdi .main.mdi -mdimenu $widgets(mainmenu) \
-	                       -relief sunken -bd 1]
-    pack $widgets(mainmenu) -fill x -side top
-	pack $widgets(mainframe) -fill both -expand yes -side bottom
-    pack $widgets(mainmdi) -fill both -expand yes -side bottom
-	bind . <Control-Tab> "[list $widgets(mainmdi) cicle]; break"
-
-    #(pgea) se adelanta para no ver el icono de TK intermedio
-    if { [string equal $tcl_platform(platform) "unix"] } {
-      wm iconbitmap . "@[file join $toltk_images_path tolbase-gnu-64.xbm]"
-    } else {
-      # tol platform selection
-      if {$tol_platform(CompilerID) eq "GNU"} {
-        wm iconbitmap . -default [file join $toltk_images_path tolbase-gnu.ico]
-      } elseif {$tol_platform(CompilerID) eq "MSVC"} {
-        wm iconbitmap . -default [file join $toltk_images_path tolbase-msvc.ico]
-      } else {
-        wm iconbitmap . -default [file join $toltk_images_path tolbase.ico]
-      }
-    }
-
-	::TolConsole::MainFrame $widgets(mainmdi) [TolConReq]
-  #
+  #Creamos frame de trabajo
+  set widgets(mainmenu) [::project::CreateMdiMenu .main.mdi]
+  set widgets(mainframe) [frame .main]
+  set widgets(mainmdi) [mdi .main.mdi -mdimenu $widgets(mainmenu) \
+                         -relief sunken -bd 1]
+  pack $widgets(mainmenu) -fill x -side top
+  pack $widgets(mainframe) -fill both -expand yes -side bottom
+  pack $widgets(mainmdi) -fill both -expand yes -side bottom
+  bind . <Control-Tab> "[list $widgets(mainmdi) cicle]; break"
+
+  ::TolConsole::MainFrame $widgets(mainmdi) [TolConReq]
   
   if { [TolConReq] } {
@@ -218,6 +205,8 @@
 #
 #/////////////////////////////////////////////////////////////////////////////
-  variable data
-
+  global tcl_platform
+  global toltk_images_path
+  variable data
+  
   bind . <Map> "::project::mapMain %W"
   bind . <Unmap> "::project::unmapMain %W"
@@ -226,4 +215,20 @@
   bind . <Destroy> "::project::OnDestroy %W"
   set defgeom "[winfo vrootw .]x[winfo vrooth .]+0+0"
+  
+  #(pgea) se adelanta para no ver el icono de TK intermedio
+  if { [string equal $tcl_platform(platform) "unix"] } {
+    wm iconphoto . [image create photo .icon256 -format png -file [file join $toltk_images_path tolbase-256.png] ]
+  } else {
+    # 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"} {
+      wm iconbitmap . -default [file join $toltk_images_path tolbase-msvc.ico]
+    } else {
+      wm iconbitmap . -default [file join $toltk_images_path tolbase.ico]
+    }
+  }
+    
   wm state . normal
   wm geometry . [set geom [::iniFile::Read Project topgeom $defgeom]]