simon/swingbox-clj
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into develo

Browse source
This commit is contained in:
Simon Brooke 2019-08-03 09:51:03 +01:00
parent fdbf1dc7ad 91ba9d7df8
commit 7db4993688
1 changed files with 27 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/swingbox_clj/core.clj
View file

@ -3,6 +3,8 @@
java.io.File
java.net.URI
javax.swing.JFrame
javax.swing.JScrollPane
javax.swing.ScrollPaneConstants
org.fit.cssbox.swingbox.BrowserPane)
(:require [hiccup.core :refer [html]]
[markdown.core :as md]
@ -26,15 +28,38 @@
([] (create-window nil))
([title]
(let [frame (JFrame. (if title (str title) "Untitled Window"))
browser (BrowserPane.)]
browser (BrowserPane.)
scroller (JScrollPane.
browser
javax.swing.ScrollPaneConstants/VERTICAL_SCROLLBAR_AS_NEEDED
javax.swing.ScrollPaneConstants/HORIZONTAL_SCROLLBAR_AS_NEEDED)]
(.setText browser "") ;; window won't open if content is not added to the
;; browser before the browser is added to the frame.
;; you can change the content later.
(.add frame browser)
(.add frame scroller)
(.pack frame)
{:frame frame
:browser browser})))
;; private JPanel createXPathQueryPanel() {
;; JPanel p = new JPanel();
;; p.setLayout(new BorderLayout());
;; xpathQueryArea.setBorder(BorderFactory.createLineBorder(Color.black));
;; makeTextComponentUndoable(xpathQueryArea);
;; JScrollPane scrollPane = new JScrollPane(xpathQueryArea);
;; scrollPane.setHorizontalScrollBarPolicy(ScrollPaneConstants.HORIZONTAL_SCROLLBAR_AS_NEEDED);
;; scrollPane.setVerticalScrollBarPolicy(ScrollPaneConstants.VERTICAL_SCROLLBAR_AS_NEEDED);
;; final JButton b = createGoButton();
;; JPanel topPanel = new JPanel();
;; topPanel.setLayout(new BorderLayout());
;; topPanel.add(new JLabel("XPath Query (if any):"), BorderLayout.WEST);
;; topPanel.add(createXPathVersionPanel(), BorderLayout.EAST);
;; p.add(topPanel, BorderLayout.NORTH);
;; p.add(scrollPane, BorderLayout.CENTER);
;; p.add(b, BorderLayout.SOUTH);
;; return p;
;; }
(defn set-content
"Set the content of the browser in this `window` to this `content,` which may
be