← Back to branch summary

~gthorslund/sag/logic-vs-gui-reorg

« back to all changes in this revision

Viewing changes to sag-othello-board.adb

  • Committer: Gustaf Thorslund
  • Date: 2010-09-29 04:27:04 UTC
  • Revision ID: gustaf@thorslund.org-20100929042704-ylfv9yh3102upxak
Board_Base is not a controlled type anymore so Adjust, Finalize, and
Initialize should be gone from SAG.Othello.Board's body too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
sag-othello-board.adb
1
1
package body SAG.Othello.Board is
2
2
 
3
 
   ------------
4
 
   -- Adjust --
5
 
   ------------
6
 
 
7
 
   procedure Adjust (Object : in out Othello_Board) is
8
 
   begin
9
 
      --  Generated stub: replace with real body!
10
 
      raise Program_Error;
11
 
   end Adjust;
12
 
 
13
 
   --------------
14
 
   -- Finalize --
15
 
   --------------
16
 
 
17
 
   procedure Finalize (Object : in out Othello_Board) is
18
 
   begin
19
 
      --  Generated stub: replace with real body!
20
 
      raise Program_Error;
21
 
   end Finalize;
22
 
 
23
 
   ----------------
24
 
   -- Initialize --
25
 
   ----------------
26
 
 
27
 
   procedure Initialize (Object : in out Othello_Board) is
28
 
   begin
29
 
      --  Generated stub: replace with real body!
30
 
      raise Program_Error;
31
 
   end Initialize;
32
 
 
33
3
   ---------
34
4
   -- Get --
35
5
   ---------