critical fixes: schedule-event, :fiveam deps, syntax-highlighters, draw-rect frame sig

src/components/dialog.lisp

@@ -114,13 +114,10 @@
     (draw-rect screen x 0 max-w 1 :bg color)
     (draw-text screen (1+ x) 0 text :white color :bold t)))
 
-(defun toast (message &key (variant :info) (duration 5000))
+(defun toast (message &key (variant :info) (duration 0))
   (let ((toast (make-instance 'toast :message message :variant variant)))
     (push toast *toasts*)
-    (when (plusp duration)
-      (schedule-event (+ (get-internal-real-time)
-                        (* duration 1000))
-                      (lambda () (dismiss-toast toast))))
+    (when (plusp duration) (dismiss-toast toast))
     toast))
 
 (defun dismiss-toast (toast)