Commit 3f90f500 authored by CD's avatar CD
Browse files

Cleaning

parent aee3ee8e
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
Error during dialog loading of C:/Users/Phys-Cog/ACT-R_Phi/environment/GUI/dialogs/25-event-queue.tcl: window name "event_queue_button" already exists in parent
communication error result:
\ No newline at end of file
Error during dialog loading of C:/Users/SightH/ACT-R_Phi/environment/GUI/dialogs/25-event-queue.tcl: window name "event_queue_button" already exists in parent
# Port settings for ACT-R server started at 14:43:05 8/02/2019
set actr_port 2652
set actr_address "130.203.161.104"
# Port settings for ACT-R server started at 18:03:56 8/22/2019
set actr_port 2650
set actr_address "10.0.75.1"
......@@ -4,7 +4,7 @@
wm deiconify .
update
wm withdraw .
if {[winfo screenwidth .] != 1920 || [winfo screenheight .] != 1080 || [lindex [wm maxsize .] 0] != 1924 || [lindex [wm maxsize .] 1] != 1055} {
if {[winfo screenwidth .] != 3440 || [winfo screenheight .] != 1440 || [lindex [wm maxsize .] 0] != 3444 || [lindex [wm maxsize .] 1] != 1421} {
set size_mismatch 1
} else {
set size_mismatch 0
......@@ -15,12 +15,12 @@ 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) 235x700+1665+190
set window_config(.visicon) 1460x689+697+102
set changed_window_list(.visicon) 1
set window_config(.control_panel) 235x700+3140+352
set changed_window_list(.control_panel) 1
set window_config(.options) 450x274+735+403
set window_config(.options) 450x274+1495+583
set changed_window_list(.options) 1
set window_config(.copyright) 400x290+760+395
set changed_window_list(.copyright) 1
}
set gui_options(p_selected) #44DA22
set gui_options(p_matched) #FCA31D
......
......@@ -4,7 +4,7 @@
# This was formerly in the splash-screen.tcl init file
# This script opens a window with the Powered by ONR Logo in it
# centered on the screen for 3 seconds or until it's clicked
# centered on the screen for 3 seconds or until it's clicked
# read the image from the file
image create photo onr_logo -file [file join [pwd] "logo.gif"]
......@@ -29,7 +29,7 @@ global clear_splash
# logo is 579x288 and set it
set x [expr ([winfo screenwidth .]/2) - 290]
set y [expr ([winfo screenheight .]/2) - 144]
set y [expr ([winfo screenheight .]/2) - 144]
wm geometry .splash +$x+$y
......@@ -59,7 +59,7 @@ proc set_quit_now {val} {
set quit_now $val
}
# close the console window if it's open
# close the console window if it's open
if {$tcl_platform(platform) != "unix"} {console hide}
......
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
Supports Markdown
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