Services

Alexandre Bergel bergel at iam.unibe.ch
Sun Oct 3 19:05:37 UTC 2004


hi Romain!

Attached a service that open a workspace. The shortcut is <c-o>w
Really a great job!

Cheers,
Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.iam.unibe.ch/~bergel
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-------------- next part --------------
'From Squeak3.8alpha of 8 September 2004 [latest update: #5987] on 3 October 2004 at 9:04:30 pm'!

!Workspace class methodsFor: '*services-base' stamp: 'ab 10/3/2004 21:03'!
registeredServices
	"Service initialize"
		^ { 
	Service new
		label: 'open Workspace';
		shortLabel: 'Workspace'; 
		description: 'Open a workspace';
		action: [Workspace new openAsMorphLabel: 'Workspace' inWorld: World];
		shortcut: '<c-o>w';
		categories: #('open')
		}
! !


!Workspace class reorganize!
('instance creation' prototypicalToolWindow)
('class initialization' initialize registerInFlapsRegistry unload)
('*services-base' registeredServices)
!


More information about the Squeak-dev mailing list