--- a/NoteBookView.st Sat Aug 13 16:20:07 2016 +0200
+++ b/NoteBookView.st Mon Aug 15 10:34:30 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -14,39 +16,39 @@
"{ NameSpace: Smalltalk }"
View subclass:#NoteBookView
- instanceVariableNames:'list listHolder foregroundColor backgroundColor selection enabled
- action useIndex direction numberOfLines selectConditionBlock
- accessTabMenuAction canvas canvasInset canvasHolder
- halfLightColor halfShadowColor fitLastRow tabModus
- lastComputedExtent keepCanvas activeForegroundColor
- activeBackgroundColor drawLightColor edgeStyle tabInset
- tabLabelInset disabledForegroundColor tabLevel tabTopMargin
- tabBottomMargin selectionInsetX selectionInsetY translateLabel
- buttonPrev buttonNext tabRightMargin tabLeftMargin
- showDestroyTabButton destroyTabAction activeTabMarkerColor
- activeTabMarkerFGColor tabWasActiveWhenPressed removeTabIcon
- removeTabEnteredIcon removeTabDisabledIcon
- showingEnteredRemoveTabButton lastUserSelection minimumTabWidth
- addTabAction addTabIcon addTabEnteredIcon addTabDisabledIcon
- showingEnteredAddTabButton canvasLevel
- showDestroyTabButtonOnSingleTab'
- classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
- DefaultActiveForegroundColor DefaultActiveBackgroundColor
- DefaultShadowColor DefaultHalfShadowColor DefaultLightColor
- DefaultHalfLightColor DefaultEdgeStyle DisabledForegroundColor
- DefaultActiveTabMarkerColor DefaultActiveTabMarkerFgColor
- RemoveTabIcon RemoveTabEnteredIcon AddTabIcon AddTabEnteredIcon'
- poolDictionaries:''
- category:'Views-Layout'
+ instanceVariableNames:'list listHolder foregroundColor backgroundColor selection enabled
+ action useIndex direction numberOfLines selectConditionBlock
+ accessTabMenuAction canvas canvasInset canvasHolder
+ halfLightColor halfShadowColor fitLastRow tabModus
+ lastComputedExtent keepCanvas activeForegroundColor
+ activeBackgroundColor drawLightColor edgeStyle tabInset
+ tabLabelInset disabledForegroundColor tabLevel tabTopMargin
+ tabBottomMargin selectionInsetX selectionInsetY translateLabel
+ buttonPrev buttonNext tabRightMargin tabLeftMargin
+ showDestroyTabButton destroyTabAction activeTabMarkerColor
+ activeTabMarkerFGColor tabWasActiveWhenPressed removeTabIcon
+ removeTabEnteredIcon removeTabDisabledIcon
+ showingEnteredRemoveTabButton lastUserSelection minimumTabWidth
+ addTabAction addTabIcon addTabEnteredIcon addTabDisabledIcon
+ showingEnteredAddTabButton canvasLevel
+ showDestroyTabButtonOnSingleTab'
+ classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
+ DefaultActiveForegroundColor DefaultActiveBackgroundColor
+ DefaultShadowColor DefaultHalfShadowColor DefaultLightColor
+ DefaultHalfLightColor DefaultEdgeStyle DisabledForegroundColor
+ DefaultActiveTabMarkerColor DefaultActiveTabMarkerFgColor
+ RemoveTabIcon RemoveTabEnteredIcon AddTabIcon AddTabEnteredIcon'
+ poolDictionaries:''
+ category:'Views-Layout'
!
Object subclass:#Tab
- instanceVariableNames:'label tabItem printableLabel disabledLabel lineNr
- unselectedLayout selectedLayout layout extent accessCharacter
- lastFocusViewId'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NoteBookView
+ instanceVariableNames:'label tabItem printableLabel disabledLabel lineNr
+ unselectedLayout selectedLayout layout extent accessCharacter
+ lastFocusViewId'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NoteBookView
!
!NoteBookView class methodsFor:'documentation'!
@@ -3115,7 +3117,7 @@
!
showingDestroyButton
- ^ showDestroyTabButton
+ ^ showDestroyTabButton
and:[destroyTabAction notNil
and:[(showDestroyTabButtonOnSingleTab ~~ false) or:[list size > 1]]]
!
@@ -3410,12 +3412,6 @@
nextTab := list at:(index + 1) ifAbsent:nil.
^ nextTab isNil or:[nextTab lineNr ~~ aTab lineNr]
-!
-
-showingDestroyButton
- ^ showDestroyTabButton
- and:[destroyTabAction notNil
- and:[(showDestroyTabButtonOnSingleTab ~~ true) or:[list size > 1]]]
! !
!NoteBookView methodsFor:'selection'!