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
|