Install python in windows

Author: jginternational

kratos.gid/exec/install_python.win.bat

@@ -0,0 +1,14 @@
+@echo off
+
+@REM
+cd %1
+
+rem --Download python installer
+rem Curl is included in windows since 2018
+curl -ss "https://www.python.org/ftp/python/3.9.9/python-3.9.9-amd64.exe" -o python-installer.exe
+
+rem --Install python
+python-installer.exe /quiet InstallAllUsers=1 PrependPath=1
+del python-installer.exe
+
+pause

kratos.gid/scripts/Launch.tcl

@@ -5,14 +5,16 @@ proc Kratos::InstallAllPythonDependencies { } {
 
     # Check if python is installed
     if {[pythonVersion] <= 0} {
-        if {os eq "win"} {
-            VisitWeb "https://www.microsoft.com/es-es/p/python-39/9p7qfqmjrfp7"
+        if {$os eq "win"} {
+            package require gid_cross_platform
+            gid_cross_platform::run_as_administrator [file join $::Kratos::kratos_private(Path) exec install_python.win.bat ] [lindex [Kratos::GetLaunchConfigurationFile] 0]
         } {
             exec "sudo apt-get install python3.9"
         }
     }
 
     # Check if pip is installed
+    # W [exec python -m pip --version]
 
     # Install pip packages
 }
@@ -30,7 +32,19 @@ proc Kratos::pythonVersion {{pythonExecutable "python"}} {
 
 
 proc Kratos::CheckDependencies { } {
-    if {[pythonVersion] <= 0} {error "Python not installed on this system. Please install python 3 manually or click on menu Kratos > Install dependencies"}
+    if {[pythonVersion] <= 0} {
+        set msgBox_type yesno
+        #  -do_not_ask_again 1 -do_not_ask_again_key "kratos_install_python"
+        set reply [tk_messageBox -icon warning -type $msgBox_type -parent .gid \
+                -message "Python 3 not installed on this system. Do you want Kratos to install it?" \
+                -title [_ "Missing python"]]
+        if {[string equal $reply "yes"]} {
+            Kratos::InstallAllPythonDependencies
+        }
+        if {[string equal $reply "cancel"]} {
+
+        }
+    }
 
 }
 

kratos.gid/scripts/Menus.tcl

@@ -43,11 +43,11 @@ proc Kratos::CreatePreprocessModelTBar { {type "DEFAULT INSIDELEFT"} } {
     Kratos::ToolbarAddItem "Stop" "stop.png" {Utilities CancelProcess} [= "Cancel process"]
     Kratos::ToolbarAddItem "SpacerApp1" "" "" ""
     if {[info exists kratos_private(UseFiles)] && $kratos_private(UseFiles) == 1} {
-        Kratos::ToolbarAddItem "Files" "files.png" [list -np- spdAux::LaunchFileWindow] [= "File handler window"]   
+        Kratos::ToolbarAddItem "Files" "files.png" [list -np- spdAux::LaunchFileWindow] [= "File handler window"]
     }
-    Kratos::ToolbarAddItem "Examples" "losta.png" [list -np- ::Examples::StartWindow [apps::getActiveAppId]] [= "Examples window"]   
+    Kratos::ToolbarAddItem "Examples" "losta.png" [list -np- ::Examples::StartWindow [apps::getActiveAppId]] [= "Examples window"]
     Kratos::ToolbarAddItem "SpacerApp2" "" "" ""
-    
+
     set app_items_toolbar [apps::ExecuteOnCurrentApp CustomToolbarItems]
     if {$app_items_toolbar < 1} {
         Kratos::ToolbarDeleteItem "SpacerApp"
@@ -83,25 +83,25 @@ proc Kratos::CreatePreprocessModelTBar { {type "DEFAULT INSIDELEFT"} } {
             lappend commslist  [dict get $kratos_private(MenuItems) $item code]
             lappend helpslist [dict get $kratos_private(MenuItems) $item tex]
         }
-        
+
         set KBitmapsNames(0) $iconslist
         set KBitmapsCommands(0) $commslist
         set KBitmapsHelp(0) $helpslist
-        
+
         set prefix Pre
         set name KPreprocessModelbar
         set procname ::Kratos::CreatePreprocessModelTBar
         set kratos_private(ToolBars,PreprocessModelTBar) [CreateOtherBitmaps ${name} [= "Kratos toolbar"] KBitmapsNames KBitmapsCommands KBitmapsHelp $dir $procname $type $prefix]
-        
+
         AddNewToolbar [= "Kratos toolbar"] ${prefix}${name}WindowGeom $procname
     }
 }
 
 proc Kratos::EndCreatePreprocessTBar {} {
     variable kratos_private
-   
+
     set name KPreprocessModelbar
-    
+
     ReleaseToolbar ${name}
     if {[info exists kratos_private(ToolBars,PreprocessModelTBar)]} {
         destroy $kratos_private(ToolBars,PreprocessModelTBar)
@@ -151,6 +151,7 @@ proc Kratos::ChangeMenus { } {
     if {[GidUtils::VersionCmp "14.1.4d"] <0 } { set cmd  [list ChangeVariables kratos_preferences] } {set cmd [list PreferencesWindow kratos_preferences]}
     GiDMenu::InsertOption "Kratos" [list "Kratos preferences" ] [incr pos] PRE $cmd "" "" replace =
     GiDMenu::InsertOption "Kratos" [list "View current log" ] [incr pos] PREPOST [list Kratos::ViewLog] "" "" replace =
+    GiDMenu::InsertOption "Kratos" [list "Install python and dependencies" ] [incr pos] PREPOST [list Kratos::InstallAllPythonDependencies] "" "" replace =
     GiDMenu::InsertOption "Kratos" [list "About Kratos" ] [incr pos] PREPOST [list Kratos::About] "" "" replace =
     GidChangeDataLabel "Data units" ""
     GidChangeDataLabel "Interval" ""
@@ -165,14 +166,14 @@ proc Kratos::ChangeMenus { } {
         GiDMenu::InsertOption "Help" [list [_ "Visit %s web" Kratos]] end PREPOST [list VisitWeb "http://www.cimne.com/kratos"] "" "" insertafter
         GiDMenu::InsertOption "Help" [list [_ "Do you want to develop Kratos?"]] end PREPOST [list VisitWeb "https://github.com/KratosMultiphysics"] "" "" insertafter
     }
-    
+
     GiDMenu::UpdateMenus
 }
 
 proc Kratos::About {} {
     Splash
 }
- 
+
 
 proc Kratos::Splash { } {
     variable kratos_private
@@ -190,6 +191,6 @@ proc Kratos::Splash { } {
 
     .splash.lv configure -font $fnt -background white -foreground black -relief solid -borderwidth 1 -padx 12 -pady 3
     update
-    
+
     GiD_Set SplashWindow $prev_splash_state
 }