src/mac/classic/checklst.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        checklst.cpp
   3 // Purpose:     implementation of wxCheckListBox class
   4 // Author:      Stefan Csomor
   5 // Modified by:
   6 // Created:     1998-01-01
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Stefan Csomor
   9 // Licence:     wxWindows licence
  10 ///////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // headers & declarations
  14 // ============================================================================
  15
  16 #ifdef __GNUG__
  17 #pragma implementation "checklst.h"
  18 #endif
  19
  20 #include "wx/defs.h"
  21
  22 #if wxUSE_CHECKLISTBOX
  23
  24 #include "wx/checklst.h"
  25 #include "wx/arrstr.h"
  26
  27 #include "wx/mac/uma.h"
  28 #include <Appearance.h>
  29
  30 // ============================================================================
  31 // implementation of wxCheckListBox
  32 // ============================================================================
  33
  34 IMPLEMENT_DYNAMIC_CLASS(wxCheckListBox, wxListBox)
  35
  36 const short kwxMacListWithVerticalScrollbar = 128 ;
  37 const short kwxMacListItemHeight = 14 ;
  38 const short kwxMacListCheckboxWidth = 14 ;
  39
  40 #if PRAGMA_STRUCT_ALIGN
  41     #pragma options align=mac68k
  42 #elif PRAGMA_STRUCT_PACKPUSH
  43     #pragma pack(push, 2)
  44 #elif PRAGMA_STRUCT_PACK
  45     #pragma pack(2)
  46 #endif
  47
  48 typedef struct {
  49  unsigned short instruction;
  50  void (*function)();
  51 } ldefRec, *ldefPtr, **ldefHandle;
  52
  53 #if PRAGMA_STRUCT_ALIGN
  54     #pragma options align=reset
  55 #elif PRAGMA_STRUCT_PACKPUSH
  56     #pragma pack(pop)
  57 #elif PRAGMA_STRUCT_PACK
  58     #pragma pack()
  59 #endif
  60
  61 extern "C"
  62 {
  63 static pascal void wxMacCheckListDefinition( short message, Boolean isSelected, Rect *drawRect,
  64                                      Cell cell, short dataOffset, short dataLength,
  65                                      ListHandle listHandle ) ;
  66 }
  67
  68 static pascal void wxMacCheckListDefinition( short message, Boolean isSelected, Rect *drawRect,
  69                                      Cell cell, short dataOffset, short dataLength,
  70                                      ListHandle listHandle )
  71 {
  72     wxCheckListBox*          list;
  73     list = (wxCheckListBox*) GetControlReference( (ControlHandle) GetListRefCon(listHandle) );
  74     if ( list == NULL )
  75         return ;
  76
  77     GrafPtr savePort;
  78     GrafPtr grafPtr;
  79     RgnHandle savedClipRegion;
  80     SInt32 savedPenMode;
  81     GetPort(&savePort);
  82     SetPort((**listHandle).port);
  83     grafPtr = (**listHandle).port ;
  84     // typecast our refCon
  85
  86     //  Calculate the cell rect.
  87
  88     switch( message ) {
  89         case lInitMsg:
  90             break;
  91
  92         case lCloseMsg:
  93             break;
  94
  95         case lDrawMsg:
  96         {
  97             const wxString text = list->m_stringArray[cell.v] ;
  98             int checked = list->m_checks[cell.v] ;
  99
 100             //  Save the current clip region, and set the clip region to the area we are about
 101             //  to draw.
 102
 103             savedClipRegion = NewRgn();
 104             GetClip( savedClipRegion );
 105
 106             ClipRect( drawRect );
 107             EraseRect( drawRect );
 108
 109             const wxFont& font = list->GetFont();
 110             if ( font.Ok() )
 111             {
 112                 ::TextFont( font.GetMacFontNum() ) ;
 113                 ::TextSize( font.GetMacFontSize())  ;
 114                 ::TextFace( font.GetMacFontStyle() ) ;
 115             }
 116
 117             ThemeButtonDrawInfo info ;
 118             info.state = kThemeStateActive ;
 119             info.value = checked ? kThemeButtonOn : kThemeButtonOff ;
 120             info.adornment = kThemeAdornmentNone ;
 121             Rect checkRect = *drawRect ;
 122
 123
 124             checkRect.left +=0 ;
 125             checkRect.top +=0 ;
 126             checkRect.right = checkRect.left + list->m_checkBoxWidth ;
 127             checkRect.bottom = checkRect.top + list->m_checkBoxHeight ;
 128             DrawThemeButton(&checkRect,kThemeCheckBox,
 129                 &info,NULL,NULL, NULL,0);
 130
 131             MoveTo(drawRect->left + 2 + list->m_checkBoxWidth+2, drawRect->top + list->m_TextBaseLineOffset );
 132
 133             DrawText(text, 0 , text.Length());
 134             //  If the cell is hilited, do the hilite now. Paint the cell contents with the
 135             //  appropriate QuickDraw transform mode.
 136
 137             if( isSelected ) {
 138                 savedPenMode = GetPortPenMode( (CGrafPtr) grafPtr );
 139                 SetPortPenMode( (CGrafPtr) grafPtr, hilitetransfermode );
 140                 PaintRect( drawRect );
 141                 SetPortPenMode( (CGrafPtr) grafPtr, savedPenMode );
 142             }
 143
 144             //  Restore the saved clip region.
 145
 146             SetClip( savedClipRegion );
 147             DisposeRgn( savedClipRegion );
 148         }
 149         break;
 150         case lHiliteMsg:
 151
 152             //  Hilite or unhilite the cell. Paint the cell contents with the
 153             //  appropriate QuickDraw transform mode.
 154
 155             GetPort( &grafPtr );
 156             savedPenMode = GetPortPenMode( (CGrafPtr) grafPtr );
 157             SetPortPenMode( (CGrafPtr) grafPtr, hilitetransfermode );
 158             PaintRect( drawRect );
 159             SetPortPenMode( (CGrafPtr) grafPtr, savedPenMode );
 160             break;
 161         default :
 162           break ;
 163     }
 164     SetPort(savePort);
 165 }
 166
 167 extern "C" void MacDrawStringCell(Rect *cellRect, Cell lCell, ListHandle theList, long refCon) ;
 168
 169 static ListDefUPP macCheckListDefUPP = NULL ;
 170
 171 // ----------------------------------------------------------------------------
 172 // creation
 173 // ----------------------------------------------------------------------------
 174
 175 void wxCheckListBox::Init()
 176 {
 177 }
 178
 179 bool wxCheckListBox::Create(wxWindow *parent,
 180                             wxWindowID id,
 181                             const wxPoint &pos,
 182                             const wxSize &size,
 183                             const wxArrayString& choices,
 184                             long style,
 185                             const wxValidator& validator,
 186                             const wxString &name)
 187 {
 188     wxCArrayString chs(choices);
 189
 190     return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
 191                   style, validator, name);
 192 }
 193
 194 bool wxCheckListBox::Create(wxWindow *parent,
 195                             wxWindowID id,
 196                             const wxPoint &pos,
 197                             const wxSize &size,
 198                             int n,
 199                             const wxString choices[],
 200                             long style,
 201                             const wxValidator& validator,
 202                             const wxString &name)
 203 {
 204     if ( !wxCheckListBoxBase::Create(parent, id, pos, size,
 205                                      n, choices, style, validator, name) )
 206         return false;
 207
 208     m_noItems = 0 ; // this will be increased by our append command
 209     m_selected = 0;
 210
 211     m_checkBoxWidth = 12;
 212     m_checkBoxHeight= 10;
 213
 214     long h = m_checkBoxHeight ;
 215 #if TARGET_CARBON
 216     GetThemeMetric(kThemeMetricCheckBoxWidth,(long *)&m_checkBoxWidth);
 217     GetThemeMetric(kThemeMetricCheckBoxHeight,&h);
 218 #endif
 219
 220     const wxFont& font = GetFont();
 221
 222     FontInfo finfo;
 223     FetchFontInfo(font.GetMacFontNum(),font.GetMacFontSize(),font.GetMacFontStyle(),&finfo);
 224
 225     m_TextBaseLineOffset= finfo.leading+finfo.ascent;
 226     m_checkBoxHeight= finfo.leading+finfo.ascent+finfo.descent;
 227
 228     if (m_checkBoxHeight<h)
 229     {
 230         m_TextBaseLineOffset+= (h-m_checkBoxHeight)/2;
 231         m_checkBoxHeight= h;
 232     }
 233
 234     Rect bounds ;
 235     Str255 title ;
 236
 237     MacPreControlCreate( parent , id ,  wxEmptyString , pos , size ,style, validator , name , &bounds , title ) ;
 238
 239     ListDefSpec listDef;
 240     listDef.defType = kListDefUserProcType;
 241     if ( macCheckListDefUPP == NULL )
 242     {
 243       macCheckListDefUPP = NewListDefUPP( wxMacCheckListDefinition );
 244     }
 245         listDef.u.userProc = macCheckListDefUPP ;
 246
 247 #if TARGET_CARBON
 248     Size asize;
 249
 250
 251     CreateListBoxControl( MAC_WXHWND(parent->MacGetRootWindow()), &bounds, false, 0, 1, false, true,
 252                           m_checkBoxHeight+2, 14, false, &listDef, (ControlRef *)&m_macControl );
 253
 254     GetControlData( (ControlHandle) m_macControl, kControlNoPart, kControlListBoxListHandleTag,
 255                    sizeof(ListHandle), (Ptr) &m_macList, &asize);
 256
 257     SetControlReference( (ControlHandle) m_macControl, (long) this);
 258     SetControlVisibility( (ControlHandle) m_macControl, false, false);
 259
 260 #else
 261
 262     long    result ;
 263
 264     wxStAppResource resload ;
 265     m_macControl = ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()) , &bounds , title , false ,
 266                   kwxMacListWithVerticalScrollbar , 0 , 0,
 267                   kControlListBoxProc , (long) this ) ;
 268     ::GetControlData( (ControlHandle) m_macControl , kControlNoPart , kControlListBoxListHandleTag ,
 269                sizeof( ListHandle ) , (char*) &m_macList  , &result ) ;
 270
 271     HLock( (Handle) m_macList ) ;
 272     ldefHandle ldef ;
 273     ldef = (ldefHandle) NewHandle( sizeof(ldefRec) ) ;
 274     if (  (**(ListHandle)m_macList).listDefProc != NULL )
 275     {
 276       (**ldef).instruction = 0x4EF9;  /* JMP instruction */
 277       (**ldef).function = (void(*)()) listDef.u.userProc;
 278       (**(ListHandle)m_macList).listDefProc = (Handle) ldef ;
 279     }
 280
 281     Point pt = (**(ListHandle)m_macList).cellSize ;
 282     pt.v = 14 ;
 283     LCellSize( pt , (ListHandle)m_macList ) ;
 284     LAddColumn( 1 , 0 , (ListHandle)m_macList ) ;
 285 #endif
 286     OptionBits  options = 0;
 287     if ( style & wxLB_MULTIPLE )
 288     {
 289         options += lNoExtend ;
 290     }
 291     else if ( style & wxLB_EXTENDED )
 292     {
 293         options += lExtendDrag ;
 294     }
 295     else
 296     {
 297         options = (OptionBits) lOnlyOne ;
 298     }
 299     SetListSelectionFlags((ListHandle)m_macList, options);
 300
 301     MacPostControlCreate() ;
 302
 303     for ( int i = 0 ; i < n ; i++ )
 304     {
 305         Append( choices[i] ) ;
 306     }
 307
 308     LSetDrawingMode( true , (ListHandle) m_macList ) ;
 309
 310     return TRUE;
 311 }
 312
 313 // ----------------------------------------------------------------------------
 314 // wxCheckListBox functions
 315 // ----------------------------------------------------------------------------
 316
 317 bool wxCheckListBox::IsChecked(size_t item) const
 318 {
 319     wxCHECK_MSG( item < m_checks.GetCount(), FALSE,
 320                  _T("invalid index in wxCheckListBox::IsChecked") );
 321
 322     return m_checks[item] != 0;
 323 }
 324
 325 void wxCheckListBox::Check(size_t item, bool check)
 326 {
 327     wxCHECK_RET( item < m_checks.GetCount(),
 328                  _T("invalid index in wxCheckListBox::Check") );
 329
 330     // intermediate var is needed to avoid compiler warning with VC++
 331     bool isChecked = m_checks[item] != 0;
 332     if ( check != isChecked )
 333     {
 334         m_checks[item] = check;
 335
 336         MacRedrawControl() ;
 337     }
 338 }
 339
 340 // ----------------------------------------------------------------------------
 341 // methods forwarded to wxListBox
 342 // ----------------------------------------------------------------------------
 343
 344 void wxCheckListBox::Delete(int n)
 345 {
 346     wxCHECK_RET( n < GetCount(), _T("invalid index in wxListBox::Delete") );
 347
 348     wxListBox::Delete(n);
 349
 350     m_checks.RemoveAt(n);
 351 }
 352
 353 int wxCheckListBox::DoAppend(const wxString& item)
 354 {
 355     LSetDrawingMode( false , (ListHandle) m_macList ) ;
 356     int pos = wxListBox::DoAppend(item);
 357
 358     // the item is initially unchecked
 359     m_checks.Insert(FALSE, pos);
 360     LSetDrawingMode( true , (ListHandle) m_macList ) ;
 361
 362     return pos;
 363 }
 364
 365 void wxCheckListBox::DoInsertItems(const wxArrayString& items, int pos)
 366 {
 367     wxListBox::DoInsertItems(items, pos);
 368
 369     size_t count = items.GetCount();
 370     for ( size_t n = 0; n < count; n++ )
 371     {
 372         m_checks.Insert(FALSE, pos + n);
 373     }
 374 }
 375
 376 void wxCheckListBox::DoSetItems(const wxArrayString& items, void **clientData)
 377 {
 378     // call it first as it does DoClear()
 379     wxListBox::DoSetItems(items, clientData);
 380
 381     size_t count = items.GetCount();
 382     for ( size_t n = 0; n < count; n++ )
 383     {
 384         m_checks.Add(FALSE);
 385     }
 386 }
 387
 388 void wxCheckListBox::DoClear()
 389 {
 390     m_checks.Empty();
 391 }
 392
 393 BEGIN_EVENT_TABLE(wxCheckListBox, wxListBox)
 394   EVT_CHAR(wxCheckListBox::OnChar)
 395   EVT_LEFT_DOWN(wxCheckListBox::OnLeftClick)
 396 END_EVENT_TABLE()
 397
 398 // this will only work as soon as
 399
 400 void wxCheckListBox::OnChar(wxKeyEvent& event)
 401 {
 402     if ( event.GetKeyCode() == WXK_SPACE )
 403     {
 404         int index = GetSelection() ;
 405         if ( index >= 0 )
 406         {
 407             Check(index, !IsChecked(index) ) ;
 408             wxCommandEvent event(wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, GetId());
 409             event.SetInt(index);
 410             event.SetEventObject(this);
 411             GetEventHandler()->ProcessEvent(event);
 412         }
 413     }
 414     else
 415         event.Skip();
 416 }
 417
 418 void wxCheckListBox::OnLeftClick(wxMouseEvent& event)
 419 {
 420     // clicking on the item selects it, clicking on the checkmark toggles
 421     if ( event.GetX() <= 20 /*check width*/ ) {
 422         int lineheight ;
 423         int topcell ;
 424 #if TARGET_CARBON
 425         Point pt ;
 426         GetListCellSize( (ListHandle)m_macList , &pt ) ;
 427         lineheight = pt.v ;
 428         ListBounds visible ;
 429         GetListVisibleCells( (ListHandle)m_macList , &visible ) ;
 430         topcell = visible.top ;
 431 #else
 432         lineheight =  (**(ListHandle)m_macList).cellSize.v ;
 433         topcell = (**(ListHandle)m_macList).visible.top ;
 434 #endif
 435         size_t nItem = ((size_t)event.GetY()) / lineheight + topcell ;
 436
 437         if ( nItem < (size_t)m_noItems )
 438         {
 439             Check(nItem, !IsChecked(nItem) ) ;
 440             wxCommandEvent event(wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, GetId());
 441             event.SetInt(nItem);
 442             event.SetEventObject(this);
 443             GetEventHandler()->ProcessEvent(event);
 444         }
 445         //else: it's not an error, just click outside of client zone
 446     }
 447     else {
 448         // implement default behaviour: clicking on the item selects it
 449         event.Skip();
 450     }
 451 }
 452
 453 #endif // wxUSE_CHECKLISTBOX