--- a/NoteBookView.st	Thu Mar 01 16:46:09 2007 +0100
+++ b/NoteBookView.st	Thu Mar 01 17:10:11 2007 +0100
@@ -1598,14 +1598,18 @@
     RemoveTabIcon notNil ifTrue:[
         tab := self tabContainingPointX:x y:y.
         (tab notNil and:[tab == self selectedTab]) ifTrue:[
-            mustShowEntered := (self destroyButtonFrameForTab:tab) containsPoint:(x@y).
-            mustShowEntered ~~ showingEnteredRemoveTabButton ifTrue:[
-                showingEnteredRemoveTabButton := mustShowEntered.
-                self drawDestroyButtonForTab:tab.    
-            ]
+            (showDestroyTabButton and:[destroyTabAction notNil]) ifTrue:[
+                mustShowEntered := (self destroyButtonFrameForTab:tab) containsPoint:(x@y).
+                mustShowEntered ~~ showingEnteredRemoveTabButton ifTrue:[
+                    showingEnteredRemoveTabButton := mustShowEntered.
+                    self drawDestroyButtonForTab:tab.    
+                ]
+            ].
         ].
     ].
-    super buttonMotion:buttonState x:x y:y    
+    super buttonMotion:buttonState x:x y:y
+
+    "Modified: / 01-03-2007 / 17:07:41 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -3437,5 +3441,5 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.126 2007-03-01 15:46:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.127 2007-03-01 16:10:11 cg Exp $'
 ! !