Hi Cecil,
Setting fonts under Seesaw isn't the most intuitive option, so you'd
have to dig into Swing core for this and investigate
java.swing.UIManager documentation.
Here is a function that I often use in my applications:
(defn set-font
"Set default font for the whole Swing application. Make sure
to call it before UI was shown."
[name size]
(let [res (FontUIResource. name Font/PLAIN size)
what ["Button.font" "ToggleButton.font"
"RadioButton.font" "CheckBox.font"
"ColorChooser.font" "ComboBox.font"
"Label.font" "List.font"
"MenuBar.font" "MenuItem.font"
"RadioButtonMenuItem.font"
"CheckBoxMenuItem.font" "Menu.font"
"PopupMenu.font" "OptionPane.font"
"Panel.font" "ProgressBar.font"
"ScrollPane.font" "Viewport.font"
"TabbedPane.font" "Table.font"
"TableHeader.font" "TextField.font"
"PasswordField.font" "TextArea.font"
"TextPane.font" "EditorPane.font"
"TitledBorder.font" "ToolBar.font"
"ToolTip.font" "Tree.font"]]
(doseq [key what]
(UIManager/put key res))))
I use it like:
(defn runner []
(seesaw/native!)
(seesaw/invoke-later
(set-font "Sans Serif" 11)
(seesaw/show! <here-comes-form-builder>)))
Best,
Sanel
On Wednesday, October 5, 2016 at 10:47:14 AM UTC+2, Cecil Westerhof wrote:
>
> I already asked it on Clojure-seesaw, but the last three months there
> has been no activity there. So I ask it here also.
>
> Some time ago I wrote a Clojure program that uses SeeSaw. I just
> bought a high resolution monitor and now I cannot read the text in my
> JFrames anymore. How can I increase the default font size?
>
> I create the frames like:
> (let [
> ^JFrame
> other-frm (frame :title "Other" :on-close
> :hide :resizable? false)
>
> I now generate buttons like:
> ^JButton
> all-authors (button :text "All Authors"
> :font {:size 25}
> :listen [:action (fn [e] (show-all-authors))])
>
> But I have to set the font for every label in this way.
>
> At another part I have:
> (grid-bag-layout
> search-panel
> :fill :HORIZONTAL
> :ipadx 8
> :ipady 4
> :gridy i
> :gridx 0 ^JLabel (label description)
> :gridx 1 ^JTextField
> (text :columns 40
> :listen
> [:action (fn [e]
> (let [
> search-str (text e)
> ]
> (when (not (empty? search-str))
> (function search-str))))
> ]))))
>
> At the moment I do not know how to set the font there.
>
> Is there also a way to increase/decrease the fontsize in the whole
> application. I now have amiddle and high resolution screen. It would
> be nice if when I put things on the other monitor, the fonts would
> scale.
>
> --
> Cecil Westerhof
>
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
