Open Ducasse opened 3 months ago
execute (IceTipCreateTagPanel newApplication: context application model: self item) asDialogWindow okAction: [ self context refreshTags ]; ^^^^^^^^^^^^^^^^^^^^^ centeredRelativeTo: context window; open
IceTipRepositoryGroupPanel(Object)>>doesNotUnderstand: #refreshTags [ self context refreshTags ] in IceTipCreateTagCommand>>execute in Block: [ self context refreshTags ] FullBlockClosure(BlockClosure)>>cull: SpDialogWindowPresenter>>triggerOkAction [ presenter triggerOkAction. presenter close ] in [ :presenter | self acceptThen: [ presenter triggerOkAction. presenter close ] ] in IceTipCreateTagPanel>>initializeDialogWindow: in Block: [ ... IceTipCreateTagPanel>>acceptThen: [ :presenter | self acceptThen: [ presenter triggerOkAction. presenter close ] ] in IceTipCreateTagPanel>>initializeDialogWindow: in Block: [ :presenter | ... FullBlockClosure(BlockClosure)>>cull: [ aBlock cull: self ] in SpDialogWindowPresenter>>addButton:do: in Block: [ aBlock cull: self ] SpButtonPresenter>>performAction SpMorphicButtonAdapter>>action