Add memory-monitor to the initial load and desktop.

wvonhagen · Feb 27, 2016 · e29ca6d · e29ca6d
1 parent a03387e
commit e29ca6d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/gui/desktop.lisp b/gui/desktop.lisp
@@ -14,6 +14,7 @@
                   ("LOCAL:>Icons>Editor.png" "Editor" "(mezzano.editor:spawn)")
                   ("LOCAL:>Icons>Mandelbrot.png" "Mandelbrot" "(mandelbrot:spawn)")
                   ("LOCAL:>Icons>Peek.png" "Peek" "(mezzano.gui.peek:spawn)")
+                  ("LOCAL:>Icons>Peek.png" "Memory Monitor" "(mezzano.gui.memory-monitor:spawn)")
                   ("LOCAL:>Icons>FS-Viewer.png" "FS Viewer" "(mezzano.gui.fs-viewer:spawn)")
                   ("LOCAL:>Icons>Telnet.png" "Nethack" "(telnet:spawn-nao)")
                   ("LOCAL:>Icons>Telnet.png" "Nyan Cat" "(telnet:spawn-nyan)")))

diff --git a/ipl.lisp b/ipl.lisp
@@ -109,6 +109,7 @@ If the compiled file is out of date, recompile it."
 (sys.int::cal "gui/desktop.lisp")
 (sys.int::cal "gui/image-viewer.lisp")
 (sys.int::cal "applications/fs-viewer.lisp")
+(sys.int::cal "applications/memory-monitor.lisp")
 ;; If the desktop image was removed above, then remove the :IMAGE argument
 ;; from here.
 (setf sys.int::*desktop* (eval (read-from-string "(mezzano.gui.desktop:spawn :image \"LOCAL:>Desktop.jpeg\")")))