Commit 4e4cdd19 authored by CD's avatar CD

Small change to Physio module

parent 40a7c4cb
......@@ -4,7 +4,7 @@
wm deiconify .
update
wm withdraw .
if {[winfo screenwidth .] != 1600 || [winfo screenheight .] != 900 || [lindex [wm maxsize .] 0] != 3520 || [lindex [wm maxsize .] 1] != 1057} {
if {[winfo screenwidth .] != 2560 || [winfo screenheight .] != 1440 || [lindex [wm maxsize .] 0] != 2564 || [lindex [wm maxsize .] 1] != 1415} {
set size_mismatch 1
} else {
set size_mismatch 0
......@@ -15,8 +15,8 @@ if $size_mismatch {
-message "The screen resolution is not the same as it was the last time the Environment was used. Should the window positions reset to the defaults?"]
} else { set reset_window_sizes 0}
if {$reset_window_sizes != "yes"} {
set window_config(.control_panel) 170x700+1410+100
set window_config(.control_panel) 283x700+1947+192
set changed_window_list(.control_panel) 1
set window_config(.reload_response) 500x230+550+335
set changed_window_list(.reload_response) 1
set window_config(.copyright) 400x466+1080+487
set changed_window_list(.copyright) 1
}
......@@ -361,6 +361,7 @@ t)
(lambda (cond hook)
(declare (ignore cond hook))
(format t "Cleaning up ...")
(close-HumMod (get-module physio))
(ccl:quit)))
;;;Can be used to reset HumMod variables to initial model
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment