--- a/NoteBookView.st Mon Sep 20 12:33:52 2004 +0200
+++ b/NoteBookView.st Mon Sep 27 10:50:27 2004 +0200
@@ -1548,8 +1548,7 @@
!
initialize
- "setup default attributes
- "
+
super initialize.
self cursor:Cursor hand.
@@ -1570,14 +1569,7 @@
tabRightMargin := 0.
tabLeftMargin := 0.
- tabTopMargin := StyleSheet at:#'noteBook.tabTopMargin' default:nil.
-
- tabTopMargin ifNil:[
- "/ menus has no button renderer....
- StyleSheet name == #win95 ifTrue:[ tabTopMargin := 1 ]
- ifFalse:[ tabTopMargin := 4 ].
- ].
-
+ tabTopMargin := StyleSheet at:#'noteBook.tabTopMargin' default:4.
tabBottomMargin := StyleSheet at:#'noteBook.tabBottomMargin' default:1.
self lineWidth:0.
@@ -2847,5 +2839,5 @@
!NoteBookView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.97 2004-09-10 13:52:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.98 2004-09-27 08:50:27 stefan Exp $'
! !