/src/slix/log_viewer.clj

 1;; %! Copyright (C) 2011 Kei Suzuki  All rights reserved. !%
 2;; 
 3;; This file is part of Sevenri, a Clojure environment ("This Software").
 4;; 
 5;; The use and distribution terms for this software are covered by the Eclipse
 6;; Public License version 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
 7;; which can be found in the COPYING at the root of this distribution.
 8;; By using this software in any fashion, you are agreeing to be bound by the
 9;; terms of this license.
10;; You must not remove this notice, or any other, from this software.
11
12(ns ^{:slix true :singleton true}
13  slix.log-viewer
14  (:use [sevenri slix]
15        [slix.log-viewer core ui]))
16
17;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18
19(defn frame-created
20  [event]
21  (add-ui))
22
23(defn opened
24  [event]
25  (start-view-log)
26  (set-slix-visible))