GiDInterface/kratos.gid/scripts/Controllers/PreferencesWindow.tcl at a12c971e7cdd23b44bc180acde2b10fbf7cab66d · KratosMultiphysics/GiDInterface · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

proc Kratos::ManagePreferences { cmd name {value ""}} {
    set ret ""
    switch $cmd {
        "GetValue" {
            if {[info exists ::Kratos::kratos_private($name)]} {
                set ret $::Kratos::kratos_private($name)
            } else {
                set ret [Kratos::ManagePreferences GetDefaultValue $name]
            }
        }
        "SetValue" {
            set ::Kratos::kratos_private($name) $value
            if {$name eq "allow_logs"} {Kratos::InitLog}
            if {$name eq "launch_configuration"} {Kratos::CheckDependencies}
        }
        "GetDefaultValue" {
            # same as GetValue
            switch $name {
                "DevMode" {
                    set ret "release"
                }
                "echo_level" {
                    set ret 0
                }
                "allow_logs" {
                    set ret 1
                }
                "mdpa_format" {
                    set ret 1
                }
                "debug_folder" {
                    set ret ""
                }
                "launch_configuration" {
                    set ret "Default"
                }
                "docker_image" {
                    set ret "fjgarate/kratos-run"
                }
                "python_path" {
                    set ret [Kratos::GetDefaultPythonPath]
                }
                "kratos_bin_path" {
                    set ret [file join $::Kratos::kratos_private(Path) exec kratos runkratos.exe]
                }
                "flowgraph_docker_image" {
                    set ret "flowgraph"
                }
                "flowgraph_external_port" {
                    set ret 8182
                }
                "flowgraph_mode" {
                    set ret "docker"
                }

                default {
                    set ret 0
                }
            }
        }
    }

    Kratos::RegisterEnvironment
    spdAux::RequestRefresh
    return $ret
}

proc Kratos::ModifyPreferencesWindow { root } {
    variable kratos_private

    if {[info exists kratos_private(Path)]} {
        set findnode [$root find "name" "general"]
        if { $findnode != "" } {
            set xml_preferences_filename [file join $kratos_private(Path) scripts Controllers Preferences.xml]
            set xml_data [GidUtils::ReadFile $xml_preferences_filename]
            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data
            CreateWidgetsFromXml::UpdatePreferencesWindow
        }
    }
    return 0
}

proc Kratos::ModifyPreferencesWindowOld { } {
    set root [CreateWidgetsFromXml::GetPreferencesXml]
    variable kratos_private

    if {[info exists kratos_private(Path)]} {
        set findnode [$root find "name" "general"]
        if { $findnode != "" } {
            set xml_preferences_filename [file join $kratos_private(Path) scripts Controllers Preferences.xml]
            set xml_data [GidUtils::ReadFile $xml_preferences_filename]
            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data
            CreateWidgetsFromXml::UpdatePreferencesWindow
        }
    }
    return 0
}