Window 没有出现在 Mac OS X 上使用 Clojure
Window does not appear using Clojure on Mac OS X
我正在研究 "The Joy of Clojure",并进入了关于在 window 中显示一些图形的部分。我与 REPL 的互动如下。按照书上的说法,这应该会让一个小window出现。 Awindow没有出现。
我是 运行 Mac OS X 小牛队。
nREPL server started on port 54014 on host 127.0.0.1 - nrepl://127.0.0.1:54014
REPL-y 0.3.1
Clojure 1.6.0
Docs: (doc function-name-here)
(find-doc "part-of-name-here")
Source: (source function-name-here)
Javadoc: (javadoc java-object-or-class-here)
Exit: Control+D or (exit) or (quit)
Results: Stored in vars *1, *2, *3, an exception in *e
user=> (def frame (java.awt.Frame.))
#'user/frame
user=> (.setVisible frame true)
nil
user=> (.setSize frame (java.awt.Dimension. 200 200))
nil
user=> frame
#<Frame java.awt.Frame[frame0,0,22,200x200,layout=java.awt.BorderLayout,title=,resizable,normal]>
user=>
该框架确实启动了,但它可能不是很明显,因为在执行您指定的表单时它将是一个小的空框架。
你应该把边框放大,然后画一些显眼的东西,例如:
(def frame (java.awt.Frame.))
(.setVisible frame true)
(.setSize frame (java.awt.Dimension. 400 400))
(def gfx (.getGraphics frame))
(.setColor gfx (java.awt.Color/GREEN))
(.fillOval gfx 100 100 200 300)
(.toFront frame)
我正在研究 "The Joy of Clojure",并进入了关于在 window 中显示一些图形的部分。我与 REPL 的互动如下。按照书上的说法,这应该会让一个小window出现。 Awindow没有出现。
我是 运行 Mac OS X 小牛队。
nREPL server started on port 54014 on host 127.0.0.1 - nrepl://127.0.0.1:54014
REPL-y 0.3.1
Clojure 1.6.0
Docs: (doc function-name-here)
(find-doc "part-of-name-here")
Source: (source function-name-here)
Javadoc: (javadoc java-object-or-class-here)
Exit: Control+D or (exit) or (quit)
Results: Stored in vars *1, *2, *3, an exception in *e
user=> (def frame (java.awt.Frame.))
#'user/frame
user=> (.setVisible frame true)
nil
user=> (.setSize frame (java.awt.Dimension. 200 200))
nil
user=> frame
#<Frame java.awt.Frame[frame0,0,22,200x200,layout=java.awt.BorderLayout,title=,resizable,normal]>
user=>
该框架确实启动了,但它可能不是很明显,因为在执行您指定的表单时它将是一个小的空框架。
你应该把边框放大,然后画一些显眼的东西,例如:
(def frame (java.awt.Frame.))
(.setVisible frame true)
(.setSize frame (java.awt.Dimension. 400 400))
(def gfx (.getGraphics frame))
(.setColor gfx (java.awt.Color/GREEN))
(.fillOval gfx 100 100 200 300)
(.toFront frame)