Question

我正在研究一个简单的clojure扫雷游戏，主要是为了锻炼一下这个语言。＆＃34;核心游戏引擎＆＃34;准备就绪，现在我想添加一个简单的用户界面。我查看了seesaw，到目前为止它工作得非常好。

我唯一要努力的是我想要使用的mig layout。我的想法是采用以下布局：

 _______________________
[_________NORTH_________]
[   ][             ][   ]
[ W ][    FIXED    ][ E ]
[ E ][    SIZE     ][ A ]
[ S ][    BOARD    ][ S ]
[ T ][             ][ T ]
[___][_____________][___]
[_________SOUTH_________]

在调整窗口大小的情况下，北，西，东，南应该增长。主面板应具有固定尺寸，所有按钮代表游戏板。

在我阅读有关mig布局之前，我考虑使用包含网格面板的边框面板，但是在seesaw github页面上提到：

Seesaw在seesaw.core / form-panel函数中对GridBagLayout提供了基本的支持。我不推荐使用它，因为它不像使用MigLayout（seesaw.mig）或JGoodies（seesaw.forms）那样半生不熟。

我想试试MigLayout。我的第一次尝试：

(defn make-border-panel 
[]
(mig-panel 
 :constraints ["fill" "[grow][][grow]" "[grow][][grow]"]
 :items [ 
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["X"                  "shrink 0"  ]
       ["Minesweeper North"  "dock north"]
       ["W"                  "dock west" ]
       ["E"                  "dock east" ]
       ["Minesweeper South"  "dock south"]
      ]))

更新1

我暂时忽略了北，南，西，东，并做了以下事情，至少得到了中心板：

(defn make-button [x y]
   (button :id (format "cell_%d_%d" x y)
           :icon (clojure.java.io/resource "minesweeper/icons/button.png")))


(defn make-board
  [w h]
  (mig-panel 
      :constraints [(str "wrap" w) "[]" "[]" ]
      :items (for [x (range w) y (range h)]  
          (vector (make-button x y) "w 24px!, h 24px!"))))

Answer 1

我意识到我的扫雷游戏并不需要WEST和EAST面板。我的最终布局如下：

 _____________
[____NORTH____]
[             ]
[             ]
[   CENTER    ]
[             ]
[_____________]
[____SOUTH____]

中心本身是另一个包含代表地雷的按钮的面板。 clojure中的代码如下所示：

(defn make-layout
  [rows cols level]
  (mig-panel
   :constraints ["wrap1" "[center]" "[][]" ]
   :items       [[(make-info-panel)]
                [(make-board-panel rows cols level)]]))


(defn make-board-panel
  [rows cols level]
  (let [bg (button-group)]
    (mig-panel
     :constraints [(str "gap 0, wrap" rows) "[]" "[]" ]
     :items       (for [row (range rows) col (range cols)]
                    (vector (make-button row col level bg) "w 24px!, h 24px!")))))

如何为简单的扫雷游戏创建MigLayout？

1 个答案: