got pipewire 'out' node

gtk-playground.lisp

@@ -0,0 +1,23 @@
+(load (sb-ext:posix-getenv "ASDF"))
+(asdf:load-system 'cl-cffi-gtk)
+
+(defpackage #:gtkStuff (:use #:cl))
+(in-package #:gtkStuff)
+
+
+(gtk:cl-cffi-gtk-build-info) 				 ; yay, this works, cool
+
+(defun example-window-simple ()
+  (gtk:within-main-loop
+    (let (;; Create a toplevel window.
+          (window (gtk:gtk-window-new :toplevel)))
+      ;; Signal handler for the window to handle the signal "destroy".
+      (gobject:g-signal-connect window "destroy"
+                        (lambda (widget)
+                          (declare (ignore widget))
+                          (gtk:leave-gtk-main)))
+      ;; Show the window.
+      (gtk:gtk-widget-show-all window))))
+
+;; yay, this works. good.
+