Simple clojure java interop (swing) program can't quite get it to work -

-

i close getting program below work. using lighttable. have included java exception @ end. passing in nil jdatepanelimpl constructor wrong, not sure how build property:

//this java definition public jdatepanelimpl(datemodel<?> model, properties i18nstrings) { ... } ​

this project.clj

(defproject jdatepickertest "0.1.0-snapshot"   :description "fixme: write description"   :url "http://example.com/fixme"   :license {:name "eclipse public license"             :url "http://www.eclipse.org/legal/epl-v10.html"}   :dependencies      [         [org.clojure/clojure "1.6.0"]         [org.jdatepicker/jdatepicker "1.3.4"]     ] )

code follows

(ns jdatepickertest.core)  (import    '(java.util enumeration locale properties resourcebundle)    '(org.jdatepicker jdatepicker jdatepanel)    '(org.jdatepicker.i18n)    '(org.jdatepicker.impl jdatepanelimpl jdatepickerimpl utildatemodel utilcalendarmodel) )  (locale. "pt")  (defn [] (new java.util.date))  (defn createutildatemodel[yyyy m d]   (doto (utildatemodel.) (.setdate yyyy m d) (.setselected true)))  (defn createjdatepanelimpl[model properties](jdatepanelimpl. model properties))  (defn createjdatepickerimpl[datepanel properties](jdatepickerimpl. datepanel properties))  (defn setmodeldefaultdate[model yyyy m d](. model setdate yyyy m d))  (defn getdefaultstrings[]   (doto(properties.)         (.put "text.today", "today")         (.put "text.nextmonth", "next month")         (.put "text.previousmonth", "previous month")         (.put "text.nextyear", "next year")         (.put "text.previousyear", "previous year")         (.put "text.clear", "clear")   ) )  (defn putitalltogether[]   (let [model    (createutildatemodel 2014 12 5)         prop     (getdefaultstrings)         jdpanel  (createjdatepanelimpl model prop)         jdpicker (createjdatepickerimpl jdpanel nil)]   ) )  ;(createutildatemodel 2014 12 5)  (defn putalittletogether[]   (let[model (createutildatemodel 2014 12 5)]))  ;(putalittletogether)  (putitalltogether)

ok here final program. please aware complete beginner clojure programmer, hence solution (with sof) may not idiomatic clojure. note code contains lines not used (e.g., locale), there because useful extend program. useful things try are, how display week @ time instead of day? month view? if clicks on day/week/month, how add listener gets passed date information clicked? can useful things cast java.sql.date (or clojure's equivalent) pass database function.

the next obvious thing learn how write unit tests these functions, don't know how do.

the project.clj file

(defproject jdatepickertest "0.1.0-snapshot"   :description "fixme: write description"   :url "http://example.com/fixme"   :license {:name "eclipse public license"             :url "http://www.eclipse.org/legal/epl-v10.html"}   :dependencies      [         [org.clojure/clojure "1.6.0"]         [org.jdatepicker/jdatepicker "1.3.4"]     ] )

the code core.clj

(ns jdatepickertest.core)  (import    '(java.util enumeration locale properties resourcebundle)    '(javax.swing jframe)    '(org.jdatepicker jdatepicker jdatepanel)    '(org.jdatepicker.i18n)    '(org.jdatepicker.impl jdatepanelimpl jdatepickerimpl utildatemodel utilcalendarmodel) )  (locale. "pt")  (defn [] (new java.util.date))  (defn createawindow[]   (doto(jframe. "hello frame")   (.setsize 400 200)   (.setvisible true)) )  (defn createutildatemodel[yyyy m d]   (doto (utildatemodel.) (.setdate yyyy m d) (.setselected true)))  (defn createjdatepanelimpl[model properties](jdatepanelimpl. model properties))  (defn createjdatepickerimpl[datepanel properties](jdatepickerimpl. datepanel properties))  (defn setmodeldefaultdate[model yyyy m d](. model setdate yyyy m d))  (defn getdefaultstrings[]   (doto(properties.)         (.put "text.today", "today")         (.put "text.nextmonth", "next month")         (.put "text.previousmonth", "previous month")         (.put "text.nextyear", "next year")         (.put "text.previousyear", "previous year")         (.put "text.clear", "clear")   ) )  (defn putitalltogether[]   (let [window   (createawindow)         model    (createutildatemodel 2014 12 5)         prop     (getdefaultstrings)         jdpanel  (createjdatepanelimpl model prop)         jdpicker (createjdatepickerimpl jdpanel nil)]          (.setcontentpane window jdpanel)   ) )  ;(createutildatemodel 2014 12 5)  (defn putalittletogether[]   (let[model (createutildatemodel 2014 12 5)]))  ;(putalittletogether)  (putitalltogether)

Comments

Post a Comment

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

-
i have write down code showing error ma not getting it: please help: showing mat not numerical tuple: import cv import cv2 capture = cv2.videocapture("j.3gp") while(1): _, frame1 = capture.read() grayimage1 = cv2.cvtcolor(frame1, cv2.color_bgr2gray) _, frame2 = capture.read() grayimage2 = cv2.cvtcolor(frame2, cv2.color_bgr2gray) differenceimage = cv2.absdiff(grayimage1,grayimage2) thresholdimage = cv2.threshold(differenceimage,25,255,cv2.thresh_binary) cv2.imshow("difference image", differenceimage) cv2.imshow("threshold image", thresholdimage) cv2.imshow("image", frame1) k = cv2.waitkey(30) & 0xff error arising : ----------------------------------------------------------------------------------------- traceback (most recent call last): file "desk.py", line 15, in <module> cv2.imshow("threshold image", thresholdimage) typeerror: mat not numerical tuple
Read more

c# - MSAA finds controls UI Automation doesn't -

-
i'm working on automating windows application. i'm using teststack white framework. i've hit problem. program has 'window' object cannot see inside of. white shows no controls inside of it. inspect.exe shows no controls inside of either when running in ui automation mode. if switch inspect msaa see controls inside fine. there anyway me use msaa c# handle on these controls? if can identify msaa functions need, can use p/invoke call them c#. here's example article doing msaa: http://www.codeproject.com/articles/38906/ui-automation-using-microsoft-active-accessibility also, pinvoke.net can used identify iaccessible (msaa) functions: http://www.pinvoke.net/search.aspx?search=iaccessible&namespace=[all] here's answer along lines: msaa com-based? finally, alternative p/invoke, might able use tlbimp.exe create wrapper assembly oleacc.dll, , access msaa functions through it. i'm not sure if works msaa, it's worth try. as e
Read more

wordpress - .htaccess: RewriteRule: bad flag delimiters -

-
pulling hair out on one. have following .htaccess file custom redirects in addition wordpress's default settings. when tested on local wamp server worked fine after moving production i'm not getting rewriterule: bad flag delimiters error in server log , after while site goes down internal server error any appreciated. in advance! <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^rockford_weddings___welcome\.html$ /wedding/ [r=301,l] rewriterule ^blog/?$ /journal/ [r=301,l] rewriterule ^blog/(.*)$ /$1 [r=301,l] rewriterule ^portraitinvestment/?$ /portraitinvestment\.pdf [r=301,l] rewriterule ^weddinginvestment/?$ /weddinginvestment\.pdf [r=301,l] rewriterule ^holidaycards2014/?$ /holidaycards2014\.pdf [r=301,l] </ifmodule> # begin wordpress <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^index\.php$ - [l] rewritecond %{request_filename} !-f rewritecond %{request_filename} !-d rewriterule . /index.php [l] </
Read more