I've also used the with-ns package in contrib to fix this. On Sep 10, 9:03 am, Laurent PETIT <laurent.pe...@gmail.com> wrote: > Got it. You cannot invoke (import) (or (ns)) from within the function > definition. The function is already being evaluated, and it's "too > late". > > This works fine for me: > > (do > (import '(javax.swing JOptionPane)) > ((fn [] > (println "Hello World") > (println (+ 2 2)) > (JOptionPane/showMessageDialog > nil "Hello from the text panel" "Greeting" > JOptionPane/INFORMATION_MESSAGE)))) > > So be aware that then some namespace will be changed by the call to > import (side effect on *ns*). > > I would suggest either you create a temporary namespace for the code > to execute, either as Sean suggested, you write the call to > JOptionPane static methods and fields fully qualified: > (javax.swing.JOptionPane/showMessageDialog ...) > > HTH, > > -- > Laurent > > 2010/9/10 Paul D. Fernhout <pdfernh...@kurtz-fernhout.com>: > > > I'm just trying out Clojure a bit, so this may be an obvious simple thing > > I'm misunderstanding. > > > This code in the test file below allows editing a Clojure function that is > > updated when an "Update Code" button is pressed, with the new value > > connected to a GUI button "Click Me!" as a proxy ActionListener. > > > It starts with a default function that has not been dynamically loaded from > > a string that pops up a JOptionPane that displays the text in the text pane. > > > Evaluating simple code like "(fn [] (println \"Hello World\"))" > > with no import dependencies works. > > > What am I doing wrong to not have the evaluated code have access to > > JOptionPane? > > > I get: > > > user=> Exception in thread "AWT-EventQueue-0" java.lang.Exception: No such > > namespace: JOptionPane (NO_SOURCE_FILE:6) > > > when I try the "Update Code" button. > > > The initial text includes an import statement. > > > What do I misunderstand that the import does not seem to work? > > > Anyway, I'm new to Clojure, so I don't really get the import or ns command > > that well yet. Any suggestions would be appreciated. Feel free to treat this > > code example as if it were in the public domain. > > > =========== guitest2.clj > > > (ns org.pointrel.guitest2 > > ;(:require ) > > ;(:use ) > > ;(:import ) > > ) > > > (import > > '(javax.swing JFrame JPanel JButton JOptionPane JTextPane) > > '(java.awt.event ActionListener)) > > > (defn hookupActionPerformed [receiver function] > > (println "updating hook" receiver function) > > (let [act (proxy [ActionListener] [] (actionPerformed [event] (function)))] > > (.addActionListener receiver act) > > ) > > ) > > > (def initial-text "(fn [] > > (println \"Hello World\") > > (println (+ 2 2)) > > ;(ns org.pointrel.guitest2) > > (import '(javax.swing JOptionPane)) > > (JOptionPane/showMessageDialog > > nil \"Hello from the text panel\" \"Greeting\" > > JOptionPane/INFORMATION_MESSAGE) > > )" > > ) > > > (defn window [] > > (def frame (JFrame. "Hello Frame")) > > > (def panel (JPanel.)) > > (.setContentPane frame panel) > > > (def test-button (JButton. "Click Me!")) > > (.add panel test-button) > > > (def update-button (JButton. "Update code")) > > (.add panel update-button) > > > (def text (JTextPane.)) > > (.setText text initial-text) > > (.add panel text) > > > (defn say-hello [] > > (let [text-contents (.getText text)] > > (JOptionPane/showMessageDialog > > nil text-contents "Greeting" > > JOptionPane/INFORMATION_MESSAGE))) > > > (hookupActionPerformed test-button say-hello) > > > (defn update-code [] > > (let [text-contents (.getText text) > > discard (printf text-contents) > > user-function (load-string text-contents)] > > (println "update-code") > > (.removeActionListener test-button (aget (.getListeners test-button > > ActionListener) 0)) > > (hookupActionPerformed test-button user-function) > > )) > > > (hookupActionPerformed update-button update-code) > > > (.setSize frame 200 200) > > (.setVisible frame true) > > ) > > > (window) > > > ; (eval (read-string "(println \"Hello World\")")) > > ; (load-string "(fn [] (println \"Hello World\"))") > > ; (eval ((fn [] (println "Hello World2")))) > > > =========== > > > There's probably stylistic issue, too. :-) > > > By the way, the println calls don't seem to show up in NetBeans 6.9.1 with > > Enclojure after the window opens, and when I try to use code that generates > > an error I get "Repl is disconnected" that I don't know how to recover from > > without restarting NetBeans, so I am testing this with: > > > $ java -cp jline-0.9.94.jar:clojure.jar jline.ConsoleRunner clojure.main > > Clojure 1.2.0 > > user=> (load-file "guitest2.clj") > > > --Paul Fernhout > >http://www.pdfernhout.net/ > > ==== > > The biggest challenge of the 21st century is the irony of technologies of > > abundance in the hands of those thinking in terms of scarcity. > > > -- > > You received this message because you are subscribed to the Google > > Groups "Clojure" group. > > To post to this group, send email to clojure@googlegroups.com > > Note that posts from new members are moderated - please be patient with your > > first post. > > To unsubscribe from this group, send email to > > clojure+unsubscr...@googlegroups.com > > 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 post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en
