[squeak-dev] The Trunk: Morphic-mt.1634.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 5 12:23:16 UTC 2020


Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1634.mcz

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

Name: Morphic-mt.1634
Author: mt
Time: 5 March 2020, 1:23:09.843611 pm
UUID: 5c787d47-61df-6e45-87c8-4513a96c1ac9
Ancestors: Morphic-mt.1633

Updates some access to colors, which now resides in UI themes. I think most of those methods are not needed anymore. #textHighlightColor: got moved to 60Deprecated.

=============== Diff against Morphic-mt.1633 ===============

Item was changed:
  ----- Method: Morph class>>selectionBackground (in category 'defaults') -----
  selectionBackground
  	"The background for selected items in lists and tree-list thingies."
  	^ self subduedHilites ifTrue: [
+ 			TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2
- 			Preferences textHighlightColor 
  		] ifFalse: [
  			"This is tuned so the red-foreground used for list texts stays somewhat legible."
  			Color r: 0.8 g:0.8 b: 0.81 alpha: 0.85 
  		].
  !

Item was removed:
- ----- Method: PluggableListMorph>>textHighlightColor (in category 'initialization') -----
- textHighlightColor
- 	"Answer my default text highlight color."
- 	^self valueOfProperty: #textHighlightColor ifAbsent: [ self textColor negated ].
- !

Item was removed:
- ----- Method: PluggableListMorph>>textHighlightColor: (in category 'initialization') -----
- textHighlightColor: aColor
- 	"Set my default text highlight color."
- 	self setProperty: #textHighlightColor toValue: aColor.
- !

Item was changed:
  ----- Method: TextMorph class>>initialize (in category 'class initialization') -----
  initialize	"TextMorph initialize"
  
  	"Initialize the default text editor class to use"
  	DefaultEditorClass := SmalltalkEditor.
  
  	"Initialize constants shared by classes associated with text display."
  
  	CaretForm := (ColorForm extent: 16 at 5
  					fromArray: #(2r001100e26 2r001100e26 2r011110e26 2r111111e26 2r110011e26)
  					offset: -2 at 0)
+ 					colors: (Array with: Color transparent with: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2)).
- 					colors: (Array with: Color transparent with: Preferences textHighlightColor).
  
  	self registerInFlapsRegistry.
  !

Item was changed:
  ----- Method: TheWorldMenu>>appearanceMenu (in category 'construction') -----
  appearanceMenu
  	"Build the appearance menu for the world."
  
  	^self fillIn: (self menu: 'appearance...') from: {
  
  		{'preferences...' . { self . #openPreferencesBrowser} . 'Opens a "Preferences Browser" which allows you to alter many settings' } .
  		{'choose set of preferences...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of sets or preferences; each item''s balloon-help will tell you about the particular set.  If you choose one, many different preferences that come along are set at the same time; you can subsequently change any settings by using a Preferences Panel'} .
  		nil .
  		{'system fonts...' . { self . #standardFontDo} . 'Choose the standard fonts to use for code, lists, menus, window titles, etc.'}.
- 		{'text highlight color...' . { Preferences . #chooseTextHighlightColor} . 'Choose which color should be used for text highlighting in Morphic.'}.
- 		{'insertion point color...' . { Preferences . #chooseInsertionPointColor} . 'Choose which color to use for the text insertion point in Morphic.'}.
- 		{'keyboard focus color' . { Preferences . #chooseKeyboardFocusColor} . 'Choose which color to use for highlighting which pane has the keyboard focus'}.
  		nil.
  		{#menuColorString . { self . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}.
  		{#roundedCornersString . { self . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}.
  		nil.
  		{'full screen on' . { DisplayScreen . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}.
  		{'full screen off' . { DisplayScreen . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}.
  		nil.
  		{'set display depth...' . {self. #setDisplayDepth} . 'choose how many bits per pixel.'}.
  		{'set desktop color...' . {self. #changeBackgroundColor} . 'choose a uniform color to use as desktop background.'}.
  		{'set gradient color...' . {self. #setGradientColor} . 'choose second color to use as gradient for desktop background.'}.
  		{'use texture background' . { #myWorld . #setStandardTexture} . 'apply a graph-paper-like texture background to the desktop.'}.
  		nil.
  		{'clear turtle trails from desktop' . { #myWorld . #clearTurtleTrails} . 'remove any pigment laid down on the desktop by objects moving with their pens down.'}.
  		{'pen-trail arrowhead size...' . { Preferences. #setArrowheads} . 'choose the shape to be used in arrowheads on pen trails.'}.
  
  	}!



More information about the Squeak-dev mailing list