1 /****************************************************************************
4 Copyright (c) 2001 Jerome Jacovella-St-Louis
7 promotion.c - Pawn Promotion Window
8 ****************************************************************************/
11 class Promotion : Window
13 background = gray, text = "Pawn Promotion", borderStyle = fixed, tabCycle = true,
14 minClientSize = Size { 120, 140 };
16 bool ButtonClicked(Button button, int x, int y, Modifiers mods)
24 parent = this, bevel = true, text = "Knight", position = Point { 20, 10 },
25 size = Size { 80, 20 }, id = PieceType::Knight, NotifyClicked = ButtonClicked
29 parent = this, bevel = true, text = "Bishop", position = Point { 20, 35 },
30 size = Size { 80, 20 }, id = PieceType::Bishop, NotifyClicked = ButtonClicked
34 parent = this, bevel = true, text = "Rook", position = Point { 20, 60 },
35 size = Size { 80, 20 }, id = PieceType::Rook, NotifyClicked = ButtonClicked
39 parent = this, bevel = true, text = "Queen", position = Point { 20, 85 },
40 size = Size { 80, 20 }, id = PieceType::Queen, NotifyClicked = ButtonClicked,