equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3504 ^ nextTab isNil or:[nextTab lineNr ~~ aTab lineNr] |
3502 ^ nextTab isNil or:[nextTab lineNr ~~ aTab lineNr] |
3505 ! ! |
3503 ! ! |
3506 |
3504 |
3507 !NoteBookView methodsFor:'selection'! |
3505 !NoteBookView methodsFor:'selection'! |
3508 |
3506 |
|
3507 indexOfTabNamed:aTabLabel |
|
3508 ^ list findFirst:[:eachNotebookTab| eachNotebookTab label string = aTabLabel string] |
|
3509 ! |
|
3510 |
3509 isSelectable:anIndex |
3511 isSelectable:anIndex |
3510 "returns true if tab at an index is selectable |
3512 "returns true if tab at an index is selectable |
3511 " |
3513 " |
3512 (anIndex notNil and:[anIndex between:1 and:list size]) ifTrue:[ |
3514 (anIndex notNil and:[anIndex between:1 and:list size]) ifTrue:[ |
3513 (list at:anIndex) isEnabled ifTrue:[ |
3515 (list at:anIndex) isEnabled ifTrue:[ |