Commit 5c769a0e authored by CD's avatar CD
Browse files

Getting there with parallel comp, but still WIP

parent d944f7b2
This diff is collapsed.
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
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
# Port settings for ACT-R server started at 06:09:40 8/28/2020
# Port settings for ACT-R server started at 16:20:36 9/12/2020
set actr_port 2650
set actr_address "192.168.1.62"
set actr_address "192.168.1.79"
......@@ -4,7 +4,7 @@
wm deiconify .
update
wm withdraw .
if {[winfo screenwidth .] != 3440 || [winfo screenheight .] != 1440 || [lindex [wm maxsize .] 0] != 3444 || [lindex [wm maxsize .] 1] != 1421} {
if {[winfo screenwidth .] != 1920 || [winfo screenheight .] != 1080 || [lindex [wm maxsize .] 0] != 1924 || [lindex [wm maxsize .] 1] != 1055} {
set size_mismatch 1
} else {
set size_mismatch 0
......@@ -15,38 +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(.pgraph) 700x400+1370+520
set changed_window_list(.pgraph) 1
set window_config(.visicon) 1460x689+1312+378
set changed_window_list(.visicon) 1
set window_config(.text_trace_history) 714x340+1333+550
set changed_window_list(.text_trace_history) 1
set window_config(.options) 450x274+1495+583
set changed_window_list(.options) 1
set window_config(.buffers) 470x240+2707+655
set changed_window_list(.buffers) 1
set window_config(.ptrace) 410x370+1515+570
set changed_window_list(.ptrace) 1
set window_config(.dispatcher) 700x274+1370+583
set changed_window_list(.dispatcher) 1
set window_config(.control_panel) 235x1010+2716+334
set window_config(.control_panel) 235x700+1665+190
set changed_window_list(.control_panel) 1
set window_config(.audicon) 870x150+1521+747
set changed_window_list(.audicon) 1
set window_config(.pick_buffers) 200x340+1620+550
set changed_window_list(.pick_buffers) 1
set window_config(.audicon_history) 734x300+1353+570
set changed_window_list(.audicon_history) 1
set window_config(.declarative) 420x300+1510+570
set changed_window_list(.declarative) 1
set window_config(.bold_graphs) 660x250+1390+600
set changed_window_list(.bold_graphs) 1
set window_config(.bufferstatus) 450x240+1223+277
set changed_window_list(.bufferstatus) 1
set window_config(.procedural) 1469x450+1601+240
set changed_window_list(.procedural) 1
set window_config(.whynot) 956x300+1620+570
set changed_window_list(.whynot) 1
}
set gui_options(p_selected) #44DA22
set gui_options(p_matched) #FCA31D
......
......@@ -497,7 +497,6 @@
:device (pathname-device pathname)
:name (pathname-name pathname)))
(error "To compile a file it must have a .lisp extension")))
(let* ((srcpath (merge-pathnames pathname *.lisp-pathname*))
(binpath (merge-pathnames pathname *.fasl-pathname*)))
(unless (probe-file srcpath)
......@@ -632,7 +631,6 @@
(dolist (the-file *file-list*)
(smart-load (translate-logical-pathname "ACT-R:framework;") the-file t))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Define system parameters for version information before anything could
;;; change the global variables.
......@@ -738,7 +736,6 @@
(print-warning "Invalid version specified in written-for-act-r-version: ~s. Version must be an ACT-R version string." version)
:invalid-value)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Define a macro to make loading extras easier
......@@ -778,17 +775,18 @@
(smart-load (translate-logical-pathname "ACT-R:core-modules;") "core-loader.lisp")
(dolist (the-file *file-list*)
(when (string-equal the-file "declarative-memory") (continue))
(smart-load (translate-logical-pathname "ACT-R:core-modules;") the-file))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; First, load any additional extensions.
(dolist (file (directory (translate-logical-pathname "ACT-R:commands;*.lisp")))
(compile-and-load file))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; When a new device is added it should be included with a switch below so that it can be loaded
......@@ -825,7 +823,6 @@
"#################~%#### No uwi file found in ~S ####~%################"
*device-interface-pathname*)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; After the modules and devices files are done load any files in the
;;; modules, tools and then finally the other-files drectories.
......@@ -864,7 +861,6 @@
(compile-and-load file))
(format t "~%######### User files loaded #########~%")))
#|
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
......
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