Create a controller for the files handler package

Author: jginternational

kratos.gid/kratos.tcl

@@ -196,7 +196,7 @@ 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

kratos.gid/scripts/Controllers/CommonProcs.tcl

@@ -555,13 +555,6 @@ proc spdAux::ProcShowInMode { domNode args } {
     }
 }
 
-proc spdAux::ProcGetFilesValues { } {
-    lappend listilla "- No file"
-    lappend listilla {*}[FileSelector::GetAllFiles]
-    lappend listilla "- Add new file"
-    return [join $listilla ","]
-}
-
 proc spdAux::ProcGetIntervals {domNode args} {
     set lista [::spdAux::getIntervals]
     if {$lista eq ""} {$domNode setAttribute state "hidden"; spdAux::RequestRefresh}

kratos.gid/scripts/Controllers/ImportFiles.tcl

@@ -0,0 +1,68 @@
+
+# Handle file input
+proc ::spdAux::LaunchFileWindow { } {
+    if {[GiD_Info Project Modelname] eq "UNNAMED"} {
+        MessageBoxOk [_ "Model error"] [_ "Save your model first"] error
+        return
+    }
+    set FileSelector::callback_after_new_file "::spdAux::SaveModelFile"
+    set FileSelector::callback_view_file "::spdAux::ViewFile"
+    set FileSelector::callback_delete_file "::spdAux::DeleteFile"
+    FileSelector::InitFileHandler
+}
+
+proc ::spdAux::ViewFile {file_id} {
+    exec {*}[auto_execok start] "" [file join [file nativename [GiD_Info Project ModelName].gid] $file_id]
+}
+
+proc ::spdAux::LoadModelFiles { {root "" }} {
+    if {$root eq ""} {
+        set root [customlib::GetBaseRoot]
+        customlib::UpdateDocument
+    }
+    set files [$root getElementsByTagName "file"]
+    if {[llength $files] > 0} {
+        Kratos::LoadImportFiles
+        foreach elem $files {
+            FileSelector::AddFile [$elem @n]
+        }
+    }
+}
+
+proc ::spdAux::SaveModelFile { fileid } {
+    customlib::UpdateDocument
+    FileSelector::AddFile $fileid
+    gid_groups_conds::addF {container[@n='files']} file [list n ${fileid}]
+    customlib::UpdateDocument
+    FileSelector::CopyFilesIntoModel [file nativename [GiD_Info Project ModelName] ].gid
+}
+
+proc ::spdAux::ProcGetFilesValues { domNode } {
+    customlib::UpdateDocument
+    spdAux::LoadModelFiles
+    lappend listilla "- No file - (add files using File handler toolbar)"
+    lappend listilla {*}[FileSelector::GetAllFiles]
+    if {[get_domnode_attribute $domNode v] ni $listilla} {$domNode setAttribute v [lindex $listilla 0]}
+    return [join $listilla ","]
+}
+
+proc ::spdAux::DeleteFile { fileid } {
+    customlib::UpdateDocument
+
+    set used_nodes [[customlib::GetBaseRoot] selectNodes "//value\[@type = 'file' and @v = '$fileid'\]"]
+    foreach used_node $used_nodes {
+        W "Warning: Deleted file $fileid was used in [[$used_node parent] @pn] > [$used_node @pn]"
+    }
+
+    set file_node [[customlib::GetBaseRoot] selectNodes "//file\[@n = '$fileid'\]"]
+    if {$file_node ne ""} {$file_node delete}
+    RequestRefresh
+}
+
+proc spdAux::UpdateFileField { fileid domNode} {
+    if {$fileid ne ""} {
+        $domNode setAttribute v $fileid
+        spdAux::SaveModelFile $fileid
+        RequestRefresh 
+    }
+}

kratos.gid/scripts/spdAuxiliar.tcl

@@ -436,35 +436,6 @@ proc spdAux::GetAppliedGroups { {root ""} } {
     }
     return [lsort -unique $group_list]
 }
-
-proc spdAux::LoadModelFiles { {root "" }} {
-    if {$root eq ""} {
-        set root [customlib::GetBaseRoot]
-        customlib::UpdateDocument
-    }
-    foreach elem [$root getElementsByTagName "file"] {
-        FileSelector::AddFile [$elem @n]
-    }
-}
-
-proc spdAux::SaveModelFile { fileid } {
-    customlib::UpdateDocument
-    FileSelector::AddFile $fileid
-    gid_groups_conds::addF {container[@n='files']} file [list n ${fileid}]
-}
-
-proc spdAux::AddFile { domNode } {
-    FileSelector::InitWindow "spdAux::UpdateFileField" $domNode
-}
-
-proc spdAux::UpdateFileField { fileid domNode} {
-    if {$fileid ne ""} {
-        $domNode setAttribute v $fileid
-        spdAux::SaveModelFile $fileid
-        RequestRefresh 
-    }
-}
-
 proc spdAux::RegisterWindow {window_name} {
     variable list_of_windows
     lappend list_of_windows $window_name