NoteBookView.st
changeset 2746 2c614cc1559c
parent 2740 c9812e019351
child 2758 89a2c0da11ec
--- 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 $'
 ! !