small fixes for macOS

examples/9-simple-lisp-editor/editor.lisp

@@ -148,7 +148,8 @@
   (x:do-with (qset *main*)
     ("size" '(800 500))
     ("windowTitle" "Simple Lisp Editor"))
-  (! "setFixedHeight" *command* (+ (second (font-metrics-size))
+  (! "setFixedHeight" *command* (+ #+darwin 1 #-darwin 0
+                                   (second (font-metrics-size))
                                    (* 2 (! "frameWidth" *command*))))
   (qset-color *output* |QPalette.Base| "lavender")
   (dolist (ed (list *editor* *command*))

examples/X-extras/calculator.lisp

@@ -44,11 +44,15 @@
   (flet ((str (x)
            (format nil "~:D" x)))
     (x:when-it (funcall-protect (lambda (x) (float x *precision*)) n)
-      (|setText| *float* (princ-to-string x:it)))
+      (|setText| *float* (princ-to-string x:it)
+      #+darwin
+      (|repaint| *float*)))
     (let* ((num (str (numerator n)))
            (den (str (denominator n)))
            (dif (- (length den) (length num))))
       (|setText| *real* (format nil "<pre><u>~A~A</u><br>~A" (if (plusp dif) (make-string dif) "") num den))
+      #+darwin
+      (|repaint| *real*)
       (|setEnabled| (qfind-child *main* "blah") (= 1 (denominator n))))))
 
 (defun clear-display ()