NoteBookView.st
changeset 5645 91e49cb25ef9
parent 5540 a386bd11703d
child 5662 621f1a0ded95
equal deleted inserted replaced
5644:81b11ba37e60 5645:91e49cb25ef9
     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
   641     ].
   639     ].
   642     translateLabel ifFalse:[ ^ aString ].
   640     translateLabel ifFalse:[ ^ aString ].
   643     ^ builder resources string:aString.
   641     ^ builder resources string:aString.
   644 ! !
   642 ! !
   645 
   643 
   646 !NoteBookView methodsFor:'accessing-colors'!
   644 !NoteBookView methodsFor:'accessing-color & font'!
   647 
   645 
   648 activeBackgroundColor
   646 activeBackgroundColor
   649     "returns the bg color used when drawing the active tabs label"
   647     "returns the bg color used when drawing the active tabs label"
   650 
   648 
   651     ^ activeBackgroundColor
   649     ^ activeBackgroundColor
  3677         ^ tabItem destroyTabAction notNil
  3675         ^ tabItem destroyTabAction notNil
  3678     ].
  3676     ].
  3679     ^ false
  3677     ^ false
  3680 !
  3678 !
  3681 
  3679 
  3682 foregroundColor
       
  3683     "returns the foregroundColor or nil"
       
  3684 
       
  3685     tabItem notNil ifTrue:[
       
  3686         ^ tabItem foregroundColor
       
  3687     ].
       
  3688     ^ nil
       
  3689 
       
  3690     "Modified: / 06-09-2006 / 16:00:27 / cg"
       
  3691 !
       
  3692 
       
  3693 label
  3680 label
  3694     "returns my original label"
  3681     "returns my original label"
  3695 
  3682 
  3696     ^ label
  3683     ^ label
  3697 !
  3684 !
  3806     "returns the model, a TabItem or nil"
  3793     "returns the model, a TabItem or nil"
  3807 
  3794 
  3808     ^ tabItem
  3795     ^ tabItem
  3809 
  3796 
  3810     "Created: / 06-09-2006 / 16:01:05 / cg"
  3797     "Created: / 06-09-2006 / 16:01:05 / cg"
       
  3798 ! !
       
  3799 
       
  3800 !NoteBookView::Tab methodsFor:'accessing-color & font'!
       
  3801 
       
  3802 foregroundColor
       
  3803     "returns the foregroundColor or nil"
       
  3804 
       
  3805     tabItem notNil ifTrue:[
       
  3806         ^ tabItem foregroundColor
       
  3807     ].
       
  3808     ^ nil
       
  3809 
       
  3810     "Modified: / 06-09-2006 / 16:00:27 / cg"
  3811 ! !
  3811 ! !
  3812 
  3812 
  3813 !NoteBookView::Tab methodsFor:'accessing-dimensions'!
  3813 !NoteBookView::Tab methodsFor:'accessing-dimensions'!
  3814 
  3814 
  3815 extent
  3815 extent