Posted to tcl by aspect at Tue Oct 28 14:09:14 GMT 2014view raw

  1. Index: macosx/ttkMacOSXTheme.c
  2. ==================================================================
  3. --- macosx/ttkMacOSXTheme.c
  4. +++ macosx/ttkMacOSXTheme.c
  5. @@ -292,17 +292,20 @@
  6. * <URL: http://developer.apple.com/documentation/userexperience/Conceptual/
  7. * AppleHIGuidelines/XHIGControls/XHIGControls.html#//apple_ref/doc/uid/
  8. * TP30000359-TPXREF116>
  9. */
  10.  
  11. -static const int TAB_HEIGHT = 10;
  12. -static const int TAB_OVERLAP = 10;
  13. -
  14. static void TabElementSize(
  15. void *clientData, void *elementRecord, Tk_Window tkwin,
  16. int *widthPtr, int *heightPtr, Ttk_Padding *paddingPtr)
  17. {
  18. + const int TAB_HEIGHT = 10;
  19. + const int TAB_OVERLAP = 10;
  20. + if (tkMacOSXMacOSXVersion >= 1100) {
  21. + TAB_OVERLAB = 5;
  22. + }
  23. +
  24. *heightPtr = TAB_HEIGHT + TAB_OVERLAP - 1;
  25. }
  26.  
  27.