diff --git a/clog.asd b/clog.asd
index e52b058..45d8827 100644
--- a/clog.asd
+++ b/clog.asd
@@ -64,10 +64,12 @@
                (:file "sys-browser")
                (:file "projects")
                (:file "clog-builder-repl")
+               (:file "dir-view")
                ;; clog-builder code
                (:file "clog-builder-settings")
                (:file "clog-builder")
                (:file "clog-builder-projects")
                (:file "clog-builder-asdf-browser")               
                (:file "clog-builder-sys-browser")
+               (:file "clog-builder-dir-win")
                (:file "clog-builder-images")))
diff --git a/tools/clog-builder-dir-win.lisp b/tools/clog-builder-dir-win.lisp
new file mode 100644
index 0000000..ecf55cc
--- /dev/null
+++ b/tools/clog-builder-dir-win.lisp
@@ -0,0 +1,25 @@
+(in-package :clog-tools)
+
+(defun populate-dir-win (panel d)
+  (let ((dir (directory-namestring (uiop:truename* d))))
+    ;; Dirs
+    (setf (inner-html (folders panel)) "")
+    (add-select-option (folders panel)
+                       (format nil "~A" dir)
+                       (format nil ".  (~A)" dir))
+    (unless (or (equalp dir "/") (equalp dir #P"/"))
+      (add-select-option (folders panel) (format nil "~A../" dir) ".."))
+    (dolist (item (uiop:subdirectories dir))
+      (add-select-option (folders panel) item item))
+    ;; Files
+    (setf (inner-html (files panel)) "")
+    (dolist (item (uiop:directory-files (directory-namestring dir)))
+      (add-select-option (files panel) item (file-namestring item)))))
+
+(defun on-select-dir-win (panel)
+  (let ((item (value (files panel))))
+    (cond ((and (> (length item) 5)
+                (equal (subseq item (- (length item) 5)) ".clog"))
+           (on-new-builder-panel panel :open-file item))
+          (t
+           (on-open-file panel :open-file item)))))
diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp
index c5d05a7..89f8410 100644
--- a/tools/clog-builder-projects.lisp
+++ b/tools/clog-builder-projects.lisp
@@ -11,7 +11,15 @@
           (setf (text-value (project-list panel)) (current-project app))
           (projects-populate panel))
          (t
-          (setf (text-value (project-list panel)) "None")))))
+          (setf (text-value (project-list panel)) "None")
+          (projects-populate panel)))))
+
+(defun projects-view-dir (panel)
+  (ignore-errors
+   (let* ((app (connection-data-item panel "builder-app-data"))
+          (sel (text-value (project-list panel)))
+          (sys (asdf:find-system (format nil "~A" sel))))
+     (on-dir-win panel :dir (asdf:system-source-directory sys)))))
 
 (defun projects-run (panel)
   (let ((val (text-value (entry-point panel))))
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 2bf1ab4..1126696 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -2536,7 +2536,7 @@ of controls and double click to select control."
                                                                  :eval-in-package (text-value pac-line))))
                                    (on-open-file obj :title-class "w3-blue" :title "file eval" :text result))))))))
 (defun on-repl (obj)
-  "Open quick start"
+  "Open REPL"
   (let* ((win (create-gui-window obj :title "CLOG Builder REPL"
                                      :top 40 :left 225
                                      :width 600 :height 400
@@ -2588,6 +2588,17 @@ of controls and double click to select control."
                                            :title-class "w3-red"
                                            :text c)))))))
 
