]> git.saurik.com Git - wxWidgets.git/blobdiff - src/mac/carbon/aga.cpp
moved win_gtk.h header to wx/gtk/private, it's for internal use only
[wxWidgets.git] / src / mac / carbon / aga.cpp
index d356a5ac1d93380f407fe47664a746939a78bc69..543fc1013707688b45cc4a4ccd0f2106581d22ad 100644 (file)
-#include <wx/mac/uma.h>
-#include <wx/mac/aga.h>
-
-#if !TARGET_CARBON
-
-#include <extcdef.h>
-#include <PictUtils.h>
-
-pascal SInt32 AGAProgressBarDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param);
-pascal SInt32 AGAPlacardDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param);
-pascal SInt32 AGAStaticTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param) ;
-pascal SInt32 AGAListControlDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param) ;
-pascal SInt32 AGAEditTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param) ;
-pascal SInt32 AGAStaticGroupBoxTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param) ;
-
-#define B                                                                                                              13
-#define        W                                                                                                               0
-
-SInt16 kAGARootControlProcID ;
-int gAGABackgroundColor = 0 ;
-
-const RGBColor gAGAColorArray[] = {    {0xFFFF, 0xFFFF, 0xFFFF},               //      W
-                                       {0xEEEE, 0xEEEE, 0xEEEE},       //      1
-                                       {0xDDDD, 0xDDDD, 0xDDDD},       //      2
-                                       {0xCCCC, 0xCCCC, 0xCCCC},       //      3
-                                       {0xBBBB, 0xBBBB, 0xBBBB},       //      4
-                                       {0xAAAA, 0xAAAA, 0xAAAA},       //      5
-                                       {0x9999, 0x9999, 0x9999},       //      6
-                                       {0x8888, 0x8888, 0x8888},               //      7
-                                       {0x7777, 0x7777, 0x7777},               //      8
-                                       {0x6666, 0x6666, 0x6666},               //      9
-                                       {0x5555, 0x5555, 0x5555},               //      10
-                                       {0x4444, 0x4444, 0x4444},               //      11
-                                       {0x2222, 0x2222, 0x2222},               //      12
-                                       {0x0000, 0x0000, 0x0000}                //      B
-};
-
-char LAGADefaultOutline_mCorners[4][5][5] =    {
-  //   topleft
-  {
-    { -1, -1, -1, 12,  B },
-    { -1, -1,  B,  2,  2 },
-    { -1,  B,  2,  2,  5 },
-    { 12,  2,  2,  2,  8 },
-    {  B,  2,  5,  8, -1 }
-  },
-  //   topright
-  {
-    {  B, 12, -1, -1, -1 },
-    {  2,  3,  B, -1, -1 },
-    {  5,  5,  4,  B, -1 },
-    {  8,  5,  5,  7, 12 },
-    { -1,  8,  5,  8,  B }
-  },
-  //   bottomleft
-  {
-    {  B,  2,  5,  8, -1 },
-    { 12,  3,  5,  5,  8 },
-    { -1,  B,  4,  5,  5 },
-    { -1, -1,  B,  7,  8 },
-    { -1, -1, -1, 12,  B }
-  },
-  //   bottomright
-  {
-    { -1,  8,  5,  8,  B },
-    {  8,  5,  7,  8, 12 },
-    {  5,  7,  8,  B, -1 },
-    {  8,  8,  B, -1, -1 },
-    {  B, 12, -1, -1, -1 }
-  }
-};
-
-char LAGAPushButton_mCorners[3][4][4][4] =     {
-  //   Enabled
-  {
-    // topleft
-    {
-      { -1, -1, 12,  B },
-      { -1,  B,  4,  2 },
-      { 12,  4,  W,  W },
-      {  B,  2,  W,  W }
-    },
-    // topright
-    {
-      {  B, 12, -1, -1 },
-      {  2,  4,  B, -1 },
-      {  W,  2,  5, 12 },
-      {  2,  5,  8,  B }
-    },
-    // bottomleft
-    {
-      {  B,  2,  W,  2 },
-      { 12,  4,  2,  5 },
-      { -1,  B,  4,  8 },
-      { -1, -1, 12,  B }
-    },
-    // bottomright
-    {
-      {  5,  5,  8,  B },
-      {  5,  8,  8, 12 },
-      {  8,  8,  B, -1 },
-      {  B, 12, -1, -1 }
-    }
-  },
-  //   Pressed
-  {
-    // topleft
-    {
-      { -1, -1, 12,  B },
-      { -1,  B, 10,  8 },
-      { 12, 10,  8,  4 },
-      {  B,  8,  4,  4 }
-    },
-    // topright
-    {
-      {  B, 12, -1, -1 },
-      {  8, 10,  B, -1 },
-      {  4,  4,  8, 12 },
-      {  4,  4,  4,  B }
-    },
-    // bottomleft
-    {
-      {  B,  8,  4,  4 },
-      { 12, 10,  4,  4 },
-      { -1,  B, 10,  4 },
-      { -1, -1, 12,  B }
-    },
-    // bottomright
-    {
-      {  4,  4,  4,  B },
-      {  4,  4, 10, 12 },
-      {  4, 10,  B, -1 },
-      {  B, 12, -1, -1 }
-    }
-  },
-  //   Disabled
-  {
-    // topleft
-    {
-      { -1, -1,  7,  7 },
-      { -1,  7,  4,  2 },
-      {  7,  4,  1,  1 },
-      {  7,  2,  1,  1 }
-    },
-    // topright
-    {
-      {  7,  7, -1, -1 },
-      {  2,  4,  7, -1 },
-      {  1,  2,  4,  7 },
-      {  2,  4,  5,  7 }
-    },
-    // bottomleft
-    {
-      {  7,  2,  1,  2 },
-      {  7,  4,  2,  4 },
-      { -1,  7,  4,  5 },
-      { -1, -1,  7,  7 }
-    },
-    // bottomright
-    {
-      {  4,  4,  5,  7 },
-      {  4,  5,  5,  7 },
-      {  5,  5,  7, -1 },
-      {  7,  7, -1, -1 }
-    }
-  }
-};
-
-RGBColor gAGARamp[] =
-{
-       /* black */
-       { 0 , 0 , 0 } ,
-       /* white */
-       { 65535 , 65535 , 65535 } ,
-       /* 1 */
-       { 61166 , 61166 , 61166 } ,
-       /* 2 */
-       { 56797 , 56797 , 56797 } ,
-       /* 3 */
-       { 52428 , 52428 , 52428 } ,
-       /* 4 */
-       { 48059 , 48059 , 48059 } ,
-       /* 5 */
-       { 43690 , 43690 , 43690 } ,
-       /* 6 */
-       { 39321 , 39321 , 39321 } ,
-       /* 7 */
-       { 34952 , 34952 , 34952 } ,
-       /* 8 */
-       { 30583 , 30583 , 30583 } ,
-       /* 9 */
-       { 26214 , 26214 , 26214 } ,
-       /* 10 */
-       { 21845 , 21845 , 21845 } ,
-       /* 11 */
-       { 17476 , 17476 , 17476 } ,
-       /* 12 */
-       { 13107 , 13107 , 13107 } ,
-       /* A1 */
-       { 8738 , 8738 , 8738 } ,
-       /* A2 */
-       { 4369 , 4369 , 4369 } ,
-       
-} ;
-
-RGBColor gAGABlueRamp[] =
-{
-       /* black */
-       { 0 , 0 , 0 } ,
-       /* white */
-       { 65535 , 65535 , 65535 } ,
-       /* 1 */
-       { 61166 , 61166 , 65535 } ,
-       /* 2 */
-       { 56797 , 56797 , 65535 } ,
-       /* 3 */
-       { 52428 , 52428 , 65535 } ,
-       /* 4 */
-       { 48059 , 48059 , 65535 } ,
-       /* 5 */
-       { 43690 , 43690 , 65535 } ,
-       /* 6 */
-       { 39321 , 39321 , 65535 } ,
-       /* 7 */
-       { 34952 , 34952 , 65535 } ,
-       /* 8 */
-       { 30583 , 30583 , 65535 } ,
-       /* 9 */
-       { 26214 , 26214 , 65535 } ,
-       /* 10 */
-       { 21845 , 21845 , 65535 } ,
-       /* 11 */
-       { 17476 , 17476 , 65535 } ,
-       /* 12 */
-       { 13107 , 13107 , 65535 } ,
-       /* A1 */
-       { 8738 , 8738 , 65535 } ,
-       /* A2 */
-       { 4369 , 4369 , 65535 } ,
-       
-} ;
-
-enum eAGARampColor { 
-       kAGATransparent = -1 ,
-       kAGABlack = 0 ,
-       kAGAWhite = 1 ,
-       kAGA1 = 2 ,
-       kAGA2 = 3 ,
-       kAGA3 = 4 ,
-       kAGA4 = 5 ,
-       kAGA5 = 6 ,
-       kAGA6 = 7 ,
-       kAGA7 = 8 ,
-       kAGA8 = 9 ,
-       kAGA9 = 10 ,
-       kAGA10 = 11 ,
-       kAGA11 = 12 ,
-       kAGA12 = 13 ,
-       kAGAA1 = 14 ,
-       kAGAA2 = 15 ,
-} ;
-// defprocs
-
-enum eAGAState {
-       kAGAStateEnabled = 0 ,
-       kAGAStatePressed = 1 ,
-       kAGAStateDisabled = 2 ,
-       kAGAStateInactive = 3 
-} ;
-
-/*
-typedef struct sControlData
-{
-       ControlPartCode         m_part ;
-       ResType                                         m_tag ;
-       Size                                                    m_size ;
-} ;
-
-OSErr AGAFindControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName , long *outOffset) ;
-OSErr AGAFindControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName , long *outOffset) 
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       long offset = 0 ;
-       long size = GetHandleSize( info->data ) ;
-       char* data = *(info->data) ;
-       sControlData* current ;
-       while( offset + sizeof( sControlData ) <= size )
-       {
-               current = (sControlData*) (data+offset ) ;
-               if ( ( inPart == kControlEntireControl || inPart == current->m_part ) && inTagName == current->m_tag )
-               {
-                       *outOffset = offset ;
-                       return noErr ;
-               }
-       }
-       return errDataNotSupported ; // nothing found
-}
-
-OSErr AGARemoveControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName ) ;
-OSErr AGARemoveControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName ) 
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       long offset = 0 ;
-       long size = GetHandleSize( info->data ) ;
-       char* data = *(info->data) ;
-       sControlData* current ;
-       while( offset + sizeof( sControlData ) <= size )
-       {
-               current = (sControlData*) (data+offset ) ;
-               if ( ( inPart == kControlEntireControl || inPart == current->m_part ) && inTagName == current->m_tag )
-               {
-                       long chunkSize = current->m_size + sizeof ( sControlData ) ;
-                       memcpy( data + offset , data + offset + chunkSize , size - offset - chunkSize ) ;
-                       SetHandleSize( info->data , size - chunkSize ) ;
-                       return noErr ;
-               }
-       }
-       return noErr ;
-}
-
-OSErr AGAAddControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName , Size   inSize, Ptr inData) ;
-OSErr AGAAddControlData( ControlHandle inControl , ControlPartCode inPart , ResType inTagName , Size   inSize, Ptr inData) 
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       long offset = 0 ;
-       long size = GetHandleSize( info->data ) ;
-       SetHandleSize( info->data , size + sizeof( sControlData ) + inSize ) ;
-       if (  MemError() == noErr )
-       {
-               char* data = *(info->data) ;
-               sControlData* current = (sControlData*)( data + size ) ;
-               current->m_tag = inTagName ;
-               current->m_part = inPart ;
-               current->m_size = inSize ;
-               memcpy( data + size + sizeof( sControlData ) , inData , inSize ) ;
-               return noErr ;
-       }
-       return errDataNotSupported ;
-}
-
-
-OSErr AGAGetControlDataSize                            (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size *                                 outMaxSize)
-{
-       long offset ;
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       char* data = *(info->data) ;
-       
-       OSErr err = AGAFindControlData( inControl , inPart , inTagName , &offset ) ;
-       if ( !err )
-       {
-               sControlData* current = (sControlData*) (data+offset ) ;
-               *outMaxSize = current->m_size ;
-       }
-       return err ;
-}
-
-OSErr AGAGetControlData                                        (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size                                   inBufferSize,
-                                                                Ptr                                    outBuffer,
-                                                                Size *                                 outActualSize)
-{
-       long offset ;
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       char* data = *(info->data) ;
-       
-       OSErr err = AGAFindControlData( inControl , inPart , inTagName , &offset ) ;
-       if ( !err )
-       {
-               sControlData* current = (sControlData*) (data+offset ) ;
-               *outActualSize = current->m_size ;
-               if ( outBuffer )
-               {
-                       if ( inBufferSize <= current->m_size )
-                               memcpy( outBuffer , data + offset + sizeof( sControlData )  , current->m_size ) ;
-                       else
-                               err = errDataNotSupported ;
-               }
-       }
-       return err ;    
-}
-
-OSErr AGASetControlData                                        (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size                                   inSize,
-                                                                Ptr                                    inData)
-{
-       long offset ;
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       char* data = *(info->data) ;
-       
-       OSErr err = AGAFindControlData( inControl , inPart , inTagName , &offset ) ;
-       if ( !err )
-       {
-               sControlData* current = (sControlData*) (data+offset ) ;
-               if ( current->m_size == inSize )
-               {
-                               memcpy( data + offset + sizeof( sControlData )  , inData , inSize) ;
-               }
-               else
-               {
-                       AGARemoveControlData( inControl , inPart , inTagName ) ;
-                       AGAAddControlData( inControl , inPart , inTagName , inSize , inData ) ;
-               }
-       }
-       else
-       {
-               AGAAddControlData( inControl , inPart , inTagName , inSize , inData ) ;
-       }
-       return err ;    
-}
-*/
-
-OSErr AGASetControlFontStyle                           (ControlHandle                  inControl,
-                                                                const ControlFontStyleRec * inStyle)   
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       if ( inStyle->flags == 0 )
-       {
-               // back to defaults
-       }
-       else
-       {
-               if ( inStyle->flags & kControlUseFontMask )
-               {
-                       info->fontStyle.font = inStyle->font ;
-               }
-               if ( inStyle->flags & kControlUseSizeMask )
-               {
-                       info->fontStyle.size = inStyle->size ;
-               }
-               if ( inStyle->flags & kControlUseFaceMask )
-               {
-                       info->fontStyle.style = inStyle->style ;
-               }
-               if ( inStyle->flags & kControlUseModeMask )
-               {
-                       info->fontStyle.mode = inStyle->mode ;
-               }
-               if ( inStyle->flags & kControlUseJustMask )
-               {
-                       info->fontStyle.just = inStyle->just ;
-               }
-               if ( inStyle->flags & kControlUseForeColorMask )
-               {
-                       info->fontStyle.foreColor = inStyle->foreColor ;
-               }
-               if ( inStyle->flags & kControlUseBackColorMask )
-               {
-                       info->fontStyle.backColor = inStyle->backColor ;
-               }
-       }
-       return noErr ;
-}
-
-OSErr AGASetControlData                                        (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size                                   inSize,
-                                                                Ptr                                    inData)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       ControlDataAccessRec rec ;
-       
-       rec.tag = inTagName ;
-       rec.part = inPart ;
-       rec.size = inSize ;
-       rec.dataPtr = inData ;
-       
-       return info->defProc( info->procID , inControl , kControlMsgSetData , (long) &rec ) ;
-}
-
-SInt16 AGAHandleControlKey                             (ControlHandle                  inControl,
-                                                                SInt16                                 inKeyCode,
-                                                                SInt16                                 inCharCode,
-                                                                SInt16                                 inModifiers) 
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       ControlKeyDownRec rec ;
-       
-       rec.modifiers = inModifiers ;
-       rec.keyCode = inKeyCode ;
-       rec.charCode = inCharCode ;
-       
-       return info->defProc( info->procID , inControl , kControlMsgKeyDown , (long) &rec ) ;
-}
-
-ControlPartCode AGAHandleControlClick                          (ControlHandle                  inControl,
-                                                                Point                                  inWhere,
-                                                                SInt16                                 inModifiers,
-                                                                ControlActionUPP               inAction)       
-{
-       return TrackControl( inControl , inWhere , inAction ) ;
-}
-
-Boolean AGATestForNewControl( ControlHandle inControl )
-{
-       if ( (**inControl).contrlRfCon  > 0x100 && !( (**inControl).contrlRfCon % 2 ) )
-       {
-                       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-                       return info->magic == kExtCDEFMagic ;
-       }
-       return FALSE ;
-}
-void AGAIdleControls                                   (WindowPtr                              inWindow) 
-{
-       ControlHandle iter = (ControlHandle) ((WindowPeek)inWindow)->controlList ; 
-       while ( iter )
-       {
-               if ( AGATestForNewControl( iter ) )
-               {
-                       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**iter).contrlRfCon ;
-                       if ( info->defProc( info->procID , iter , kControlMsgTestNewMsgSupport , 0 ) == kControlSupportsNewMessages )
-                       {
-                               if ( info->defProc( info->procID , iter , kControlMsgGetFeatures , 0 ) & kControlWantsIdle )
-                               {
-                                       info->defProc( info->procID , iter , kControlMsgIdle , 0 ) ;
-                               }
-                       }
-               }
-       
-               iter = (**iter).nextControl ;
-       }
-}
-
-void AGAUpdateOneControl( ControlHandle control , RgnHandle inRgn )
-{
-       DrawOneControl( control ) ;
-       ControlHandle iter = (ControlHandle) ((WindowPeek)(**control).contrlOwner)->controlList ; 
-       while ( iter )
-       {
-               if ( AGATestForNewControl( iter ) )
-               {
-                       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**iter).contrlRfCon ;
-                       if ( info->containerControl == control )
-                       {               
-                               AGAUpdateOneControl( iter , inRgn ) ;
-                       }
-               }
-       
-               iter = (**iter).nextControl ;
-       }
-}
-
-void AGAUpdateControls( WindowPtr inWindow , RgnHandle inRgn ) 
-{
-       ControlHandle root ;
-       AGAGetRootControl( inWindow , &root ) ;
-       AGAUpdateOneControl( root , inRgn ) ;
-       
-       // and then all others
-       
-       ControlHandle iter = (ControlHandle) ((WindowPeek)inWindow)->controlList ; 
-       while ( iter )
-       {
-               if ( AGATestForNewControl( iter ) )
-               {
-               }
-               else
-               {
-                       DrawOneControl( iter ) ;
-               }
-       
-               iter = (**iter).nextControl ;
-       }
-}
-
-OSErr AGAGetRootControl( WindowPtr inWindow , ControlHandle *outControl ) 
-{
-       ControlHandle iter = (ControlHandle) ((WindowPeek)inWindow)->controlList ; 
-       while ( iter )
-       {
-               if ( AGATestForNewControl( iter ) )
-               {
-                       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**iter).contrlRfCon ;
-                       if ( info->procID == kAGARootControlProcID )
-                       {       
-                               *outControl  = iter ;
-                               return noErr ;
-                       }
-               }
-       
-               iter = (**iter).nextControl ;
-       }
-       return -1 ;
-}
-
-void AGADeactivateControl( ControlHandle inControl ) 
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-               if ( info->defProc( info->procID , inControl , kControlMsgTestNewMsgSupport , 0 ) == kControlSupportsNewMessages )
-               {
-                       if ( info->defProc( info->procID , inControl , kControlMsgGetFeatures , 0 ) & kControlWantsActivate )
-                       {
-                               info->defProc( info->procID , inControl , kControlMsgActivate , 0 ) ;
-                       }
-               }
-       }
-       else
-       {
-               ::HiliteControl( inControl , 255 ) ;
-       }
-}
-
-void AGAActivateControl( ControlHandle inControl ) 
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-               if ( info->defProc( info->procID , inControl , kControlMsgTestNewMsgSupport , 0 ) == kControlSupportsNewMessages )
-               {
-                       if ( info->defProc( info->procID , inControl , kControlMsgGetFeatures , 0 ) & kControlWantsActivate )
-                       {
-                               info->defProc( info->procID , inControl , kControlMsgActivate , 1 ) ;
-                       }
-               }
-       }
-       else
-       {
-               ::HiliteControl( inControl , 0 ) ;
-       }
-}
-
-OSErr AGASetKeyboardFocus                              (WindowPtr                              inWindow,
-                                                                ControlHandle                  inControl,
-                                                                ControlFocusPart               inPart)
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-               if ( info->defProc( info->procID , inControl , kControlMsgTestNewMsgSupport , 0 ) == kControlSupportsNewMessages )
-               {
-                       if ( info->defProc( info->procID , inControl , kControlMsgGetFeatures , 0 ) & kControlSupportsFocus )
-                       {
-                               return info->defProc( info->procID , inControl , kControlMsgFocus , inPart ) ;
-                       }
-               }
-       }
-       return errControlDoesntSupportFocus ;
-}
-
-OSErr AGAGetBestControlRect                            (ControlHandle                  inControl,
-                                                                Rect *                                 outRect,
-                                                                SInt16 *                               outBaseLineOffset)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;
-       ControlCalcSizeRec rec ;
-       rec.width = (**inControl).contrlRect.right - (**inControl).contrlRect.left ;
-       rec.height = (**inControl).contrlRect.bottom - (**inControl).contrlRect.top ;
-       rec.baseLine = 0;
-       
-       OSErr err = info->defProc( info->procID , inControl , kControlMsgCalcBestRect , (long) &rec ) ;
-       if ( !err )
-       {
-               outRect->left = outRect->top = 0 ;
-               outRect->right = rec. width ;
-               outRect->bottom = rec. height ;
-               *outBaseLineOffset = rec. baseLine ;            
-       }
-       return err ;
-}
-
-
-OSErr AGAGetControlData                                        (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size                                   inBufferSize,
-                                                                Ptr                                    outBuffer,
-                                                                Size *                                 outActualSize)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon  ;
-       ControlDataAccessRec rec ;
-       
-       rec.tag = inTagName ;
-       rec.part = inPart ;
-       rec.size = inBufferSize ;
-       rec.dataPtr = outBuffer ;
-       
-       OSErr err = info->defProc( info->procID , inControl , kControlMsgGetData , (long) &rec ) ;
-       *outActualSize = rec.size ;
-       return err ;
-}
-
-OSErr AGAGetControlDataSize                            (ControlHandle                  inControl,
-                                                                ControlPartCode                inPart,
-                                                                ResType                                inTagName,
-                                                                Size *                                 outMaxSize)
-{
-       return AGAGetControlData( inControl , inPart , inTagName , 0 , NULL , outMaxSize ) ;
-}
-
-
-void NewExtCDEFInfo( ControlHandle theControl , ControlDefProcPtr defproc , SInt16 procID , long refcon ) 
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* ) malloc( sizeof( ExtCDEFInfo ) ) ;
-       info->defProc = defproc ;
-       info->hasFocus = false ;
-       info->magic = kExtCDEFMagic ;
-       info->contrlRfCon = refcon ;
-       info->procID = procID ;
-       info->containerControl = NULL ;
-       info->children = NewHandle(0) ;
-       info->fontStyle.flags = 0 ;
-       info->fontStyle.font = 0 ;
-       info->fontStyle.size = 12 ;
-       info->fontStyle.style = 0 ;
-       info->fontStyle.mode = 0 ;
-       info->fontStyle.just = 0 ;
-       info->fontStyle.foreColor = gAGARamp[ kAGABlack ] ;
-       info->fontStyle.backColor = gAGARamp[ kAGA2 ] ;
-       (**theControl).contrlRfCon = (long) info ;      
-       defproc( info->procID, theControl, initCntl, 0) ;
-}
-
-void DisposeExtCDEFInfo( ControlHandle theControl) 
-{
-       if ( AGATestForNewControl( theControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;
-               if ( info )
-               {
-                       DisposeHandle( info->children ) ;
-                       info->children = NULL ;
-                       free( (void*) (**theControl).contrlRfCon ) ;
-                       (**theControl).contrlRfCon = NULL ;
-               }
-       }
-}
-
-const short kAGAProgressHeight = 14 ;
-
-void AGADrawRectPlacard( const Rect *inRect , eAGAState inState , bool fill = false ) ;
-void AGADrawRectProgress( const Rect *inRect , eAGAState inState , double percentage ) ;
-
-void AGADrawRectPlacard( const Rect *inRect , eAGAState inState , bool fill ) 
-{
-       Rect rect = *inRect ;
-       RGBColor pixelColor ;
-       if ( inState == kAGAStateInactive )
-       {
-               RGBForeColor( &gAGARamp[ kAGA10 ] ) ;
-               FrameRect( &rect ) ;
-               if ( fill )
-               {
-                       InsetRect( &rect , 1 , 1 ) ;
-                       RGBForeColor( &gAGARamp[ kAGA1 ] ) ;
-                       PaintRect( &rect ) ;
-               }
-               return ;
-       }
-
-       RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-       FrameRect( &rect ) ;
-       InsetRect( &rect , 1 , 1 ) ;
-       
-       if ( inState == kAGAStateEnabled || inState == kAGAStateDisabled )
-               RGBForeColor( &gAGARamp[ kAGAWhite ] ) ;
-       else
-               RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-               
-       MoveTo( rect.left , rect.bottom - 1 -1 ) ;
-       LineTo( rect.left , rect.top ) ;
-       LineTo( rect.right-1-1  , rect.top ) ;
-       
-       if ( inState == kAGAStateEnabled || inState == kAGAStateDisabled )
-               pixelColor =  gAGARamp[ kAGA2 ] ;
-       else
-               pixelColor = gAGARamp[ kAGA8 ] ;
-
-       SetCPixel( rect.right-1  , rect.top , &pixelColor ) ;
-       SetCPixel( rect.left , rect.bottom-1  , &pixelColor ) ;
-       
-       if ( inState == kAGAStateEnabled )
-               RGBForeColor( &gAGARamp[ kAGA5 ] ) ;
-       else if ( inState == kAGAStateDisabled )
-               RGBForeColor( &gAGARamp[ kAGA4 ] ) ;
-       else
-               RGBForeColor( &gAGARamp[ kAGA6 ] ) ;
-       
-       MoveTo( rect.left + 1 , rect.bottom-1  ) ;
-       LineTo( rect.right-1  , rect.bottom-1  ) ;
-       LineTo( rect.right-1  , rect.top-1 ) ;
-       
-       if ( fill )
-       {
-               InsetRect( &rect , 1 , 1 ) ;
-               if ( inState == kAGAStateEnabled || inState == kAGAStateDisabled )
-                       RGBForeColor( &gAGARamp[ kAGA2 ] ) ;
-               else
-                       RGBForeColor( &gAGARamp[ kAGA8 ] ) ;
-               PaintRect( &rect ) ;
-       }
-}
-
-void AGADrawRectProgress( const Rect *inRect , eAGAState inState , double percentage ) 
-{
-       Rect rect = *inRect ;
-       rect.bottom = rect.top + 14 ; 
-       RGBColor pixelColor ;
-       
-       RGBForeColor( &gAGARamp[ kAGA5 ]) ;
-       MoveTo( rect.left , rect.bottom - 1 -1  ) ;
-       LineTo( rect.left , rect.top ) ;
-       LineTo( rect.right-1-1  , rect.top ) ;
-
-       RGBForeColor( &gAGARamp[ kAGAWhite ] ) ;
-       MoveTo( rect.left + 1 , rect.bottom -1 ) ;
-       LineTo( rect.right-1  , rect.bottom -1 ) ;
-       LineTo( rect.right-1  , rect.top-1 ) ;
-
-       InsetRect( &rect , 1 , 1 ) ;
-       RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-                       
-       Rect barLeft = rect , barRight = rect ;
-       
-       int     position = percentage * ( rect.right - rect.left ) ;
-       barLeft.right = barLeft.left + position ;
-       barRight.left = barLeft.left + position ;
-       FrameRect( &barLeft ) ;
-       FrameRect( &barRight ) ;
-       
-       InsetRect( &barLeft , 1 , 1 ) ;
-
-       InsetRect( &barRight , 1 , 1 ) ;
-       
-       if ( !EmptyRect( &barRight ) )
-       {
-               RGBForeColor( &gAGARamp[ kAGA10 ] ) ;
-               MoveTo( barRight.left , barRight.bottom -1 ) ;
-               LineTo( barRight.left , barRight.top ) ;
-               barRight.left += 1 ;
-               if ( !EmptyRect( &barRight ) )
-               {
-                       RGBForeColor( &gAGARamp[ kAGA7 ] ) ;
-                       MoveTo( barRight.left , barRight.bottom-1  ) ;
-                       LineTo( barRight.left , barRight.top ) ;
-                       LineTo( barRight.right-1-1  , barRight.top ) ;
-                       RGBForeColor( &gAGARamp[ kAGA2 ] ) ;
-                       MoveTo( barRight.left + 1 , barRight.bottom -1 ) ;
-                       LineTo( barRight.right-1  , barRight.bottom -1 ) ;
-                       LineTo( barRight.right-1  , barRight.top - 1) ;
-                       pixelColor = gAGARamp[ kAGA4 ]  ;
-                       SetCPixel( barRight.right-1  , barRight.top , &pixelColor ) ;
-                       InsetRect( &barRight , 1  , 1)  ;
-                       if ( !EmptyRect( &barRight ) )
-                       {
-                               RGBForeColor( &gAGARamp[ kAGA4 ] ) ;
-                               PaintRect( &barRight ) ;
-                       }
-               }
-               if ( !EmptyRect( &barLeft ) )
-               {
-                       RGBForeColor( &gAGABlueRamp[ kAGA8 ] ) ;
-                       MoveTo( barLeft.left , barLeft.bottom -1 ) ;
-                       LineTo( barLeft.left , barLeft.top ) ;
-                       LineTo( barLeft.left+1 , barLeft.top ) ;
-                       RGBForeColor( &gAGABlueRamp[ kAGA12 ] ) ;                       
-                       MoveTo( barLeft.left + 2, barLeft.bottom-1  ) ;
-                       LineTo( barLeft.right-1   , barLeft.bottom-1  ) ;
-                       LineTo( barLeft.right-1  , barLeft.top -1 ) ;
-                       RGBForeColor( &gAGABlueRamp[ kAGA10 ] ) ;                       
-                       MoveTo( barLeft.left + 2, barLeft.top ) ;
-                       LineTo( barLeft.right-1   , barLeft.top ) ;
-                       pixelColor = gAGABlueRamp[ kAGA10] ;
-                       SetCPixel( barLeft.left + 1, barLeft.bottom-1  , &pixelColor ) ;
-                       InsetRect( &barLeft , 1 , 1 ) ;
-                       if ( !EmptyRect( &barLeft ) )
-                       {
-                               // do more here
-                               RGBForeColor( &gAGABlueRamp[ kAGA3 ] ) ;
-                               PaintRect( &barLeft ) ;
-                       }
-               }
-       }
-}
-
-SInt32 AGAGetDataHelper( ControlDataAccessRec *rec , Size size , Ptr data ) ;
-SInt32 AGAGetDataHelper( ControlDataAccessRec *rec , Size size , Ptr data ) 
-{
-       if ( rec->dataPtr == NULL )
-       {
-               rec->size = size ;
-               return noErr ;
-       }
-       else
-       {
-               if ( rec->size < size )
-                       return errDataSizeMismatch ;
-               
-               rec->size = size ;
-               memcpy( rec->dataPtr , data , size ) ;
-               return noErr ;
-       }
-}
-
-void AGASetFontStyle( ControlFontStyleRec *fontstyle ) ;
-void AGASetFontStyle( ControlFontStyleRec *fontstyle )
-{
-               if( fontstyle->font >= 0 )
-               {
-                       ::TextFont( fontstyle->font ) ;
-                       ::TextSize( fontstyle->size ) ;
-                       ::TextFace( fontstyle->style ) ;
-               }
-               else
-               {
-                       switch( fontstyle->font )
-                       {
-                               case kControlFontBigSystemFont :
-                                       ::TextFont( systemFont ) ; 
-                                       ::TextSize( 12 ) ;
-                                       ::TextFace( 0 ) ;
-                                       break ;
-                               case kControlFontSmallSystemFont :
-                                       ::TextFont( kFontIDGeneva ) ; 
-                                       ::TextSize( 10 ) ;
-                                       ::TextFace( 0 ) ;
-                                       break ;
-                               case kControlFontSmallBoldSystemFont :
-                                       ::TextFont( kFontIDGeneva ) ; 
-                                       ::TextSize( 10 ) ;
-                                       ::TextFace( bold ) ;
-                                       break ;
-                       }
-               }
-               ::RGBForeColor( &fontstyle->foreColor ) ;
-               ::RGBBackColor( &fontstyle->backColor ) ;
-} ;
-
-pascal SInt32 AGAProgressBarDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{      
-       switch( message )
-       {
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                               PenState                oldPenState;
-                               RGBColor                oldForeColor ;
-                               RGBColor                oldBackColor ;
-                               RGBColor                backColor ;
-                               RGBColor                foreColor ;
-                               
-                               GetPenState( &oldPenState ) ;
-                               GetBackColor( &oldBackColor ) ;
-                               GetForeColor( &oldForeColor ) ;
-                               
-                               {
-                                       int                     theValue = GetControlValue(theControl) ;
-                                       int                     theMinimum = GetControlMinimum(theControl) ;
-                                       int                     theMaximum = GetControlMaximum(theControl) ;
-                                       
-                                       AGADrawRectProgress( &(**theControl).contrlRect , kAGAStateEnabled , (( double )( theValue - theMinimum )) / ( theMaximum-theMinimum ) ) ;
-                               }
-                       
-                               RGBForeColor(&oldForeColor);
-                               RGBBackColor(&oldBackColor);
-                               SetPenState(&oldPenState);                              
-                       }
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-
-pascal SInt32 AGAPlacardDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       switch( message )
-       {
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                               PenState                oldPenState;
-                               RGBColor                oldForeColor ;
-                               RGBColor                oldBackColor ;
-                               RGBColor                backColor ;
-                               RGBColor                foreColor ;
-                               
-                               GetPenState( &oldPenState ) ;
-                               GetBackColor( &oldBackColor ) ;
-                               GetForeColor( &oldForeColor ) ;
-                               
-                               {
-                                       AGADrawRectPlacard( &(**theControl).contrlRect , kAGAStateEnabled , true  ) ;
-                               }
-                       
-                               RGBForeColor(&oldForeColor);
-                               RGBBackColor(&oldBackColor);
-                               SetPenState(&oldPenState);                              
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGABevelButtonDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       switch( message )
-       {
-               case initCntl :
-                       info->privateData = (long) malloc( sizeof( ControlButtonContentInfo ) ) ;
-                       memset( (char*) info->privateData , 0 , sizeof( ControlButtonContentInfo )  ) ;
-                       break ;
-               case dispCntl :
-                       free( (void*) info->privateData ) ;
-                       break ;
-               case kControlMsgSetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               if ( rec->tag == kControlBevelButtonContentTag )
-                               {
-                                       memcpy( (char*) info->privateData , rec->dataPtr , rec->size ) ;
-                                       return noErr ;
-                               }
-                               return errDataNotSupported ;
-                       }
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = 0 ;
-                               rec->height = 20 ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                                       
-                               {
-                                       AGAPortHelper help((**theControl).contrlOwner) ;
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       Boolean mRadioBehavior = false ;
-                                       
-                                       int     mValue = GetControlValue( theControl ) ;
-                                       long theValue = (mRadioBehavior ? mValue : 0);
-                                       Boolean inPushed = (**theControl).contrlHilite ;
-                                       Boolean down = inPushed || (theValue != 0);
-                                       Boolean hasColor = 1;
-                                       int mEnabled = 1 ;
-                                       int triState_Off = 3 ;
-                                       Boolean disabled = (mEnabled == triState_Off);
-                               
-                                       Rect frame = (**theControl).contrlRect ;
-                                       
-                                       //      Draw the black frame;
-                                       ::MoveTo(frame.left + 1, frame.top);
-                                       ::LineTo(frame.right - 2, frame.top);
-                                       ::MoveTo(frame.right - 1, frame.top + 1);
-                                       ::LineTo(frame.right - 1, frame.bottom - 2);
-                                       ::MoveTo(frame.right - 2, frame.bottom - 1);
-                                       ::LineTo(frame.left + 1, frame.bottom - 1);
-                                       ::MoveTo(frame.left, frame.bottom - 2);
-                                       ::LineTo(frame.left, frame.top + 1);
-                                       
-                                       //      Draw the inside (w/o the Icon)
-                                       ::InsetRect(&frame, 1, 1);
-                                       if (hasColor)
-                                               {
-                                                       AGASetFontStyle( &info->fontStyle ) ;
-                                                       if (down)
-                                                               ::RGBBackColor(&gAGAColorArray[4]);
-                                               }
-                                       ::EraseRect(&frame);
-                                       
-                                       //      Draw the shadows
-                                       if (hasColor)
-                                               {
-                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                       if (down)
-                                                               {
-                                                                       ::MoveTo(frame.left, frame.bottom - 1);
-                                                                       ::LineTo(frame.left, frame.top);
-                                                                       ::LineTo(frame.right - 1, frame.top);
-                                                               }
-                                                       else
-                                                               {
-                                                                       ::MoveTo(frame.right - 1, frame.top);
-                                                                       ::LineTo(frame.right - 1, frame.bottom - 1);
-                                                                       ::LineTo(frame.left, frame.bottom - 1);
-                                                                       ::MoveTo(frame.right - 2, frame.top + 1);
-                                                                       ::LineTo(frame.right - 2, frame.bottom - 2);
-                                                                       ::LineTo(frame.left + 1, frame.bottom - 2);
-                                                                       ::ForeColor(whiteColor);
-                                                                       ::MoveTo(frame.left, frame.bottom - 2);
-                                                                       ::LineTo(frame.left, frame.top);
-                                                                       ::LineTo(frame.right - 2, frame.top);
-                                                               }
-                                               }
-                                       
-                                       //      Draw the Icon
-                                       
-                                       frame = (**theControl).contrlRect ;
-                                       PictInfo theInfo ;
-                                       PicHandle thePict = ((ControlButtonContentInfo*) info->privateData)->u.picture ;
-                                       if ( thePict )
-                                       {
-                                               GetPictInfo( thePict , &theInfo , 0 , 0 , systemMethod , 0 ) ;
-                                       Rect bitmaprect = { 0 , 0 , theInfo.sourceRect.bottom - theInfo.sourceRect.top , 
-                                                                                                                                                       theInfo.sourceRect.right - theInfo.sourceRect.left } ;
-                                               ::OffsetRect( &bitmaprect , (frame.right + frame.left)/2 - bitmaprect.right / 2 , (frame.bottom + frame.top) / 2 - bitmaprect.bottom / 2 ) ;
-                                               if (inPushed)
-                                                       ::OffsetRect( &bitmaprect , 1 , 1 ) ;
-                                               ::DrawPicture( thePict , &bitmaprect ) ;
-                                       }
-                               }
-                       }
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                                       return kControlButtonPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                                       return kControlButtonPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGAButtonDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       switch( message )
-       {
-               case initCntl :
-                       (**theControl).contrlData = NULL ;
-                       break ;
-               case kControlMsgSetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               Boolean isDefault = *((Boolean*)rec->dataPtr ) ;
-                               (**theControl).contrlData = (Handle) isDefault ;
-                               return noErr ;
-                       }
-                       break ;
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = 0 ;
-                               rec->height = 20 ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                                       
-                               {
-                                       AGAPortHelper help((**theControl).contrlOwner) ;
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       Boolean mRadioBehavior = false ;
-                                       
-                                       Rect frame, tempRect;
-                                       int     mValue = GetControlValue( theControl ) ;
-                                       long theValue = (mRadioBehavior ? mValue : 0);
-                                       Boolean inPushed = (**theControl).contrlHilite ;
-                                       Boolean down = inPushed || (theValue != 0);
-                                       Boolean hasColor = 1;
-                                       int mEnabled = 1 ;
-                                       int triState_Off = 3 ;
-                                       Boolean disabled = (mEnabled == triState_Off);
-                               
-//                                     theState.Normalize();
-//                                     CalcLocalFrameRect(frame);
-                                       frame= (**theControl).contrlRect ;
-                                       
-                                       if ( (**theControl).contrlData )
-                                       {
-                                               InsetRect( &frame , -3 , -3 ) ;
-                                               {
-                                                       ::MoveTo(frame.left + 3, frame.top);
-                                                       ::LineTo(frame.right - 4, frame.top);
-                                                       ::LineTo(frame.right - 1, frame.top + 3);
-                                                       ::LineTo(frame.right - 1, frame.bottom - 4);
-                                                       ::LineTo(frame.right - 4, frame.bottom - 1);
-                                                       ::LineTo(frame.left + 3, frame.bottom - 1);
-                                                       ::LineTo(frame.left, frame.bottom - 4);
-                                                       ::LineTo(frame.left, frame.top + 3);
-                                                       ::LineTo(frame.left + 3, frame.top);
-                                                       
-                                                       if (hasColor)
-                                                               {
-                                                                       const RGBColor *col = gAGAColorArray;
-                                                                       for (int i = 0; i < 5; i++)
-                                                                               for (int j = 0; j < 5; j++)
-                                                                                       {
-                                                                                               if (LAGADefaultOutline_mCorners[0][i][j] != -1)
-                                                                                                       ::SetCPixel(frame.left + j, frame.top + i, &col[LAGADefaultOutline_mCorners[0][i][j]]);
-                                                                                               if (LAGADefaultOutline_mCorners[1][i][j] != -1)
-                                                                                                       ::SetCPixel(frame.right - 5 + j, frame.top + i, &col[LAGADefaultOutline_mCorners[1][i][j]]);
-                                                                                               if (LAGADefaultOutline_mCorners[2][i][j] != -1)
-                                                                                                       ::SetCPixel(frame.left + j, frame.bottom - 5 + i, &col[LAGADefaultOutline_mCorners[2][i][j]]);
-                                                                                               if (LAGADefaultOutline_mCorners[3][i][j] != -1)
-                                                                                                       ::SetCPixel(frame.right - 5 + j, frame.bottom - 5 + i, &col[LAGADefaultOutline_mCorners[3][i][j]]);
-                                                                                       }
-                                                                       
-                                                                       ::RGBForeColor(&gAGAColorArray[2]);
-                                                                       ::MoveTo(frame.left + 1, frame.top + 5);
-                                                                       ::LineTo(frame.left + 1, frame.bottom - 6);
-                                                                       ::MoveTo(frame.left + 5, frame.top + 1);
-                                                                       ::LineTo(frame.right - 6, frame.top + 1);
-                                                                       
-                                                                       ::RGBForeColor(&gAGAColorArray[5]);
-                                                                       ::MoveTo(frame.left + 4, frame.top + 2);
-                                                                       ::LineTo(frame.right - 5, frame.top + 2);
-                                                                       ::LineTo(frame.right - 3, frame.top + 4);
-                                                                       ::LineTo(frame.right - 3, frame.bottom - 5);
-                                                                       ::LineTo(frame.right - 5, frame.bottom - 3);
-                                                                       ::LineTo(frame.left + 4, frame.bottom - 3);
-                                                                       ::LineTo(frame.left + 2, frame.bottom - 5);
-                                                                       ::LineTo(frame.left + 2, frame.top + 4);
-                                                                       ::LineTo(frame.left + 4, frame.top + 2);
-                                                                       
-                                                                       ::RGBForeColor(&gAGAColorArray[8]);
-                                                                       ::MoveTo(frame.right - 2, frame.top + 5);
-                                                                       ::LineTo(frame.right - 2, frame.bottom - 6);
-                                                                       ::MoveTo(frame.left + 5, frame.bottom - 2);
-                                                                       ::LineTo(frame.right - 6, frame.bottom - 2);
-                                                               }
-                                               }               
-                                       }
-                                       
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       frame= (**theControl).contrlRect ;
-
-                                       tempRect = frame;
-                                       ::InsetRect(&tempRect, 1, 1);
-                                       if (hasColor)
-                                               {
-                                                       if (down)
-                                                               ::RGBBackColor(&gAGAColorArray[4]);
-                                               }
-                                       EraseRect(&tempRect);
-                                       
-                                       //      Draw the frame;
-                                       if (disabled)
-                                               {
-                                                       if (hasColor)
-                                                               ::RGBForeColor(&gAGAColorArray[7]);
-                                                       else
-                                                               ::PenPat(&qd.gray);
-                                               }
-                                       ::MoveTo(frame.left + 2, frame.top);
-                                       ::LineTo(frame.right - 3, frame.top);
-                                       ::LineTo(frame.right - 1, frame.top + 2);
-                                       ::LineTo(frame.right - 1, frame.bottom - 3);
-                                       ::LineTo(frame.right - 3, frame.bottom - 1);
-                                       ::LineTo(frame.left + 2, frame.bottom - 1);
-                                       ::LineTo(frame.left, frame.bottom - 3);
-                                       ::LineTo(frame.left, frame.top + 2);
-                                       ::LineTo(frame.left + 2, frame.top);
-                                       if (disabled && !hasColor)
-                                               ::PenNormal();
-                                       
-                                       //      Draw the four corners around
-                                       if (hasColor)
-                                               {
-                                                       short pattern = (disabled ? 2 : (down ? 1 : 0));
-                                                       const RGBColor *col = gAGAColorArray;
-                                                       for (int i = 0; i < 4; i++)
-                                                               for (int j = 0; j < 4; j++)
-                                                                       {
-                                                                               if (LAGAPushButton_mCorners[pattern][0][i][j] != -1)
-                                                                                       ::SetCPixel(frame.left + j, frame.top + i, &col[LAGAPushButton_mCorners[pattern][0][i][j]]);
-                                                                               if (LAGAPushButton_mCorners[pattern][1][i][j] != -1)
-                                                                                       ::SetCPixel(frame.right - 4 + j, frame.top + i, &col[LAGAPushButton_mCorners[pattern][1][i][j]]);
-                                                                               if (LAGAPushButton_mCorners[pattern][2][i][j] != -1)
-                                                                                       ::SetCPixel(frame.left + j, frame.bottom - 4 + i, &col[LAGAPushButton_mCorners[pattern][2][i][j]]);
-                                                                               if (LAGAPushButton_mCorners[pattern][3][i][j] != -1)
-                                                                                       ::SetCPixel(frame.right - 4 + j, frame.bottom - 4 + i, &col[LAGAPushButton_mCorners[pattern][3][i][j]]);
-                                                                       }
-                                                       
-                                                       if (down)
-                                                               ::RGBForeColor(&gAGAColorArray[8]);
-                                                       else
-                                                               ::RGBForeColor(&gAGAColorArray[2]);
-                                                       ::MoveTo(frame.left + 1, frame.top + 4);
-                                                       ::LineTo(frame.left + 1, frame.bottom - 5);
-                                                       ::MoveTo(frame.left + 4, frame.top + 1);
-                                                       ::LineTo(frame.right - 5, frame.top + 1);
-                                                       
-                                                       if (!down)
-                                                               {
-                                                                       if (disabled)
-                                                                               ::RGBForeColor(&gAGAColorArray[1]);
-                                                                       else
-                                                                               ::ForeColor(whiteColor);
-                                                                       ::MoveTo(frame.left + 2, frame.bottom - 5);
-                                                                       ::LineTo(frame.left + 2, frame.top + 2);
-                                                                       ::LineTo(frame.right - 5, frame.top + 2);
-                                                       
-                                                                       if (disabled)
-                                                                               ::RGBForeColor(&gAGAColorArray[5]);
-                                                                       else
-                                                                               ::RGBForeColor(&gAGAColorArray[8]);
-                                                                       ::MoveTo(frame.left + 4, frame.bottom - 2);
-                                                                       ::LineTo(frame.right - 5, frame.bottom - 2);
-                                                                       ::MoveTo(frame.right - 2, frame.bottom - 5);
-                                                                       ::LineTo(frame.right - 2, frame.top + 4);
-                                                                       
-                                                                       if (disabled)
-                                                                               ::RGBForeColor(&gAGAColorArray[4]);
-                                                                       else
-                                                                               ::RGBForeColor(&gAGAColorArray[5]);
-                                                                       ::MoveTo(frame.left + 4, frame.bottom - 3);
-                                                                       ::LineTo(frame.right - 5, frame.bottom - 3);
-                                                                       ::MoveTo(frame.right - 3, frame.bottom - 5);
-                                                                       ::LineTo(frame.right - 3, frame.top + 4);
-                                                               }
-                                               }
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       int x = ( (**theControl).contrlRect.left + (**theControl).contrlRect.right ) / 2 ;
-                                       int y = ( (**theControl).contrlRect.top +       (**theControl).contrlRect.bottom ) / 2 ;
-                                       FontInfo fi ;
-                                       ::GetFontInfo( &fi ) ;
-                                       
-                                       y += fi.ascent / 2 ;
-                                       int length = (**theControl).contrlTitle[0] ;
-                                       if ( length )
-                                       {
-                                               int width = TextWidth( &(**theControl).contrlTitle[1] , 0, length ) ;
-                                               x -= width / 2 ;
-                                               ::MoveTo( x , y );
-                                               ::DrawText( &(**theControl).contrlTitle[1] , 0, length);
-                                       }
-                                       
-                               }
-                       }
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                                       return kControlButtonPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                                       return kControlButtonPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-const int kAGACheckBoxWidth = 12 ;
-const int kAGACheckBoxHeigth = 12 ;
-
-pascal SInt32 AGACheckBoxDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       switch( message )
-       {
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                               PenState                oldPenState;
-                               RGBColor                oldForeColor ;
-                               RGBColor                oldBackColor ;
-                               RGBColor                backColor ;
-                               RGBColor                foreColor ;
-                               
-                               
-                               {
-                                       if (!(**theControl).contrlVis)                          
-                                               return 0 ;
-                                               
-                                       {
-                                               AGAPortHelper help((**theControl).contrlOwner) ;
-                                               Rect frame =  (**theControl).contrlRect ;
-                                               Boolean hasColor = true;
-                                               Boolean disabled = (*theControl)->contrlHilite == 255 ;
-                                               int     mValue = GetControlValue( theControl ) ;
-                                               Boolean inPushed = (**theControl).contrlHilite ;
-                                               int mEnabled = 1 ;
-                                               int triState_Off = 3 ;
-                                               
-                                               frame.right = frame.left + kAGACheckBoxWidth;
-                                               frame.bottom = frame.top + kAGACheckBoxHeigth;
-                                               
-                                               //      Draw the frame of the checkbox
-                                                       if (disabled)
-                                                               if (hasColor)
-                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                               else
-                                                                       PenPat(&qd.gray);
-                                                       
-                                               ::FrameRect(&frame);
-                                               
-                                               if (!hasColor)
-                                                       PenNormal();
-                                                       
-                                               ::InsetRect(&frame, 1, 1);
-                                               if (hasColor)
-                                                       ::RGBBackColor(inPushed ? &gAGAColorArray[8] : &gAGAColorArray[2]);
-                                               ::EraseRect(&frame);
-                                               
-                                               if (hasColor)
-                                                       {
-                                                               if (inPushed)
-                                                                       ::RGBForeColor(&gAGAColorArray[10]);
-                                                               else
-                                                                       ForeColor(whiteColor);
-                                                               ::MoveTo(frame.left, frame.bottom - 2);
-                                                               ::LineTo(frame.left, frame.top);
-                                                               ::LineTo(frame.right - 2, frame.top);
-                                               
-                                                               if (inPushed)
-                                                                       ::RGBForeColor(&gAGAColorArray[6]);
-                                                               else
-                                                                       ::RGBForeColor(mEnabled != triState_Off ? &gAGAColorArray[7] : &gAGAColorArray[5]);
-                                                               ::MoveTo(frame.left + 1, frame.bottom - 1);
-                                                               ::LineTo(frame.right - 1, frame.bottom - 1);
-                                                               ::LineTo(frame.right - 1, frame.top + 1);
-                                                       }
-                                               
-                                               if (mValue)
-                                                       {
-                                                               if (mValue == 1)
-                                                                       {
-                                                                               //      Checked state
-                                                                               if (hasColor)
-                                                                                       {
-                                                                                               ::RGBForeColor(inPushed ? &gAGAColorArray[10] : &gAGAColorArray[5]);
-                                                                                               ::MoveTo(frame.left + 3, frame.bottom - 2);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 3);
-                                                                                               ::MoveTo(frame.right - 2, frame.bottom - 2);
-                                                                                               ::LineTo(frame.right - 2, frame.bottom - 2);
-                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::RGBForeColor(inPushed ? &gAGAColorArray[11] : &gAGAColorArray[8]);
-                                                                                               ::MoveTo(frame.left + 3, frame.bottom - 3);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 2);
-                                                                                               ::MoveTo(frame.right - 2, frame.bottom - 3);
-                                                                                               ::LineTo(frame.right - 2, frame.bottom - 3);
-                                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::ForeColor(blackColor);
-                                                                                               else
-                                                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                                                       }
-                                                                               ::MoveTo(frame.left + 2, frame.top + 1);
-                                                                               ::LineTo(frame.right - 3, frame.bottom - 4);
-                                                                               ::MoveTo(frame.left + 2, frame.top + 2);
-                                                                               ::LineTo(frame.right - 3, frame.bottom - 3);
-                                                                               ::MoveTo(frame.left + 2, frame.bottom - 4);
-                                                                               ::LineTo(frame.right - 3, frame.top + 1);
-                                                                               ::MoveTo(frame.left + 2, frame.bottom - 3);
-                                                                               ::LineTo(frame.right - 3, frame.top + 2);
-                                                                       }
-                                                               else
-                                                                       {
-                                                                               //      Mixed state
-                                                                               if (hasColor)
-                                                                                       {
-                                                                                               ::RGBForeColor(inPushed ? &gAGAColorArray[10] : &gAGAColorArray[5]);
-                                                                                               ::MoveTo(frame.left + 3, frame.top + 6);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 6);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 4);
-                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::ForeColor(blackColor);
-                                                                                               else
-                                                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                                                       }
-                                                                               ::MoveTo(frame.left + 2, frame.top + 4);
-                                                                               ::LineTo(frame.right - 3, frame.top + 4);
-                                                                               ::MoveTo(frame.left + 2, frame.top + 5);
-                                                                               ::LineTo(frame.right - 3, frame.top + 5);
-                                                                       }
-                                                       }
-                                                       
-                                               if (inPushed && !hasColor)
-                                                       InvertRect(&frame);
-                                               
-                                               AGASetFontStyle( &info->fontStyle ) ;
-                                               int x = (**theControl).contrlRect.left + kAGACheckBoxWidth + 5 ;
-                                               int y = ( (**theControl).contrlRect.top + (**theControl).contrlRect.bottom ) / 2 ;
-                                               FontInfo fi ;
-                                               ::GetFontInfo( &fi ) ;
-                                               
-                                               y += fi.ascent / 2 ;
-                                               ::MoveTo( x , y );
-                                               int length = (**theControl).contrlTitle[0] ;
-                                               if ( length )
-                                               {
-                                                       ::DrawText( &(**theControl).contrlTitle[1] , 0, length);
-                                               }
-                                       }
-                               }
-                       
-                       }
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) && ((*theControl)->contrlVis != 0) && ((*theControl)->contrlHilite != 255) )
-                                       return kControlCheckBoxPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                         {
-                               if ( (**theControl).contrlValue )
-                                       (**theControl).contrlValue = 0 ;
-                               else
-                                       (**theControl).contrlValue = 1 ;
-                                       
-                                       return 0 ;
-                               }
-                               else
-                                       return 0 ;
-                       }
-                       break ;
-               case calcThumbRgn :
-               case calcCntlRgn :
-                       if ( !EmptyRect(&(**theControl).contrlRect ) )
-                               RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = (**theControl).contrlRect.right - (**theControl).contrlRect.left ;
-                               rec->height = kAGACheckBoxHeigth ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGARadioButtonDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-//TO DO
-/*     ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       switch( message )
-       {
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                               PenState                oldPenState;
-                               RGBColor                oldForeColor ;
-                               RGBColor                oldBackColor ;
-                               RGBColor                backColor ;
-                               RGBColor                foreColor ;
-                               
-                               
-                               {
-                                       if (!(**theControl).contrlVis)                          
-                                               return 0 ;
-                                               
-                                       {
-                                               AGAPortHelper help() ;
-                                               Rect frame =  (**theControl).contrlRect ;
-                                               Boolean hasColor = true;
-                                               Boolean disabled = (*theControl)->contrlHilite == 255 ;
-                                               int     mValue = GetControlValue( theControl ) ;
-                                               Boolean inPushed = (**theControl).contrlHilite ;
-                                               int mEnabled = 1 ;
-                                               int triState_Off = 3 ;
-                                               
-                                               frame.right = frame.left + kAGACheckBoxWidth;
-                                               frame.bottom = frame.top + kAGACheckBoxHeigth;
-                                               
-                                               //      Draw the frame of the checkbox
-                                                       if (disabled)
-                                                               if (hasColor)
-                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                               else
-                                                                       PenPat(&qd.gray);
-                                                       
-                                               ::FrameRect(&frame);
-                                               
-                                               if (!hasColor)
-                                                       PenNormal();
-                                                       
-                                               ::InsetRect(&frame, 1, 1);
-                                               if (hasColor)
-                                                       ::RGBBackColor(inPushed ? &gAGAColorArray[8] : &gAGAColorArray[2]);
-                                               ::EraseRect(&frame);
-                                               
-                                               if (hasColor)
-                                                       {
-                                                               if (inPushed)
-                                                                       ::RGBForeColor(&gAGAColorArray[10]);
-                                                               else
-                                                                       ForeColor(whiteColor);
-                                                               ::MoveTo(frame.left, frame.bottom - 2);
-                                                               ::LineTo(frame.left, frame.top);
-                                                               ::LineTo(frame.right - 2, frame.top);
-                                               
-                                                               if (inPushed)
-                                                                       ::RGBForeColor(&gAGAColorArray[6]);
-                                                               else
-                                                                       ::RGBForeColor(mEnabled != triState_Off ? &gAGAColorArray[7] : &gAGAColorArray[5]);
-                                                               ::MoveTo(frame.left + 1, frame.bottom - 1);
-                                                               ::LineTo(frame.right - 1, frame.bottom - 1);
-                                                               ::LineTo(frame.right - 1, frame.top + 1);
-                                                       }
-                                               
-                                               if (mValue)
-                                                       {
-                                                               if (mValue == 1)
-                                                                       {
-                                                                               //      Checked state
-                                                                               if (hasColor)
-                                                                                       {
-                                                                                               ::RGBForeColor(inPushed ? &gAGAColorArray[10] : &gAGAColorArray[5]);
-                                                                                               ::MoveTo(frame.left + 3, frame.bottom - 2);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 3);
-                                                                                               ::MoveTo(frame.right - 2, frame.bottom - 2);
-                                                                                               ::LineTo(frame.right - 2, frame.bottom - 2);
-                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::RGBForeColor(inPushed ? &gAGAColorArray[11] : &gAGAColorArray[8]);
-                                                                                               ::MoveTo(frame.left + 3, frame.bottom - 3);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 2);
-                                                                                               ::MoveTo(frame.right - 2, frame.bottom - 3);
-                                                                                               ::LineTo(frame.right - 2, frame.bottom - 3);
-                                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::ForeColor(blackColor);
-                                                                                               else
-                                                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                                                       }
-                                                                               ::MoveTo(frame.left + 2, frame.top + 1);
-                                                                               ::LineTo(frame.right - 3, frame.bottom - 4);
-                                                                               ::MoveTo(frame.left + 2, frame.top + 2);
-                                                                               ::LineTo(frame.right - 3, frame.bottom - 3);
-                                                                               ::MoveTo(frame.left + 2, frame.bottom - 4);
-                                                                               ::LineTo(frame.right - 3, frame.top + 1);
-                                                                               ::MoveTo(frame.left + 2, frame.bottom - 3);
-                                                                               ::LineTo(frame.right - 3, frame.top + 2);
-                                                                       }
-                                                               else
-                                                                       {
-                                                                               //      Mixed state
-                                                                               if (hasColor)
-                                                                                       {
-                                                                                               ::RGBForeColor(inPushed ? &gAGAColorArray[10] : &gAGAColorArray[5]);
-                                                                                               ::MoveTo(frame.left + 3, frame.top + 6);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 6);
-                                                                                               ::LineTo(frame.right - 2, frame.top + 4);
-                                                                               
-                                                                                               if (mEnabled != triState_Off)
-                                                                                                       ::ForeColor(blackColor);
-                                                                                               else
-                                                                                                       ::RGBForeColor(&gAGAColorArray[7]);
-                                                                                       }
-                                                                               ::MoveTo(frame.left + 2, frame.top + 4);
-                                                                               ::LineTo(frame.right - 3, frame.top + 4);
-                                                                               ::MoveTo(frame.left + 2, frame.top + 5);
-                                                                               ::LineTo(frame.right - 3, frame.top + 5);
-                                                                       }
-                                                       }
-                                                       
-                                               if (inPushed && !hasColor)
-                                                       InvertRect(&frame);
-                                               
-                                               AGASetFontStyle( &info->fontStyle ) ;
-                                               int x = (**theControl).contrlRect.left + kAGACheckBoxWidth + 5 ;
-                                               int y = ( (**theControl).contrlRect.top + (**theControl).contrlRect.bottom ) / 2 ;
-                                               FontInfo fi ;
-                                               ::GetFontInfo( &fi ) ;
-                                               
-                                               y += fi.ascent / 2 ;
-                                               ::MoveTo( x , y );
-                                               int length = (**theControl).contrlTitle[0] ;
-                                               if ( length )
-                                               {
-                                                       ::DrawText( &(**theControl).contrlTitle[1] , 0, length);
-                                               }
-                                       }
-                               }
-                       
-                       }
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) && ((*theControl)->contrlVis != 0) && ((*theControl)->contrlHilite != 255) )
-                                       return kControlCheckBoxPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                         {
-                               if ( (**theControl).contrlValue )
-                                       (**theControl).contrlValue = 0 ;
-                               else
-                                       (**theControl).contrlValue = 1 ;
-                                       
-                                       return 0 ;
-                               }
-                               else
-                                       return 0 ;
-                       }
-                       break ;
-               case calcThumbRgn :
-               case calcCntlRgn :
-                       if ( !EmptyRect(&(**theControl).contrlRect ) )
-                               RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = (**theControl).contrlRect.right - (**theControl).contrlRect.left ;
-                               rec->height = kAGACheckBoxHeigth ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       */
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGAStaticGroupBoxTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-
-       switch( message )
-       {
-               case initCntl :
-                       break ;
-               case dispCntl :
-                       break ;
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                                       
-                               {
-                                       bool disabled = false ;
-                                       bool hasColor = true ;
-                                       AGAPortHelper help((**theControl).contrlOwner) ;
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       FontInfo fi ;
-                                       ::GetFontInfo( &fi ) ;
-                                       
-                                       Rect labelRect = (**theControl).contrlRect ;
-                                       Rect theFrame = (**theControl).contrlRect ;
-                                       int width = StringWidth((**theControl).contrlTitle) ;
-                                       theFrame.top += fi.ascent + fi.leading >> 1 ;
-                                       labelRect.bottom = theFrame.top + 8 ;
-                                       labelRect.left += 10 ;
-                                       labelRect.right =labelRect.left + width + 6 ;
-                                       
-                                       theFrame.bottom--;
-                                       theFrame.right--;
-                                       
-                                       if (disabled)
-                                       {
-                                               RGBForeColor( &gAGAColorArray[4] ) ;
-                                       }
-                                       else
-                                       {
-                                               RGBForeColor( &gAGAColorArray[7] ) ;
-                                       }
-                                       FrameRect( &theFrame ) ;
-                                       
-                                       if (disabled)
-                                               ::RGBForeColor(&gAGAColorArray[1]);
-                                       else
-                                               ::ForeColor(whiteColor);
-                                       ::MoveTo(theFrame.left + 1, theFrame.bottom - 2);
-                                       ::LineTo(theFrame.left + 1, theFrame.top + 1);
-                                       ::LineTo(theFrame.right - 2, theFrame.top + 1);
-                                       ::MoveTo(theFrame.left , theFrame.bottom);
-                                       ::LineTo(theFrame.right, theFrame.bottom);
-                                       ::LineTo(theFrame.right, theFrame.top);
-                                       
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       ::EraseRect( &labelRect ) ;
-                                       ::MoveTo(labelRect.left + 3, labelRect.top + fi.ascent + (fi.leading >> 1));
-                                       ::DrawString((**theControl).contrlTitle);
-                               }
-                       }
-                       break ;
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = (**theControl).contrlRect.right - (**theControl).contrlRect.left ;
-                               rec->height = (**theControl).contrlRect.bottom - (**theControl).contrlRect.top  ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               case kControlMsgSetData :
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGAStaticTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       Handle macText = (**theControl).contrlData ;
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-
-       switch( message )
-       {
-               case initCntl :
-                       {
-                               macText = NewHandle(0) ;
-                                (**theControl).contrlData = (Handle) macText ;
-                       }
-                       break ;
-               case dispCntl :
-                       DisposeHandle( macText ) ;
-                       break ;
-               case drawCntl :
-                       {
-                               if (!(**theControl).contrlVis)                          
-                                       return 0 ;
-                                       
-                               {
-                                       AGAPortHelper help((**theControl).contrlOwner) ;
-                                       AGASetFontStyle( &info->fontStyle ) ;
-                                       int x = (**theControl).contrlRect.left ;
-                                       int y = (**theControl).contrlRect.top ;
-                                       int lineheight ;
-                                       FontInfo fi ;
-                                       ::GetFontInfo( &fi ) ;
-                                       
-                                       y += fi.ascent ;
-                                       lineheight = fi.ascent + fi.descent + fi.leading ;
-                                       int length = GetHandleSize( macText ) ;
-                                       if ( length )
-                                       {
-                                               int laststop = 0 ;
-                                               int i = 0 ;
-                                               HLock( macText ) ;
-                                               RGBColor gray = { 0xDDDD , 0xDDDD, 0xDDDD } ;
-                                               ::RGBBackColor( &gray ) ;
-                                               while( i < length )
-                                               {
-                                                       if ( (*macText)[i] == 0x0d )
-                                                       {
-                                                               ::MoveTo( x , y );
-                                                               ::DrawText( *macText , laststop, i-laststop);
-                                                               laststop = i+1 ;
-                                                               y += lineheight ;
-                                                       }
-                                                       i++ ;
-                                               }
-                                               ::MoveTo( x , y );
-                                               ::DrawText( *macText , laststop, i-laststop);
-                                               laststop = i+1 ;
-                                               HUnlock( macText ) ;
-                                       }
-                               }
-                       }
-                       break ;
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = (**theControl).contrlRect.right - (**theControl).contrlRect.left ;
-                               rec->height = (**theControl).contrlRect.bottom - (**theControl).contrlRect.top  ;
-                               rec->baseLine = 0;
-                       }
-                       break ;
-               case kControlMsgSetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               if ( rec->tag == kControlStaticTextTextTag )
-                               {
-                                       SetHandleSize( macText , rec->size ) ;
-                                       memcpy( *macText , rec->dataPtr , rec->size ) ;
-                                       return noErr ;
-                               }
-                               return errDataNotSupported ;
-                       }
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-void AGAMoveControl(ControlHandle inControl , short x , short y ) 
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;        
-               if ( info->magic == kExtCDEFMagic )
-               {
-                       if ( info->procID == kControlEditTextProc)
-                       {
-                               int dx ;
-                               int dy ;
-                               
-                               dx= x - (**inControl).contrlRect.left  ;
-                               dy= y - (**inControl).contrlRect.top ;
-                               
-                               MoveControl( inControl , x ,y  ) ;
-                               TEHandle macTE ;
-       
-                               macTE = (TEHandle) (**inControl).contrlData ;
-                               (**macTE).destRect.left += dx ;
-                               (**macTE).destRect.top += dy ;
-                               (**macTE).destRect.right += dx ;
-                               (**macTE).destRect.bottom += dy ;
-                               (**macTE).viewRect.left += dx ;
-                               (**macTE).viewRect.top += dy ;
-                               (**macTE).viewRect.right += dx ;
-                               (**macTE).viewRect.bottom += dy ;
-                               return ;
-                       }
-                       if ( info->procID == kControlListBoxProc)
-                       {
-                               int dx ;
-                               int dy ;
-                               
-                               dx= x - (**inControl).contrlRect.left  ;
-                               dy= y - (**inControl).contrlRect.top ;
-                               
-                               MoveControl( inControl , x ,y  ) ;
-                               ListHandle macList ;
-       
-                               macList = (ListHandle) (**inControl).contrlData ;
-                               (**macList).rView.left += dx ;
-                               (**macList).rView.top += dy ;
-                               (**macList).rView.right += dx ;
-                               (**macList).rView.bottom += dy ;
-                               return ;
-                       }
-               }
-       }
-       MoveControl( inControl , x ,y  ) ;
-}
-
-void AGASizeControl(ControlHandle inControl , short x , short y ) 
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;        
-               if ( info->magic == kExtCDEFMagic )
-               {
-                       if ( info->procID == kControlEditTextProc)
-                       {
-                               int dx ;
-                               int dy ;
-                               
-                               dx= x - ( (**inControl).contrlRect.right - (**inControl).contrlRect.left ) ;
-                               dy= y - ( (**inControl).contrlRect.bottom - (**inControl).contrlRect.top ) ;
-                               
-                               SizeControl( inControl , x ,y  ) ;
-                               TEHandle macTE ;
-       
-                               macTE = (TEHandle) (**inControl).contrlData ;
-                               (**macTE).destRect.right += dx ;
-                               (**macTE).destRect.bottom += dy ;
-                               (**macTE).viewRect.right += dx ;
-                               (**macTE).viewRect.bottom += dy ;
-                               return ;
-                       }
-                       if ( info->procID == kControlListBoxProc)
-                       {
-                               int dx ;
-                               int dy ;
-                               
-                               dx= x - ( (**inControl).contrlRect.right - (**inControl).contrlRect.left ) ;
-                               dy= y - ( (**inControl).contrlRect.bottom - (**inControl).contrlRect.top ) ;
-                               
-                               SizeControl( inControl , x ,y  ) ;
-                               ListHandle macList ;
-       
-                               macList = (ListHandle) (**inControl).contrlData ;
-                               (**macList).rView.right += dx ;
-                               (**macList).rView.bottom += dy ;
-                               return ;
-                       }
-               }
-       }
-       SizeControl( inControl , x ,y  ) ;
-}
-
-pascal SInt32 AGARootControlDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-
-       switch( message )
-       {
-               case initCntl :
-                       break ;
-               case dispCntl :
-                       break ;
-               case drawCntl :
-                       break ;
-               case kControlMsgCalcBestRect :
-                       break ;
-               case kControlMsgSetData :
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGAEditTextDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       Size result ;
-       TEHandle macTE ;
-       
-       macTE = (TEHandle) (**theControl).contrlData ;
-       
-       switch( message )
-       {
-               case initCntl :
-                       {
-                               AGAPortHelper help((**theControl).contrlOwner) ;
-                               SetPort( (**theControl).contrlOwner ) ;
-                               ::TextFont( kFontIDGeneva ) ; 
-                               ::TextSize( 10 ) ;
-                               ::TextFace( 0 ) ;
-                               RGBBackColor( &gAGARamp[ kAGAWhite ] ) ;
-                               RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-                               Rect bounds =  (**theControl).contrlRect ;                              
-                               InsetRect( &bounds , 4 , 1 ) ;
-                               FontInfo fi ;
-                               ::GetFontInfo( &fi ) ;
-                               
-                               bounds.top = bounds.bottom - abs( fi.descent ) - fi.ascent - 3;
-                               macTE = TENew( &bounds , &bounds) ;
-                                (**theControl).contrlData = (Handle) macTE ;
-                       }
-                       break ;
-               case dispCntl :
-                       TEDispose( macTE ) ;
-                       break ;
-               case drawCntl :
-                       {
-                               AGAPortHelper help((**theControl).contrlOwner) ;
-                               AGASetFontStyle( &info->fontStyle ) ;
-                               SetPort( (**theControl).contrlOwner ) ;
-                               RGBBackColor( &gAGARamp[ kAGAWhite ] ) ;
-                               RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-                               EraseRect( &(**theControl).contrlRect ) ;
-                               FrameRect( &(**theControl).contrlRect ) ;
-                               TEUpdate( &(**theControl).contrlRect , macTE ) ;
-                       }
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                                       return kControlButtonPart ;
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         if ( PtInRect( pt , &(**theControl).contrlRect  ) )
-                         {
-                               TEClick( pt , false , macTE ) ;
-                               }
-                       }
-                       break ;
-               case kControlMsgGetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               if ( rec->tag == kControlEditTextTEHandleTag )
-                               {
-                                       return AGAGetDataHelper( rec , sizeof( TEHandle ) , (char*) &macTE ) ;
-                               }
-                               else if ( rec->tag == kControlEditTextTextTag )
-                               {
-                                       return AGAGetDataHelper( rec , (**macTE).teLength , (char*) *(**macTE).hText ) ;
-                               }
-                               else if ( rec->tag == kControlEditTextSelectionTag )
-                               {
-                               }
-                               return errDataNotSupported ;
-                       }
-                       break ;
-               case kControlMsgSetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               if ( rec->tag == kControlEditTextTextTag )
-                               {
-                                       TESetText( rec->dataPtr , rec->size ,  macTE ) ;
-                                       return noErr ;
-                               }
-                               return errDataNotSupported ;
-                       }
-               case kControlMsgCalcBestRect :
-                       {
-                               ControlCalcSizeRec *rec = (ControlCalcSizeRec *) param ;
-                               rec->width = (**theControl).contrlRect.right - (**theControl).contrlRect.left ;
-                               rec->height = (**theControl).contrlRect.bottom - (**theControl).contrlRect.top  ;
-                               rec->baseLine = 0;
-                       }
-               case kControlMsgFocus :
-                       {
-                               if ( param == kControlFocusNoPart )
-                               {
-                                       info->hasFocus = false ;
-                                       TEDeactivate( macTE ) ;
-                                       return kControlFocusNoPart ;
-                               }
-                               else if ( param == kControlFocusNextPart || param == kControlFocusPrevPart )
-                               {
-                                       if ( info->hasFocus )
-                                       {
-                                               info->hasFocus = false ;
-                                               TEDeactivate( macTE ) ;
-                                               return kControlFocusNoPart ;
-                                       }
-                                       else
-                                       {
-                                               info->hasFocus = true ;
-                                               TEActivate( macTE ) ;
-                                               return kControlEditTextPart ;
-                                       }
-                               }
-                               else if ( param == kControlEditTextPart )
-                               {
-                                       if ( !info->hasFocus )
-                                       {
-                                               info->hasFocus = true ;
-                                               TEActivate( macTE ) ;
-                                               return kControlEditTextPart ;
-                                       }
-                               }
-                       }
-                       break ;
-               case kControlMsgIdle :
-                       {
-                               TEIdle( macTE ) ;
-                       }
-                       break ;
-               case kControlMsgKeyDown :
-                       {
-                               AGAPortHelper help( (**theControl).contrlOwner ) ;
-                               AGASetFontStyle( &info->fontStyle ) ;
-                               RGBBackColor( &gAGARamp[ kAGAWhite ] ) ;
-                               RGBForeColor( &gAGARamp[ kAGABlack ] ) ;
-                               ControlKeyDownRec * rec = (ControlKeyDownRec*) param ;
-                               TEKey( rec->charCode , macTE ) ;
-                       }
-                       break ;
-               case kControlMsgActivate :
-                       {
-                        /*
-                               if ( param )
-                                       TEActivate( macTE ) ;
-                               else
-                                       TEDeactivate( macTE ) ;
-                               */
-                       }
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case kControlMsgTestNewMsgSupport :
-                       return kControlSupportsNewMessages ;
-               case kControlMsgGetFeatures :
-                       return 
-//                             kControlSupportsGhosting |
-//                             kControlSupportsEmbedding |
-                               kControlSupportsFocus | 
-                               kControlWantsIdle | 
-                               kControlWantsActivate | 
-//                             kControlHandlesTracking |
-                               kControlSupportsDataAccess |
-//                             kControlHasSpecialBackground |
-//                             kControlGetsFocusOnClick |
-                               kControlSupportsCalcBestRect |
-//                             kControlSupportsLiveFeedback |
-//                             kControlHasRadioBehavior |
-                               0 ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-pascal SInt32 AGAListControlDefProc (SInt16 procID, ControlHandle theControl, ControlDefProcMessage message, SInt32 param)
-{
-       Size result ;
-       ListHandle macList ;
-       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**theControl).contrlRfCon ;       
-       
-       macList = (ListHandle) (**theControl).contrlData ;
-
-       static inLoop = false ;
-       static lastClick = NULL ;
-       
-       switch( message )
-       {
-               case initCntl :
-                       {
-                               Rect databounds = { 0,0,0,0} ;
-                               Point cellsize = { 0,0} ;
-                               Rect listBounds =  (**theControl).contrlRect ;
-                               
-                               InsetRect( &listBounds , 1 , 1 ) ;
-                               
-                               macList = LNew( &listBounds , &databounds , cellsize , 128 , 
-                                       (**theControl).contrlOwner , false /*drawit*/ , false /*hasGrow*/,
-                                       false /* horzScroll */, true /*vertScroll*/ ) ;
-                                (**theControl).contrlData = (Handle) macList ;
-                               info->privateData = NULL ;
-                       }
-                       break ;
-               case dispCntl :
-                       (**macList).vScroll = NULL ; // will be disposed by the window itself
-                       (**macList).hScroll = NULL ; // will be disposed by the window itself
-                       LDispose( macList ) ;
-                       break ;
-               case calcCntlRgn :
-                       RectRgn((RgnHandle) param , &(**theControl).contrlRect ) ;
-                       break ;
-               case testCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         Rect  listRect ;
-                         Rect  allRect = (**theControl).contrlRect ;
-                         listRect = allRect ;
-                         if ( !inLoop )
-                                       allRect.right += 16 ;
-                         if ( PtInRect( pt , &allRect ) )
-                         {
-                               if ( !inLoop && StillDown() )
-                               {
-                                       inLoop = true ;
-                                       LActivate( true , macList ) ;
-                                       Boolean doubleClick = LClick( pt , 0 /* todo modifiers*/ , macList ) ;
-                                       info->privateData = doubleClick ;
-                                       inLoop = false ;
-                               }
-                               return kControlListBoxPart ;
-                         }
-                         else
-                               return NULL ;
-                       }
-                       break ;
-               case drawCntl :
-                       {
-                               AGAPortHelper help((**theControl).contrlOwner) ;
-                               AGASetFontStyle( &info->fontStyle ) ;
-                               RGBBackColor( &gAGARamp[ kAGAWhite ] ) ;
-                               EraseRect( &(**theControl).contrlRect ) ;
-                               FrameRect( &(**theControl).contrlRect ) ;
-                               RgnHandle controlRgn = NewRgn() ;
-                               SetRectRgn( controlRgn, (**theControl).contrlRect.left ,
-                                       (**theControl).contrlRect.top,
-                                       (**theControl).contrlRect.right,
-                                       (**theControl).contrlRect.bottom ) ;
-                               LUpdate( controlRgn,  macList ) ;
-                       }
-                       break ;
-               case posCntl :
-                       {
-                         Point pt ;
-                         pt.h = LoWord( param ) ;
-                         pt.v = HiWord( param ) ;
-                         Rect  listRect ;
-                         Rect  allRect = (**theControl).contrlRect ;
-                         listRect = allRect ;
-                         allRect.right += 16 ;
-                         if ( PtInRect( pt , &listRect ) )
-                         {
-                               if ( !inLoop && StillDown() )
-                               {
-                                       inLoop = true ;
-                                       LActivate( true , macList ) ;
-                                               Boolean doubleClick = LClick( pt , 0 /* todo modifiers*/ , macList ) ;
-                                               info->privateData = doubleClick ;
-                                               inLoop = false ;
-                                       }
-                                       return kControlListBoxPart ;
-                               }
-                               else if ( PtInRect( pt , &allRect ) )
-                               {
-                               if ( !inLoop && StillDown() )
-                               {
-                                       inLoop = true ;
-                                       // LActivate( true , macList ) ;
-                                               Boolean doubleClick = LClick( pt , 0 /* todo modifiers*/ , macList ) ;
-                                               info->privateData = doubleClick ;
-                                               inLoop = false ;
-                                       }
-                                       return kControlPageDownPart ;
-                               }
-                               else
-                                       return NULL ;
-                       }
-                       break ;
-               case kControlMsgGetData :
-                       {
-                               ControlDataAccessRec *rec = (ControlDataAccessRec *) param ;
-                               if ( rec->tag == kControlListBoxListHandleTag )
-                               {
-                                       return AGAGetDataHelper( rec , sizeof( ListHandle ) , (char*) &macList ) ;
-                               }
-                               else if ( rec->tag == kControlListBoxDoubleClickTag )
-                               {
-                                       Boolean doubleClick = info->privateData ;
-                                       return AGAGetDataHelper( rec , sizeof( Boolean ) , (char*) &doubleClick ) ;
-                               }
-                               return errDataNotSupported ;
-                       }
-                       break ;
-               default :
-                       break ;
-       }
-       
-       return 0 ;                                                                      
-}
-
-OSErr AGACreateRootControl                             (WindowPtr                              inWindow,
-                                                                ControlHandle *                outControl) 
-{
-       ControlHandle theControl = NULL ;
-
-       SInt16 extCDEFID = kExtCDEFID << 4 + 0 ;
-
-       theControl = NewControl( inWindow , &inWindow->portRect , "\p" , true ,
-                       0 , 0 , 1 , extCDEFID , 0 ) ;
-       NewExtCDEFInfo( theControl , AGARootControlDefProc , kAGARootControlProcID , 0 ) ;
-       
-       *outControl = theControl ;
-       return noErr ;
-}
-
-OSErr AGAEmbedControl                                  (ControlHandle                  inControl,
-                                                                ControlHandle                  inContainer) 
-{
-       if ( AGATestForNewControl( inControl ) )
-       {
-               ExtCDEFInfo* info = (ExtCDEFInfo* )  (**inControl).contrlRfCon ;        
-               info->containerControl = inContainer ;
-       }
-       return noErr ;
-}
-
-void AGADrawControl( ControlHandle control )
-{
-       DrawOneControl( control ) ;
-       ControlHandle iter = (ControlHandle) ((WindowPeek)(**control).contrlOwner)->controlList ; 
-       while ( iter )
-       {
-               if ( AGATestForNewControl( iter ) )
-               {
-                       ExtCDEFInfo* info = (ExtCDEFInfo* )  (**iter).contrlRfCon ;
-                       if ( info->containerControl == control )
-                       {               
-                               AGADrawControl( iter  ) ;
-                       }
-               }
-       
-               iter = (**iter).nextControl ;
-       }
-}
-
-
-ControlHandle AGANewControl(WindowPtr                          owningWindow,
-                                                                const Rect *                   bounds,
-                                                                ConstStr255Param               controlTitle,
-                                                                Boolean                                initiallyVisible,
-                                                                SInt16                                 initialValue,
-                                                                SInt16                                 minimumValue,
-                                                                SInt16                                 maximumValue,
-                                                                SInt16                                 procID,
-                                                                SInt32                                 controlReference)
-{
-       ControlHandle theControl = NULL ;
-       Rect boundsRect = *bounds ;
-       SInt16 extCDEFID = kExtCDEFID << 4 + 0 ;
-       SInt16 oldProcID = extCDEFID ;
-       switch( procID ) 
-       {
-               case kControlScrollBarProc :
-               case kControlScrollBarLiveProc :
-                       oldProcID = scrollBarProc ;
-                       break ;
-               case kControlListBoxProc :
-                       initialValue = 0 ;
-               default :
-                       break ;
-       }
-       if ( oldProcID == extCDEFID && procID == kControlListBoxProc )
-       {
-               boundsRect.right -= 16 ;
-       }
-       theControl = NewControl( owningWindow , &boundsRect , controlTitle , initiallyVisible ,
-                       initialValue , minimumValue , maximumValue , oldProcID , controlReference ) ;
-       if ( oldProcID == extCDEFID )
-       {
-               ControlDefProcPtr theProcPtr = NULL ;
-               SInt16 theVarCode = 0 ;
-               switch( procID )
-               {
-                       case kControlPushButtonProc :
-                               theProcPtr = AGAButtonDefProc ;
-                               break ;
-                       case kControlCheckBoxProc :
-                               theProcPtr = AGACheckBoxDefProc ;
-                               break ;
-                       case kControlRadioButtonProc :
-                               theProcPtr = AGARadioButtonDefProc ;
-                               break ;
-                       case kControlProgressBarProc :
-                               theProcPtr = AGAProgressBarDefProc ;
-                               break ;
-                       case kControlPlacardProc :
-                               theProcPtr = AGAPlacardDefProc ;
-                               break ;
-                       case kControlStaticTextProc :
-                               theProcPtr = AGAStaticTextDefProc ;
-                               break ;
-                       case kControlListBoxProc :
-                               theProcPtr = AGAListControlDefProc ;
-                               break ;
-                       case kControlEditTextProc :
-                               theProcPtr = AGAEditTextDefProc ;
-                               break ;
-                       case kControlGroupBoxTextTitleProc :
-                               theProcPtr = AGAStaticGroupBoxTextDefProc ;
-                               break ;
-                       case kControlBevelButtonNormalBevelProc :
-                               theProcPtr = AGABevelButtonDefProc ;
-                               break ;
-               }
-               
-               if ( theProcPtr )
-               {
-                       NewExtCDEFInfo( theControl , theProcPtr , procID , controlReference ) ;
-               }
-       }
-       return theControl ;
-}
-
-void                   AGASetThemeWindowBackground             (WindowRef                              inWindow,
-                                                                ThemeBrush                     inBrush,
-                                                                Boolean                                inUpdate) 
-{
-       GrafPtr port ;
-       GetPort( &port ) ;
-       SetPort( inWindow ) ;
-       if ( inBrush == kThemeBrushDialogBackgroundActive )
-       {
-                       gAGABackgroundColor = 2 ;
-       }
-       else
-       {
-                       gAGABackgroundColor = 0 ;
-       }
-       RGBBackColor( &gAGAColorArray[gAGABackgroundColor] ) ;
-       SetPort( port ) ;
-}
-
-void AGAApplyThemeBackground(ThemeBackgroundKind       inKind,
-                                                                const Rect *                   bounds,
-                                                                ThemeDrawState                 inState,
-                                                                SInt16                                 inDepth,
-                                                                Boolean                                inColorDev) 
-{
-}
-
-#endif
-AGAPortHelper::AGAPortHelper( GrafPtr newport) 
-{
-       GetPort( &port ) ;
-       SetPort( newport ) ;
-//     wxASSERT( newport->portRect.left == 0 && newport->portRect.top == 0 ) ; 
-       GetPenState( &oldPenState ) ;
-       GetBackColor( &oldBackColor ) ;
-       GetForeColor( &oldForeColor ) ;
-
-       clip = NewRgn() ;
-       GetClip( clip );
-       font = GetPortTextFont( newport);
-       size = GetPortTextSize( newport);
-       style = GetPortTextFace( newport);
-       mode = GetPortTextMode( newport);       
-       nport = newport ;
-
-}
-AGAPortHelper::AGAPortHelper()
-{
-       clip = NULL ;
-}
-void AGAPortHelper::Setup( GrafPtr newport )
-{
-       GetPort( &port ) ;
-       SetPort( newport ) ;
-//     wxASSERT( newport->portRect.left == 0 && newport->portRect.top == 0 ) ; 
-       GetPenState( &oldPenState ) ;
-       GetBackColor( &oldBackColor ) ;
-       GetForeColor( &oldForeColor ) ;
-
-       clip = NewRgn() ;
-       GetClip( clip );
-       font = GetPortTextFont( newport);
-       size = GetPortTextSize( newport);
-       style = GetPortTextFace( newport);
-       mode = GetPortTextMode( newport);       
-       nport = newport ;
-}
-void AGAPortHelper::Clear()
-{
-       if ( clip )
-       {
-               DisposeRgn( clip ) ;
-               clip = NULL ;
-       }
-}
-AGAPortHelper::~AGAPortHelper()
-{
-       if ( clip )
-       {
-               SetPort( nport ) ;
-               SetClip( clip ) ;
-               DisposeRgn( clip ) ;
-               RGBForeColor(&oldForeColor);
-               RGBBackColor(&oldBackColor);
-               SetPenState(&oldPenState);                              
-
-               TextFont( font );
-               TextSize( size );
-               TextFace( style );
-               TextMode( mode );
-               SetPort( port ) ;
-       }
-}
+// NOT NEEDED ANYMORE