context menu for folders

This commit is contained in:
David Botton 2024-05-09 20:08:26 -04:00
parent 798ad3a201
commit 828a1a5fad
2 changed files with 17 additions and 1 deletions

View file

@ -4,7 +4,7 @@
"Open a shell"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title (format nil "OS Shell - ~A - ~A"
(win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A"
(uiop:operating-system)
(uiop:hostname))
:top 40 :left 225