Christoph Thiede uploaded a new version of Monticello to project The Inbox:
http://source.squeak.org/inbox/Monticello-ct.786.mcz

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

Name: Monticello-ct.786
Author: ct
Time: 3 November 2022, 3:28:11.978571 pm
UUID: 66a5da38-fa37-8d4a-a77c-deee412d8c1f
Ancestors: Monticello-mt.782

Proposal: Handles double-click in some Monticello tools. Double-click on a repository in the working copy browser opens the repository, double-click on a version in a repository inspector browses the version.

=============== Diff against Monticello-mt.782 ===============

Item was changed:
  ----- Method: MCRepositoryInspector>>widgetSpecs (in category 'morphic ui') -----
  widgetSpecs
  	^#(	((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight))
  		((listMorph: package) (0 0 0.5 0.6) (0 defaultButtonPaneHeight 0 0))
+ 		((listMorph:invoke: version browse) (0.5 0 1 0.6) (0 defaultButtonPaneHeight 0 0))
- 		((listMorph: version) (0.5 0 1 0.6) (0 defaultButtonPaneHeight 0 0))
  		((textMorph: summary) (0 0.6 1 1) (0 0 0 0)) )!

Item was changed:
  ----- Method: MCToolWindowBuilder>>listMorph: (in category 'building-parts') -----
  listMorph: listSymbol
  	^ self
+ 		listMorph: listSymbol
+ 		invoke: nil!
- 		listMorph: (listSymbol, 'List') asSymbol
- 		selection: (listSymbol, 'Selection') asSymbol
- 		menu: (listSymbol, 'ListMenu:') asSymbol!

Item was added:
+ ----- Method: MCToolWindowBuilder>>listMorph:invoke: (in category 'building-parts') -----
+ listMorph: listSymbol invoke: invokeSymbol
+ 	^ self
+ 		listMorph: (listSymbol, 'List') asSymbol
+ 		selection: (listSymbol, 'Selection') asSymbol
+ 		menu: (listSymbol, 'ListMenu:') asSymbol
+ 		keystroke: nil
+ 		invoke: invokeSymbol!

Item was changed:
  ----- Method: MCToolWindowBuilder>>listMorph:selection:menu:keystroke: (in category 'building-parts') -----
  listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol
+ 
+ 	^ self listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol invoke: nil!
- 	| list |
- 	list := builder pluggableListSpec new.
- 	list 
- 		model: tool;
- 		list: listSymbol; 
- 		getIndex: selectionSymbol; 
- 		setIndex: (selectionSymbol, ':') asSymbol;
- 		frame: currentFrame.
- 	menuSymbol ifNotNil: [list menu: menuSymbol].
- 	keystrokeSymbol ifNotNil: [list keyPress: keystrokeSymbol].
- 	currentComposite children add: list
- !

Item was added:
+ ----- Method: MCToolWindowBuilder>>listMorph:selection:menu:keystroke:invoke: (in category 'building-parts') -----
+ listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol invoke: invokeSymbol
+ 	| list |
+ 	list := builder pluggableListSpec new.
+ 	list 
+ 		model: tool;
+ 		list: listSymbol; 
+ 		getIndex: selectionSymbol; 
+ 		setIndex: (selectionSymbol, ':') asSymbol;
+ 		frame: currentFrame.
+ 	menuSymbol ifNotNil: [list menu: menuSymbol].
+ 	keystrokeSymbol ifNotNil: [list keyPress: keystrokeSymbol].
+ 	invokeSymbol ifNotNil: [list doubleClick: invokeSymbol].
+ 	currentComposite children add: list
+ !

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>widgetSpecs (in category 'morphic ui') -----
  widgetSpecs
  	^ #(
  		((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight))
  		((treeOrListMorph: workingCopy) (0 0 0.5 1) (0 defaultButtonPaneHeight 0 0))
+ 		((listMorph:invoke: repository openRepository) (0.5 0 1 1) (0 defaultButtonPaneHeight 0 0))
- 		((listMorph: repository) (0.5 0 1 1) (0 defaultButtonPaneHeight 0 0))
  		)!