在leiningen主要回報後繼續運行應用程序

在我的clojure應用程序中，我有一個JavaFX窗口，應用程序在主函數返回後關閉。我希望應用程序保持打開狀態，直到用戶關閉窗口（或從菜單中選擇「退出」或其他）。在leiningen主要回報後繼續運行應用程序

我該怎麼做？

這裏的core.clj文件，最後20行左右是相關的人：「Hello World」的

(ns pdb-java-client.core 
    (:gen-class) 
    (:import (javafx.scene.control LabelBuilder))) 



;; JavaFX UI 

(import '(javafx.scene SceneBuilder) 
     '(javafx.scene.canvas CanvasBuilder Canvas GraphicsContext) 
     '(javafx.scene.control ButtonBuilder) 
     '(javafx.scene.layout VBoxBuilder) 
     '(javafx.scene.image WritableImage PixelWriter) 
     '(javafx.scene.transform Scale Translate) 
     '(javafx.stage StageBuilder)) 

; instead of extending javafx.application.Application 
(defonce force-toolkit-init (javafx.embed.swing.JFXPanel.)) 

; some helper functions and macros to make JavaFX easier to type 
(defn run-later* 
    [f] 
    (javafx.application.Platform/runLater f)) 

(defmacro run-later 
    [& body] 
    `(run-later* (fn [] [email protected]))) 

(defn run-now* 
    [f] 
    (let [result (promise)] 
    (run-later 
     (deliver result (try (f) (catch Throwable e e)))) 
    @result)) 

(defmacro run-now 
    [& body] 
    `(run-now* (fn [] [email protected]))) 

(defn event-handler* 
    [f] 
    (reify javafx.event.EventHandler 
    (handle [this e] (f e)))) 

(defmacro event-handler [arg & body] 
    `(event-handler* (fn ~arg [email protected]))) 

(def stage (atom nil)) 

; build a scene 
(run-now (reset! stage (.. StageBuilder create 
          (title "Fracjure") 
          (scene (.. SceneBuilder create 
             ;(height 480) (width 640) 
             (root (.. VBoxBuilder create 
               ;(minHeight 480) (minWidth 640) 
               (children [(.. LabelBuilder create 
                   (text "Hello World!") 
                   build)]) 
               build)) 
             build)) 
          build))) 

;(run-now (.show @stage)) 


(defn -main 
    "I don't do a whole lot ... yet." 
    [& args] 
    (println "Hello, World!") 
    (run-now (.show @stage)))

注意的是，上面的代碼工作，則顯示JavaFX的窗口說，「你好，世界！「打印到終端，然後程序退出。

來源

2014-12-03 Jason

我發現在Mac OS/X優勝美地和JavaFX支持中存在錯誤。事實上，它有時會使我的整個計算機崩潰。我向蘋果提出了一項支持請求，他們意識到這個問題。這個問題可能與該錯誤有關。 – Jason 2015-01-22 15:14:27

最後一行更改爲

(run-now (.showAndWait @stage)))

來源

2014-12-03 21:35:54 Jason

雖然這個答案有效，但它似乎不符合JavaFX標準，我懷疑它可能會在其他地方爲複雜應用程序導致問題。 – Jason 2016-05-05 15:01:38

另一種可能性，也許更強大，符合標準的，是提供的JavaFX的Application類的實現。

您可以在您的Leiningen項目中的Java代碼

package mypackage; 

import javafx.application.Application; 
import javafx.stage.Stage; 

public class MyApplication extends Application { 
    @Override 
    public void start(Stage primaryStage) throws Exception { 
     // Do nothing. This is just to get JavaFX started properly. 
    } 
    public static void initJavaFXApplication() { 
     Application.launch(); 
    } 
}

然後從Clojure的來電：

(MyApplication/initJavaFXApplication)

Leiningen支持通過添加以下行到project.clj有Java和Clojure的來源文件：

:source-paths ["src/clojure"] 
:java-source-paths ["src/java"]

並更新您的目錄結構因此。

來源

2016-05-05 15:01:00 Jason

在leiningen主要回報後繼續運行應用程序

回答

相關問題