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)) )!