c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
35 lines
561 B
Text
35 lines
561 B
Text
' Gambas class file
|
|
|
|
PUBLIC SUB cmdCancel_Click()
|
|
|
|
FBoardSelect.Close
|
|
|
|
END
|
|
|
|
PUBLIC SUB Form_Show()
|
|
|
|
DIM i AS Byte
|
|
|
|
' Fill in the combo box text section
|
|
cboLayout.Text = Global.boarddesign[Global.selectedlayout].Name
|
|
|
|
' Fill in the combo box dropdown section
|
|
FOR i = 0 TO Global.boarddesign.Count - 1
|
|
cboLayout.Add(Global.boarddesign[i].Name)
|
|
NEXT
|
|
|
|
END
|
|
|
|
|
|
PUBLIC SUB cmdOK_Click()
|
|
|
|
' Set board layout index
|
|
Global.selectedlayout = cboLayout.Index
|
|
|
|
' Reset board
|
|
FGameArea.reset_board()
|
|
|
|
' Close this window
|
|
FBoardSelect.Close
|
|
|
|
END
|