[squeak-dev] The Trunk: 46Deprecated-topa.5.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Oct 8 18:58:23 UTC 2015


Tobias Pape uploaded a new version of 46Deprecated to project The Trunk:
http://source.squeak.org/trunk/46Deprecated-topa.5.mcz

==================== Summary ====================

Name: 46Deprecated-topa.5
Author: topa
Time: 8 October 2015, 8:58:18.593 pm
UUID: a5f4bd53-cb71-4500-9605-60c6fa9d7002
Ancestors: 46Deprecated-dtl.4

Use Object>>#deprecated to singal a warning if desired.

=============== Diff against 46Deprecated-dtl.4 ===============

Item was changed:
  ----- Method: ScrollPane>>alwaysShowHScrollBar: (in category '*46Deprecated') -----
  alwaysShowHScrollBar: bool
+ 	self deprecated.
- 	self flag: #deprecated. 
  	self setProperty: #hScrollBarAlways toValue: bool.
  
  	bool
  		ifTrue: [self hScrollBarPolicy: #always]
  		ifFalse: [self hScrollBarPolicy: #whenNeeded].
  		
  	self hHideOrShowScrollBar.
  !

Item was changed:
  ----- Method: ScrollPane>>alwaysShowScrollBars: (in category '*46Deprecated') -----
  alwaysShowScrollBars: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  	
  	self 
  		alwaysShowHScrollBar: bool;
  		alwaysShowVScrollBar: bool.
  !

Item was changed:
  ----- Method: ScrollPane>>alwaysShowVScrollBar: (in category '*46Deprecated') -----
  alwaysShowVScrollBar: bool
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  	
  	self setProperty: #vScrollBarAlways toValue: bool.
  	
  	bool
  		ifTrue: [self vScrollBarPolicy: #always]
  		ifFalse: [self vScrollBarPolicy: #whenNeeded].
  	
  	self vHideOrShowScrollBar.
  !

Item was changed:
  ----- Method: ScrollPane>>hideHScrollBarIndefinitely: (in category '*46Deprecated') -----
  hideHScrollBarIndefinitely: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  	
  	self setProperty: #noHScrollBarPlease toValue: bool.
  	
  	bool
  		ifTrue: [self hScrollBarPolicy: #never]
  		ifFalse: [self hScrollBarPolicy: #whenNeeded].
  	
  	self hHideOrShowScrollBar.
  !

Item was changed:
  ----- Method: ScrollPane>>hideScrollBarsIndefinitely: (in category '*46Deprecated') -----
  hideScrollBarsIndefinitely: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated.
- 	self flag: #deprecated.
  
  	self hideVScrollBarIndefinitely: bool.
  	self hideHScrollBarIndefinitely: bool.
  !

Item was changed:
  ----- Method: ScrollPane>>hideVScrollBarIndefinitely: (in category '*46Deprecated') -----
  hideVScrollBarIndefinitely: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  	
  	self setProperty: #noVScrollBarPlease toValue: bool.
  	
  	bool
  		ifTrue: [self vScrollBarPolicy: #never]
  		ifFalse: [self vScrollBarPolicy: #whenNeeded].
  	
  	self vHideOrShowScrollBar.
  !

Item was changed:
  ----- Method: ScrollPane>>showHScrollBarOnlyWhenNeeded: (in category '*46Deprecated') -----
  showHScrollBarOnlyWhenNeeded: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated.
- 	self flag: #deprecated.
  
  	self setProperty: #noHScrollBarPlease toValue: bool not.
  	self setProperty: #hScrollBarAlways toValue: bool not.
  	
  	bool
  		ifTrue: [self hScrollBarPolicy: #whenNeeded]
  		ifFalse: [self hScrollBarPolicy: #never].
  	
  	self hHideOrShowScrollBar.
  !

Item was changed:
  ----- Method: ScrollPane>>showScrollBarsOnlyWhenNeeded: (in category '*46Deprecated') -----
  showScrollBarsOnlyWhenNeeded: bool
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  	
  	self showHScrollBarOnlyWhenNeeded: bool.
  	self showVScrollBarOnlyWhenNeeded: bool.
  !

Item was changed:
  ----- Method: ScrollPane>>showVScrollBarOnlyWhenNeeded: (in category '*46Deprecated') -----
  showVScrollBarOnlyWhenNeeded: bool
  	"Get rid of scroll bar for short panes that don't want it shown."
  
+ 	self deprecated. 
- 	self flag: #deprecated. 
  
  	self setProperty: #noVScrollBarPlease toValue: bool not.
  	self setProperty: #vScrollBarAlways toValue: bool not.
  	
  	bool
  		ifTrue: [self vScrollBarPolicy: #whenNeeded]
  		ifFalse: [self vScrollBarPolicy: #never].
  	
  	self vHideOrShowScrollBar.
  !



More information about the Squeak-dev mailing list