Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.71.mcz
==================== Summary ====================
Name: Services-Base-mt.71 Author: mt Time: 25 August 2021, 2:13:10.495495 pm UUID: 0ba2fb29-a329-8d44-b2c4-725c06581afc Ancestors: Services-Base-mt.70
Make "create new service"-service not raise a syntax error when cancelled. Remove it from the method-list menu.
=============== Diff against Services-Base-mt.70 ===============
Item was changed: ----- Method: BasicRequestor>>getString (in category 'generic requests') ----- getString | result | + result := Project uiManager request: caption initialAnswer: answer contents. - result := UIManager default request:caption initialAnswer:answer contents. self newCaption. + result isEmptyOrNil ifTrue: [ServiceCancelled signal]. - result isEmpty |result isNil ifTrue:[ServiceCancelled signal]. ^ result!
Item was removed: - ----- Method: WorldMenuProvider>>browserMethodMenucreateNewService (in category 'saved preferences') ----- - browserMethodMenucreateNewService - ^ #(#'Items in browserMethodMenu:' #createNewService 1 )!
Item was changed: ----- Method: WorldMenuProvider>>createNewService (in category 'services') ----- createNewService + ^ ServiceAction text: 'Create new service' button: 'new service' description: 'Define a new service provided by this package' action: [:r | | s p | s := r caption: 'enter service identifier'; getSymbol. + s isEmptyOrNil ifFalse: [ + p := r getPackageProvider. + p compile: s, ' - p := r getPackageProvider. - p compile: s, ' ^ ServiceAction "Open the service browser to set the menu position and the keyboard shortcut" text: ''fill menu label'' button: ''short button text'' description: ''longer text for balloon help'' action: [:r | "action block"] condition: [:r | "optional condition block"]' classified: 'services'. + r getBrowser browseReference: (MethodReference class: p selector: s)]]! - r getBrowser browseReference: (MethodReference class: p selector: s)]!
Item was added: + (PackageInfo named: 'Services-Base') postscript: '(ServiceRegistry current serviceWithId: #browserMethodMenu) services + removeAllSuchThat: [:service | service id = #createNewService].'!