Fix issue #45: Preserve same font name when changing font size

franks42 · May 21, 2012 · b45218f · b45218f
1 parent e81de94
commit b45218f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/clj_ns_browser/browser.clj b/src/clj_ns_browser/browser.clj
@@ -90,13 +90,15 @@
 (defn font-size+
   "Increase the font-size of the widget w by 1."
   [w]
-  (config! w :font {:size (+ 1 (.getSize (config w :font)))}))
+  (let [f (config w :font)]
+    (config! w :font {:name (.getName f) :size (inc (.getSize f))})))
 
 
 (defn font-size-
   "Decrease the font-size of the widget w by 1."
   [w]
-  (config! w :font {:size (- (.getSize (config w :font)) 1)}))
+  (let [f (config w :font)]
+    (config! w :font {:name (.getName f) :size (dec (.getSize f))})))
 
 
 ;; constants and global maps shared by all seesaw widgets