(****************************************************************)
(*                                                              *)
(*       GPM example for OS/2 Presentation Manager	        *)
(*             Custom Control Definition Module                 *)
(*                                                              *)
(****************************************************************)

DEFINITION MODULE SpinCube;

  FROM OS2 IMPORT HAB;

  CONST SS_ERASE      = BITSET{0};     (* Spincube window styles *)
        SS_INMOTION   = BITSET{1};

        SPINCUBECLASS = "Spincube";

  PROCEDURE SpinCubeInit(hab : HAB);

END SpinCube.
