Merge pull request #838 from KratosMultiphysics/add-files-handler

Add new file handler

Author: jginternational

kratos.gid/apps/Dam/app.json

@@ -26,7 +26,8 @@
         "open_tree": true,
         "show_toolbar": true,
         "intervals": true,
-        "wizard": false
+        "wizard": false,
+        "import_files":true
     },
     "unique_names": {
         "parts": "DamParts",

kratos.gid/apps/PfemThermic/app.json

@@ -30,7 +30,8 @@
         "open_tree": true,
         "show_toolbar": true,
         "intervals": true,
-        "wizard": false
+        "wizard": false,
+        "import_files":true
     },
     "unique_names": {
         "nodal_conditions": "PFEMFLUID_NodalConditions",

kratos.gid/apps/Structural/app.json

@@ -29,7 +29,8 @@
         "open_tree": true,
         "show_toolbar": true,
         "intervals": true,
-        "wizard": false
+        "wizard": false,
+        "import_files":true
     },
     "unique_names": {
         "parts": "STParts",

kratos.gid/images/files.png

@@ -181,6 +181,9 @@ proc Kratos::LoadCommonScripts { } {
     if { [lsearch -exact $::auto_path [file join $kratos_private(Path) scripts]] == -1 } {
         lappend ::auto_path [file join $kratos_private(Path) scripts]
     }
+    if { [lsearch -exact $::auto_path [file join $kratos_private(Path) libs]] == -1 } {
+        lappend ::auto_path [file join $kratos_private(Path) libs]
+    }
 
     # Writing common scripts
     foreach filename {Writing.tcl WriteHeadings.tcl WriteMaterials.tcl WriteNodes.tcl
@@ -193,15 +196,15 @@ proc Kratos::LoadCommonScripts { } {
         uplevel #0 [list source [file join $kratos_private(Path) scripts $filename]]
     }
     # Common controllers
-    foreach filename {ApplicationMarketWindow.tcl ExamplesWindow.tcl CommonProcs.tcl PreferencesWindow.tcl TreeInjections.tcl MdpaImportMesh.tcl Drawer.tcl} {
+    foreach filename {ApplicationMarketWindow.tcl ExamplesWindow.tcl CommonProcs.tcl PreferencesWindow.tcl TreeInjections.tcl MdpaImportMesh.tcl Drawer.tcl ImportFiles.tcl} {
         uplevel #0 [list source [file join $kratos_private(Path) scripts Controllers $filename]]
     }
     # Model class
     foreach filename {Model.tcl Entity.tcl Parameter.tcl Topology.tcl Solver.tcl ConstitutiveLaw.tcl Condition.tcl Element.tcl Material.tcl SolutionStrategy.tcl Process.tcl} {
         uplevel #0 [list source [file join $kratos_private(Path) scripts Model $filename]]
     }
     # Libs
-    foreach filename {SimpleXMLViewer.tcl FileManager.tcl } {
+    foreach filename {SimpleXMLViewer.tcl} {
         uplevel #0 [list source [file join $kratos_private(Path) libs $filename]]
     }
 }
@@ -343,6 +346,13 @@ proc Kratos::LoadWizardFiles { } {
     package require gid_smart_wizard
     Kratos::UpdateMenus
 }
+proc Kratos::LoadImportFiles { } {
+    variable kratos_private
+    # Load the wizard package
+    set kratos_private(UseFiles) 1
+    package require gid_pt_file_manager
+    Kratos::UpdateMenus
+}
 
 proc Kratos::TransformProblemtype {old_dom old_filespd} {
     # Check if current problemtype allows transforms

kratos.gid/kratos.tcl

@@ -317,7 +317,7 @@
 		</proc>
 		<proc n='GetFilesValues' args='args'>
 			<![CDATA[
-				return [spdAux::ProcGetFilesValues]
+				return [spdAux::ProcGetFilesValues $domNode]
 			]]>
 		</proc>
 

kratos.gid/kratos_default.spd

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2021 GiD
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

kratos.gid/libs/FileManager.tcl

@@ -0,0 +1 @@
+# gid-pt-file-manager