+(defun on-dir-win (obj &key dir)
+  "Open dir window"
+  (let* ((win (create-gui-window obj :title "Directory Window"
+                                     :top 40 :left 225
+                                     :width 600 :height 400
+                                     :client-movement t))
+         (d   (create-dir-view (window-content win))))
+    (set-geometry d :units "%" :width 100 :height 100)
+    (when dir
+      (populate-dir-win d dir))))
+
 (defun on-new-builder (body)
   "Launch instance of the CLOG Builder"
   (set-html-on-close body "Connection Lost")
@@ -2620,6 +2631,7 @@ of controls and double click to select control."
       (Create-gui-menu-item src   :content "New System Browser"        :on-click 'on-new-sys-browser)
       (create-gui-menu-item src   :content "New ASDF System Browser"   :on-click 'on-new-asdf-browser)
       (create-gui-menu-item tools :content "Control Events"            :on-click 'on-show-control-events-win)
+      (create-gui-menu-item tools :content "Directory Window"          :on-click 'on-dir-win)
       (create-gui-menu-item tools :content "List Callers"              :on-click 'on-show-callers)
       (create-gui-menu-item tools :content "List Callees"              :on-click 'on-show-callees)
       (create-gui-menu-item tools :content "Thread Viewer"             :on-click 'on-show-thread-viewer)
diff --git a/tools/dir-view.clog b/tools/dir-view.clog
new file mode 100644
index 0000000..c8d44e8
--- /dev/null
+++ b/tools/dir-view.clog
@@ -0,0 +1 @@
+<data id="I3871043518" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="6" data-clog-title="dir-view"></data><select data-clog-type="listbox" size="4" data-clog-name="folders" style="box-sizing: content-box; position: absolute; left: 10px; top: 10px; right: 10px; height: 150px;" data-on-create="(populate-dir-win panel &quot;./&quot;)" data-on-change="(populate-dir-win panel (value target))"></select><div data-clog-type="div" data-clog-name="divider" style="box-sizing: content-box; position: absolute; left: 10px; height: 5px; background-attachment: scroll; background-color: rgb(0, 0, 0); right: 10px; top: 166px;"></div><select data-clog-type="listbox" size="4" data-clog-name="files" style="box-sizing: content-box; position: absolute; inset: 175px 10px 10px;" data-on-double-click="(on-select-dir-win panel)"></select>
\ No newline at end of file
diff --git a/tools/dir-view.lisp b/tools/dir-view.lisp
new file mode 100644
index 0000000..ca69b8e
--- /dev/null
+++ b/tools/dir-view.lisp
@@ -0,0 +1,35 @@
+;;;; CLOG Builder generated code - modify original clog file
+(in-package :clog-tools)
+(defclass dir-view (clog:clog-panel)
+          ((files :reader files) (divider :reader divider)
+           (folders :reader folders)))
+(defun create-dir-view
+       (clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t))
+  (let ((panel
+         (change-class
+          (clog:create-div clog-obj :content
+                           "<select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 10px; right: 10px; height: 150px;\" id=\"CLOGB3871033758\" data-clog-name=\"folders\"></select><div style=\"box-sizing: content-box; position: absolute; left: 10px; height: 5px; background-attachment: scroll; background-color: rgb(0, 0, 0); right: 10px; top: 166px;\" id=\"CLOGB3871033756\" data-clog-name=\"divider\"></div><select id=\"CLOGB38710339135\" size=\"4\" style=\"box-sizing: content-box; position: absolute; inset: 175px 10px 10px;\" data-clog-name=\"files\"></select>"
+                           :hidden hidden :class class :html-id html-id
+                           :auto-place auto-place)
+          'dir-view)))
+    (setf (slot-value panel 'files)
+            (attach-as-child clog-obj "CLOGB38710339135" :clog-type
+             'clog:clog-select :new-id t))
+    (setf (slot-value panel 'divider)
+            (attach-as-child clog-obj "CLOGB3871033756" :clog-type
+             'clog:clog-div :new-id t))
+    (setf (slot-value panel 'folders)
+            (attach-as-child clog-obj "CLOGB3871033758" :clog-type
+             'clog:clog-select :new-id t))
+    (let ((target (folders panel)))
+      (declare (ignorable target))
+      (populate-dir-win panel "./"))
+    (clog:set-on-change (folders panel)
+                        (lambda (target)
+                          (declare (ignorable target))
+                          (populate-dir-win panel (value target))))
+    (clog:set-on-double-click (files panel)
+                              (lambda (target)
+                                (declare (ignorable target))
+                                (on-select-dir-win panel)))
+    panel))
\ No newline at end of file
diff --git a/tools/projects.clog b/tools/projects.clog
index 597efc6..9b743a6 100644
--- a/tools/projects.clog
+++ b/tools/projects.clog
@@ -1,4 +1,4 @@
-<data id="I3870693089" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="44" data-clog-title="projects"></data><label for="undefined" data-clog-type="label" data-clog-for="projects-list" data-clog-name="projects-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;">Current Project</label><select data-clog-type="dropdown" data-clog-name="project-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;" data-on-create="(projects-setup panel)" data-on-change="(projects-populate panel)"></select><button data-clog-type="button" data-clog-name="edit-asd" style="box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;" data-on-click="(let ((sel (text-value (project-list panel))))
+<data id="I3871045686" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="45" data-clog-title="projects"></data><label for="undefined" data-clog-type="label" data-clog-for="projects-list" data-clog-name="projects-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;">Current Project</label><select data-clog-type="dropdown" data-clog-name="project-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;" data-on-create="(projects-setup panel)" data-on-change="(projects-populate panel)"></select><button data-clog-type="button" data-clog-name="edit-asd" style="box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;" data-on-click="(let ((sel (text-value (project-list panel))))
   (on-open-file panel :open-file (asdf:system-source-file
                                    (asdf:find-system sel))))" title="Manualy projects .asd file">Edit .asd</button><label for="CLOGB386871257741" data-clog-type="label" data-clog-for="entry-point" data-clog-name="entry-point-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 69px;">Entry Point - package:function</label><input type="TEXT" value="" data-clog-type="input" data-clog-name="entry-point" style="box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;" data-on-change="(projects-entry-point-change panel)"><button data-clog-type="button" data-clog-name="run-button" style="box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;" data-on-click="(projects-run panel)">Run</button><button data-clog-type="button" data-clog-name="new-project-button" style="box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;" data-on-click="(on-new-app-template panel)" title="Create new project from template">New</button><button data-clog-type="button" data-clog-name="unload-project-button" style="box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;" data-on-click="(let ((sel (text-value (project-list panel))))
   (asdf:clear-system sel)
@@ -6,16 +6,16 @@
   (projects-populate panel))" title="ASDF unload project from Lisp image">Unload</button><button data-clog-type="button" data-clog-name="reload-project-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;" data-on-click="(let ((sel (text-value (project-list panel))))
   (asdf:clear-system sel)
   (projects-populate panel))" title="ASDF reload project in to Lisp image">Reload</button><button data-clog-type="button" data-clog-name="rerender-button" style="box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;" tabindex="0" title="Rerender all clog files to Lisp" data-on-click="(projects-rerender panel)">Rerender</button><div data-clog-type="div" data-clog-name="file-group" style="box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;"><label for="CLOGB3868393710" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="runtime-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 65px;">Runtime System</label><label for="CLOGB3868452429" data-clog-type="label" data-clog-for="runtime-list" data-clog-name="dbl-click1" style="box-sizing: content-box; position: absolute; left: 5px; top: 85px;">(double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="runtime-list" style="box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;" data-on-double-click="(open-projects-component target (text-value (project-list panel)) target)"></select><button data-clog-type="button" data-clog-name="runtime-add-lisp" style="box-sizing: content-box; position: absolute; left: 5px; top: 320px;" data-on-click="(let ((sys (text-value (project-list panel))))
-  (projects-add-lisp panel sys))">Add .lisp</button><button data-clog-type="button" data-clog-name="runtime-delete" style="box-sizing: content-box; position: absolute; left: 95px; top: 320px; width: 65px; height: 22px;" data-on-click="(let ((sys (text-value (project-list panel)))
+  (projects-add-lisp panel sys))">Add .lisp</button><button data-clog-type="button" data-clog-name="runtime-delete" style="box-sizing: content-box; position: absolute; left: 93px; top: 320px; width: 65px; height: 22px;" data-on-click="(let ((sys (text-value (project-list panel)))
       (file (select-text (runtime-list panel))))
   (unless (equal file &quot;&quot;)
     (setf file (subseq file 0 (- (length file) 5)))
    (remove-file-from-defsystem sys file :file)
-   (projects-populate panel)))">Remove</button><label for="CLOGB3868619266" data-clog-type="label" data-clog-for="runtime-deps" data-clog-name="runtime-deps-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 365px;">Runtime Dependecies</label><select data-clog-type="listbox" size="4" data-clog-name="runtime-deps" style="box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;"></select><button data-clog-type="button" data-clog-name="runtime-add-dep" style="box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;" data-on-click="(let ((sys (text-value (project-list panel))))
+   (projects-populate panel)))">Remove</button><button data-clog-type="button" data-clog-name="runtime-dir" style="box-sizing: content-box; position: absolute; left: 180px; top: 320px; width: 65px;" data-on-click="(projects-view-dir panel)">View Dir</button><label for="CLOGB3868619266" data-clog-type="label" data-clog-for="runtime-deps" data-clog-name="runtime-deps-label" style="box-sizing: content-box; position: absolute; left: 5px; top: 365px;">Runtime Dependecies</label><label for="CLOGB3868452430" data-clog-type="label" data-clog-for="designtime-list" data-clog-name="dbl-click2" style="box-sizing: content-box; position: absolute; left: 290px; top: 85px;">(double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="runtime-deps" style="box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;"></select><button data-clog-type="button" data-clog-name="runtime-add-dep" style="box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;" data-on-click="(let ((sys (text-value (project-list panel))))
   (projects-add-dep panel sys))">Add</button><button data-clog-type="button" data-clog-name="runtime-del-dep" style="box-sizing: content-box; position: absolute; left: 95px; top: 480px; width: 65px; height: 22px;" data-on-click="(let ((sys (text-value (project-list panel)))
       (file (select-text (runtime-deps panel))))
   (remove-dep-from-defsystem sys file)
-  (projects-populate panel))">Remove</button><label for="CLOGB3868393704" data-clog-type="label" data-clog-for="designtime-list" data-clog-name="designtime-label" style="box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;">Design Time System (/tools)</label><label for="CLOGB3868452430" data-clog-type="label" data-clog-for="designtime-list" data-clog-name="dbl-click2" style="box-sizing: content-box; position: absolute; left: 290px; top: 85px;">(double click to launch)</label><select data-clog-type="listbox" size="4" data-clog-name="designtime-list" style="box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;" data-on-double-click="(open-projects-component target
+  (projects-populate panel))">Remove</button><label for="CLOGB3868393704" data-clog-type="label" data-clog-for="designtime-list" data-clog-name="designtime-label" style="box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;">Design Time System (/tools)</label><select data-clog-type="listbox" size="4" data-clog-name="designtime-list" style="box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;" data-on-double-click="(open-projects-component target
   (format nil &quot;~A/tools&quot; (text-value (project-list panel))) target)"></select><button data-clog-type="button" data-clog-name="designtime-add-clog" style="box-sizing: content-box; position: absolute; left: 290px; top: 320px;" data-on-click="(let ((sys (text-value (project-list panel))))
   (projects-add-clog panel sys))
 ">Add .clog</button><button data-clog-type="button" data-clog-name="designtime-add-lisp" style="box-sizing: content-box; position: absolute; left: 386px; top: 320px;" data-on-click="(let ((sys (format nil &quot;~A/tools&quot; (text-value (project-list panel)))))
diff --git a/tools/projects.lisp b/tools/projects.lisp
index 18c51b9..6e0fdae 100644
--- a/tools/projects.lisp
+++ b/tools/projects.lisp
@@ -10,12 +10,12 @@
            (designtime-add-lisp :reader designtime-add-lisp)
            (designtime-add-clog :reader designtime-add-clog)
            (designtime-list :reader designtime-list)
-           (dbl-click2 :reader dbl-click2)
            (designtime-label :reader designtime-label)
            (runtime-del-dep :reader runtime-del-dep)
            (runtime-add-dep :reader runtime-add-dep)
-           (runtime-deps :reader runtime-deps)
+           (runtime-deps :reader runtime-deps) (dbl-click2 :reader dbl-click2)
            (runtime-deps-label :reader runtime-deps-label)
+           (runtime-dir :reader runtime-dir)
            (runtime-delete :reader runtime-delete)
            (runtime-add-lisp :reader runtime-add-lisp)
            (runtime-list :reader runtime-list) (dbl-click1 :reader dbl-click1)
@@ -34,102 +34,105 @@
   (let ((panel
          (change-class
           (clog:create-div clog-obj :content
-                           "<label for=\"undefined\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;\" id=\"CLOGB3870693027\" data-clog-name=\"projects-label\">Current Project</label><select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;\" id=\"CLOGB3870693028\" data-clog-name=\"project-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;\" title=\"Manualy projects .asd file\" id=\"CLOGB3870693029\" data-clog-name=\"edit-asd\">Edit .asd</button><label for=\"CLOGB386871257741\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 69px;\" id=\"CLOGB3870693030\" data-clog-name=\"entry-point-label\">Entry Point - package:function</label><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;\" id=\"CLOGB3870693031\" data-clog-name=\"entry-point\"><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;\" id=\"CLOGB3870693032\" data-clog-name=\"run-button\">Run</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;\" title=\"Create new project from template\" id=\"CLOGB3870693033\" data-clog-name=\"new-project-button\">New</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF unload project from Lisp image\" id=\"CLOGB3870693034\" data-clog-name=\"unload-project-button\">Unload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF reload project in to Lisp image\" id=\"CLOGB3870693035\" data-clog-name=\"reload-project-button\">Reload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;\" tabindex=\"0\" title=\"Rerender all clog files to Lisp\" id=\"CLOGB3870693036\" data-clog-name=\"rerender-button\">Rerender</button><div style=\"box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;\" id=\"CLOGB3870693037\" data-clog-name=\"file-group\"><label for=\"CLOGB3868393710\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 65px;\" id=\"CLOGB3870693038\" data-clog-name=\"runtime-label\">Runtime System</label><label for=\"CLOGB3868452429\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 85px;\" id=\"CLOGB3870693039\" data-clog-name=\"dbl-click1\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;\" id=\"CLOGB3870693040\" data-clog-name=\"runtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 320px;\" id=\"CLOGB3870693041\" data-clog-name=\"runtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 95px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3870693042\" data-clog-name=\"runtime-delete\">Remove</button><label for=\"CLOGB3868619266\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 365px;\" id=\"CLOGB3870693043\" data-clog-name=\"runtime-deps-label\">Runtime Dependecies</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;\" id=\"CLOGB3870693044\" data-clog-name=\"runtime-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;\" id=\"CLOGB3870693045\" data-clog-name=\"runtime-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 95px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3870693046\" data-clog-name=\"runtime-del-dep\">Remove</button><label for=\"CLOGB3868393704\" style=\"box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;\" id=\"CLOGB3870693047\" data-clog-name=\"designtime-label\">Design Time System (/tools)</label><label for=\"CLOGB3868452430\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 85px;\" id=\"CLOGB3870693048\" data-clog-name=\"dbl-click2\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;\" id=\"CLOGB3870693049\" data-clog-name=\"designtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 320px;\" id=\"CLOGB3870693050\" data-clog-name=\"designtime-add-clog\">Add .clog</button><button style=\"box-sizing: content-box; position: absolute; left: 386px; top: 320px;\" id=\"CLOGB3870693051\" data-clog-name=\"designtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 478px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3870693052\" data-clog-name=\"designtime-delete\">Remove</button><label for=\"CLOGB3868619268\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 365px;\" id=\"CLOGB3870693053\" data-clog-name=\"design-deps-label\">Design Dependecies</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 395px; width: 263.358px; height: 75px;\" id=\"CLOGB3870693054\" data-clog-name=\"design-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3870693055\" data-clog-name=\"design-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 380px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3870693056\" data-clog-name=\"design-del-dep\">Remove</button><button style=\"box-sizing: content-box; position: absolute; left: 470px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3870693057\" data-clog-name=\"design-plugin\">Plugin</button></div>"
+                           "<label for=\"undefined\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 6.99858px;\" id=\"CLOGB3871045200\" data-clog-name=\"projects-label\">Current Project</label><select style=\"box-sizing: content-box; position: absolute; left: 5px; top: 35px; width: 386.54px; height: 22px; bottom: 309.041px;\" id=\"CLOGB3871045201\" data-clog-name=\"project-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 32px; height: 22px; width: 90px;\" title=\"Manualy projects .asd file\" id=\"CLOGB3871045202\" data-clog-name=\"edit-asd\">Edit .asd</button><label for=\"CLOGB386871257741\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 69px;\" id=\"CLOGB3871045203\" data-clog-name=\"entry-point-label\">Entry Point - package:function</label><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 94px; width: 381px; height: 22.5px;\" id=\"CLOGB3871045204\" data-clog-name=\"entry-point\"><button style=\"box-sizing: content-box; position: absolute; left: 400px; top: 92px; width: 90px; height: 22.5px;\" id=\"CLOGB3871045205\" data-clog-name=\"run-button\">Run</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 8px; width: 100px; height: 22px;\" title=\"Create new project from template\" id=\"CLOGB3871045206\" data-clog-name=\"new-project-button\">New</button><button style=\"box-sizing: content-box; position: absolute; left: 520px; top: 43px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF unload project from Lisp image\" id=\"CLOGB3871045207\" data-clog-name=\"unload-project-button\">Unload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 79px; width: 100px; height: 22px; bottom: 309.041px;\" title=\"ASDF reload project in to Lisp image\" id=\"CLOGB3871045208\" data-clog-name=\"reload-project-button\">Reload</button><button style=\"box-sizing: content-box; position: absolute; left: 521px; top: 116px; width: 100px;\" tabindex=\"0\" title=\"Rerender all clog files to Lisp\" id=\"CLOGB3871045209\" data-clog-name=\"rerender-button\">Rerender</button><div style=\"box-sizing: content-box; position: absolute; left: 0px; top: 69px; width: 512px; height: 10px;\" id=\"CLOGB3871045210\" data-clog-name=\"file-group\"><label for=\"CLOGB3868393710\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 65px;\" id=\"CLOGB3871045211\" data-clog-name=\"runtime-label\">Runtime System</label><label for=\"CLOGB3868452429\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 85px;\" id=\"CLOGB3871045212\" data-clog-name=\"dbl-click1\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 115px; width: 260px; height: 196px;\" id=\"CLOGB3871045213\" data-clog-name=\"runtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 320px;\" id=\"CLOGB3871045214\" data-clog-name=\"runtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 93px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871045215\" data-clog-name=\"runtime-delete\">Remove</button><button id=\"CLOGB387104523944\" style=\"box-sizing: content-box; position: absolute; left: 180px; top: 320px; width: 65px;\" data-clog-name=\"runtime-dir\">View Dir</button><label for=\"CLOGB3868619266\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 365px;\" id=\"CLOGB3871045216\" data-clog-name=\"runtime-deps-label\">Runtime Dependecies</label><label for=\"CLOGB3868452430\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 85px;\" id=\"CLOGB3871045221\" data-clog-name=\"dbl-click2\">(double click to launch)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 5px; top: 395px; width: 260px; height: 75px;\" id=\"CLOGB3871045217\" data-clog-name=\"runtime-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 5px; top: 480px; width: 65px;\" id=\"CLOGB3871045218\" data-clog-name=\"runtime-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 95px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045219\" data-clog-name=\"runtime-del-dep\">Remove</button><label for=\"CLOGB3868393704\" style=\"box-sizing: content-box; position: absolute; left: 290.007px; top: 65px;\" id=\"CLOGB3871045220\" data-clog-name=\"designtime-label\">Design Time System (/tools)</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 115px; width: 265px; height: 195.545px;\" id=\"CLOGB3871045222\" data-clog-name=\"designtime-list\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 320px;\" id=\"CLOGB3871045223\" data-clog-name=\"designtime-add-clog\">Add .clog</button><button style=\"box-sizing: content-box; position: absolute; left: 386px; top: 320px;\" id=\"CLOGB3871045224\" data-clog-name=\"designtime-add-lisp\">Add .lisp</button><button style=\"box-sizing: content-box; position: absolute; left: 478px; top: 320px; width: 65px; height: 22px;\" id=\"CLOGB3871045225\" data-clog-name=\"designtime-delete\">Remove</button><label for=\"CLOGB3868619268\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 365px;\" id=\"CLOGB3871045226\" data-clog-name=\"design-deps-label\">Design Dependecies</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 290px; top: 395px; width: 263.358px; height: 75px;\" id=\"CLOGB3871045227\" data-clog-name=\"design-deps\"></select><button style=\"box-sizing: content-box; position: absolute; left: 290px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045228\" data-clog-name=\"design-add-dep\">Add</button><button style=\"box-sizing: content-box; position: absolute; left: 380px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045229\" data-clog-name=\"design-del-dep\">Remove</button><button style=\"box-sizing: content-box; position: absolute; left: 470px; top: 480px; width: 65px; height: 22px;\" id=\"CLOGB3871045230\" data-clog-name=\"design-plugin\">Plugin</button></div>"
                            :hidden hidden :class class :html-id html-id
                            :auto-place auto-place)
           'projects)))
     (setf (slot-value panel 'design-plugin)
-            (attach-as-child clog-obj "CLOGB3870693057" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045230" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-del-dep)
-            (attach-as-child clog-obj "CLOGB3870693056" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045229" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-add-dep)
-            (attach-as-child clog-obj "CLOGB3870693055" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045228" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'design-deps)
-            (attach-as-child clog-obj "CLOGB3870693054" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045227" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'design-deps-label)
-            (attach-as-child clog-obj "CLOGB3870693053" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045226" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'designtime-delete)
-            (attach-as-child clog-obj "CLOGB3870693052" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045225" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-add-lisp)
-            (attach-as-child clog-obj "CLOGB3870693051" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045224" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-add-clog)
-            (attach-as-child clog-obj "CLOGB3870693050" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045223" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'designtime-list)
-            (attach-as-child clog-obj "CLOGB3870693049" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045222" :clog-type
              'clog:clog-select :new-id t))
-    (setf (slot-value panel 'dbl-click2)
-            (attach-as-child clog-obj "CLOGB3870693048" :clog-type
-             'clog:clog-label :new-id t))
     (setf (slot-value panel 'designtime-label)
-            (attach-as-child clog-obj "CLOGB3870693047" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045220" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-del-dep)
-            (attach-as-child clog-obj "CLOGB3870693046" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045219" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-add-dep)
-            (attach-as-child clog-obj "CLOGB3870693045" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045218" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-deps)
-            (attach-as-child clog-obj "CLOGB3870693044" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045217" :clog-type
              'clog:clog-select :new-id t))
-    (setf (slot-value panel 'runtime-deps-label)
-            (attach-as-child clog-obj "CLOGB3870693043" :clog-type
+    (setf (slot-value panel 'dbl-click2)
+            (attach-as-child clog-obj "CLOGB3871045221" :clog-type
              'clog:clog-label :new-id t))
+    (setf (slot-value panel 'runtime-deps-label)
+            (attach-as-child clog-obj "CLOGB3871045216" :clog-type
+             'clog:clog-label :new-id t))
+    (setf (slot-value panel 'runtime-dir)
+            (attach-as-child clog-obj "CLOGB387104523944" :clog-type
+             'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-delete)
-            (attach-as-child clog-obj "CLOGB3870693042" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045215" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-add-lisp)
-            (attach-as-child clog-obj "CLOGB3870693041" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045214" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'runtime-list)
-            (attach-as-child clog-obj "CLOGB3870693040" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045213" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'dbl-click1)
-            (attach-as-child clog-obj "CLOGB3870693039" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045212" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'runtime-label)
-            (attach-as-child clog-obj "CLOGB3870693038" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045211" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'file-group)
-            (attach-as-child clog-obj "CLOGB3870693037" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045210" :clog-type
              'clog:clog-div :new-id t))
     (setf (slot-value panel 'rerender-button)
-            (attach-as-child clog-obj "CLOGB3870693036" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045209" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'reload-project-button)
-            (attach-as-child clog-obj "CLOGB3870693035" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045208" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'unload-project-button)
-            (attach-as-child clog-obj "CLOGB3870693034" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045207" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'new-project-button)
-            (attach-as-child clog-obj "CLOGB3870693033" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045206" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'run-button)
-            (attach-as-child clog-obj "CLOGB3870693032" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045205" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'entry-point)
-            (attach-as-child clog-obj "CLOGB3870693031" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045204" :clog-type
              'clog:clog-form-element :new-id t))
     (setf (slot-value panel 'entry-point-label)
-            (attach-as-child clog-obj "CLOGB3870693030" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045203" :clog-type
              'clog:clog-label :new-id t))
     (setf (slot-value panel 'edit-asd)
-            (attach-as-child clog-obj "CLOGB3870693029" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045202" :clog-type
              'clog:clog-button :new-id t))
     (setf (slot-value panel 'project-list)
-            (attach-as-child clog-obj "CLOGB3870693028" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045201" :clog-type
              'clog:clog-select :new-id t))
     (setf (slot-value panel 'projects-label)
-            (attach-as-child clog-obj "CLOGB3870693027" :clog-type
+            (attach-as-child clog-obj "CLOGB3871045200" :clog-type
              'clog:clog-label :new-id t))
     (let ((target (projects-label panel)))
       (declare (ignorable target))
@@ -159,12 +162,12 @@
       (setf (attribute target "for")
               (clog:js-query target
                              "$('[data-clog-name=\\'runtime-deps\\']').attr('id')")))
-    (let ((target (designtime-label panel)))
+    (let ((target (dbl-click2 panel)))
       (declare (ignorable target))
       (setf (attribute target "for")
               (clog:js-query target
                              "$('[data-clog-name=\\'designtime-list\\']').attr('id')")))
-    (let ((target (dbl-click2 panel)))
+    (let ((target (designtime-label panel)))
       (declare (ignorable target))
       (setf (attribute target "for")
               (clog:js-query target
@@ -233,6 +236,10 @@
                              (setf file (subseq file 0 (- (length file) 5)))
                              (remove-file-from-defsystem sys file :file)
                              (projects-populate panel)))))
+    (clog:set-on-click (runtime-dir panel)
+                       (lambda (target)
+                         (declare (ignorable target))
+                         (projects-view-dir panel)))
     (clog:set-on-click (runtime-add-dep panel)
                        (lambda (target)
                          (declare (ignorable target))