hello
          Last active
          October 13, 2015 12:33 
        
      - 
      
- 
        Save lildata/34a55d55fe5775d61760 to your computer and use it in GitHub Desktop. 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | (listen (select root [:#full]) :action (fn [e] (toggle-full-screen! root))) | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | (def static-popup | |
| (popup :items ["HI" "BYE"])) | |
| ; simply def vs defn, beautiful ! | |
| (defn dynamic-popup | |
| [event] | |
| [(str "HI-" (rand)) "BYE"]) | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | ; cool | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | (scrollable | |
| (table-x :model [:columns [:name :file :line] | |
| :rows (map (comp meta val) (ns-publics 'seesaw.core))] | |
| :horizontal-scroll-enabled? true)) | 
  
    Sign up for free
    to join this conversation on GitHub.
    Already have an account?
    Sign in to comment