Index: tolbase/lib/toltk/images/tolbase-gnu-64.xbm
===================================================================
--- tolbase/lib/toltk/images/tolbase-gnu-64.xbm	(revision ee9644c12fdaf17f555a3f96c7f5ef99aabd6f7c)
+++ tolbase/lib/toltk/images/tolbase-gnu-64.xbm	(revision ee9644c12fdaf17f555a3f96c7f5ef99aabd6f7c)
@@ -0,0 +1,46 @@
+#define tolbase_gnu_64_width 64
+#define tolbase_gnu_64_height 64
+static unsigned char tolbase_gnu_64_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x80, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff,
+   0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x07, 0x00, 0x00,
+   0x00, 0x00, 0xfe, 0xff, 0xff, 0x05, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f,
+   0x01, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x05, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xe0, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0xa8, 0x7f, 0x00, 0x00, 0x00,
+   0x00, 0x18, 0xf4, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff,
+   0x3f, 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00,
+   0x00, 0xfe, 0xff, 0xff, 0x01, 0x00, 0x1c, 0x00, 0x00, 0xff, 0xff, 0x7f,
+   0x00, 0x00, 0x1e, 0x00, 0x00, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x1f, 0x00,
+   0x00, 0xff, 0xff, 0x07, 0x00, 0x80, 0x3f, 0x00, 0x80, 0xff, 0xff, 0x01,
+   0x08, 0xc0, 0x3f, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x0f, 0xf0, 0x3f, 0x00,
+   0x80, 0xff, 0x1f, 0xc0, 0x07, 0xf0, 0x7f, 0x00, 0xc0, 0xff, 0x07, 0xf0,
+   0x01, 0xfc, 0x7f, 0x00, 0xc0, 0xff, 0x01, 0xfe, 0x01, 0xfe, 0x7f, 0x00,
+   0xc0, 0xff, 0x80, 0x7f, 0x00, 0xff, 0x7f, 0x00, 0xc0, 0x3f, 0xe0, 0x7f,
+   0xc0, 0xff, 0x7f, 0x00, 0xc0, 0x1f, 0xf8, 0x3f, 0xe0, 0xff, 0x7f, 0x00,
+   0xc0, 0x0f, 0xfe, 0x0f, 0xf0, 0xff, 0x7f, 0x00, 0xc0, 0x83, 0xff, 0x0f,
+   0xf8, 0xff, 0x7f, 0x00, 0xc0, 0xf7, 0xff, 0x07, 0xfc, 0xff, 0x7f, 0x00,
+   0xc0, 0xff, 0xff, 0x03, 0xfe, 0xff, 0x7f, 0x00, 0x80, 0xff, 0xff, 0x01,
+   0xff, 0xff, 0x7f, 0x00, 0x80, 0xff, 0xff, 0x80, 0xff, 0xff, 0x3f, 0x00,
+   0x80, 0xff, 0x7f, 0xc0, 0xff, 0xff, 0x3f, 0x00, 0x80, 0xff, 0x3f, 0xe0,
+   0xff, 0xff, 0x3f, 0x00, 0x00, 0xff, 0x1f, 0xf8, 0xff, 0xff, 0x1f, 0x00,
+   0x00, 0xff, 0x1f, 0xf8, 0xff, 0xff, 0x1f, 0x00, 0x00, 0xfe, 0x0f, 0xfe,
+   0xff, 0xff, 0x0f, 0x00, 0x00, 0xfe, 0x07, 0xff, 0xff, 0xff, 0x0f, 0x00,
+   0x00, 0xfc, 0x03, 0xff, 0xbf, 0xff, 0xa7, 0x00, 0x00, 0xfc, 0xc1, 0xff,
+   0x53, 0xfe, 0x57, 0x01, 0x00, 0xf8, 0xc0, 0xff, 0xed, 0xfe, 0x13, 0x03,
+   0x00, 0xf0, 0xe0, 0x7f, 0xfa, 0xff, 0x01, 0x04, 0x00, 0x20, 0xf8, 0xff,
+   0xfa, 0xeb, 0x05, 0x0c, 0x00, 0x00, 0xf8, 0x3f, 0xff, 0x5c, 0x0e, 0x14,
+   0x00, 0x00, 0xfc, 0x3f, 0x7d, 0xfb, 0x1d, 0x08, 0x00, 0x00, 0xfe, 0x7f,
+   0x7d, 0xbf, 0x3f, 0x14, 0x00, 0x00, 0xfc, 0x7f, 0xdb, 0x57, 0x7d, 0x0c,
+   0x00, 0x00, 0xf0, 0xbf, 0xd6, 0x0b, 0xf4, 0x12, 0x00, 0x00, 0xc0, 0x7f,
+   0xbd, 0x01, 0xc0, 0x07, 0x00, 0x00, 0x00, 0xfe, 0x34, 0x01, 0x40, 0x0b,
+   0x00, 0x00, 0x00, 0x00, 0x54, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 };
Index: tolbase/lib/toltk/project.tcl
===================================================================
--- tolbase/lib/toltk/project.tcl	(revision bc8a9f972724ea27e2797e9debd1257c5567dbcb)
+++ tolbase/lib/toltk/project.tcl	(revision ee9644c12fdaf17f555a3f96c7f5ef99aabd6f7c)
@@ -128,5 +128,14 @@
   
   # Gives a name for the application
-  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"
+  }
+  
   if { [info exists projects(Project,title)] && $projects(Project,title) ne "" } {
     set prjtitle $projects(Project,title)
@@ -144,4 +153,19 @@
     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]
   #
@@ -156,9 +180,4 @@
   $widgets(mainmenu) draw
 
-  if { [string equal $tcl_platform(platform) "unix"] } {
-    wm iconbitmap . "@[file join $toltk_images_path bayes.xbm]"
-  } else {
-    wm iconbitmap . -default [file join $toltk_images_path bayes.ico]
-  }
   if { [TolConReq] } {
     ::TolInspector::Busy
Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision bc8a9f972724ea27e2797e9debd1257c5567dbcb)
+++ tolbase/lib/toltk/tolbase.tcl	(revision ee9644c12fdaf17f555a3f96c7f5ef99aabd6f7c)
@@ -1319,5 +1319,13 @@
   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