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

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

Name: ST80-mt.273
Author: mt
Time: 8 December 2021, 9:43:52.676441 am
UUID: c102d679-c063-6042-a44e-24d0fbf0be69
Ancestors: ST80-mt.272

Removes cache for blue-button menu, which also fixes a visual glitch regarding UI themes.

=============== Diff against ST80-mt.272 ===============

Item was changed:
  MouseMenuController subclass: #StandardSystemController
  	instanceVariableNames: 'status'
+ 	classVariableNames: 'HBorderCursor VBorderCursor'
- 	classVariableNames: 'HBorderCursor ScheduledBlueButtonMenu ScheduledBlueButtonMessages VBorderCursor'
  	poolDictionaries: ''
  	category: 'ST80-Support'!
  
  !StandardSystemController commentStamp: '<historical>' prior: 0!
  I am a controller for StandardSystemViews, that is, those views that are at the top level of a project in the system user interface. I am a kind of MouseMenuController that creates a blue button menu for moving, framing, collapsing, and closing ScheduledViews, and for selecting views under the view of my instance.!

Item was changed:
  ----- Method: StandardSystemController class>>initialize (in category 'class initialization') -----
  initialize
  	"StandardSystemController initialize"
  
- 	ScheduledBlueButtonMenu := SelectionMenu
- 		labels:
- 'edit label
- choose color...
- two-tone/full color
- move
- frame
- full screen
- collapse
- close'
- 	lines: #(3 7)
- 	selections: #(label chooseColor toggleTwoTone move reframe fullScreen collapse close).
- 
  	VBorderCursor := Cursor extent: 16 at 16 fromArray: #(
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010010000100000
  		2r1010110000110000
  		2r1011111111111000
  		2r1010110000110000
  		2r1010010000100000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000
  		2r1010000000000000)
  			offset: 0 at 0.
  	HBorderCursor := Cursor extent: 16 at 16 fromArray: #(
  		2r1111111111111111
  		2r0000000000000000
  		2r1111111111111111
  		2r0000000100000000
  		2r0000001110000000
  		2r0000011111000000
  		2r0000000100000000
  		2r0000000100000000
  		2r0000000100000000
  		2r0000000100000000
  		2r0000011111000000
  		2r0000001110000000
  		2r0000000100000000
  		2r0000000000000000
  		2r0000000000000000
  		2r0000000000000000)
  			offset: 0 at 0.!

Item was changed:
  ----- Method: StandardSystemController>>blueButtonActivity (in category 'control defaults') -----
  blueButtonActivity
+ 
+ 	| menu |
+ 	menu := SelectionMenu
+ 		labels:
+ 'edit label
+ choose color...
+ two-tone/full color
+ move
+ frame
+ full screen
+ collapse
+ close'
+ 	lines: #(3 7)
+ 	selections: #(label chooseColor toggleTwoTone move reframe fullScreen collapse close).
+ 	
+ 	menu invokeOn: self.!
- 	ScheduledBlueButtonMenu ifNil: [^ super controlActivity].
- 	ScheduledBlueButtonMenu invokeOn: self!