Packages October 2015

packages@lists.squeakfoundation.org

1 participants
218 discussions

The Trunk: Tools-cmm.642.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.642.mcz ==================== Summary ==================== Name: Tools-cmm.642 Author: cmm Time: 19 October 2015, 4:42:55.028 pm UUID: ed37650d-b99a-40be-bfba-49fbb02ba8a4 Ancestors: Tools-topa.641 - Fix hot-key for Eliot's "copy reference (C)". It was overloaded with "show category (C)", so show category was changed to Command+Y. - Restore the original Desktop Command keys when the user does not have Enable Global Command Keys enabled, but overload Command+Escape at the desktop level for a uniform way to close windows. =============== Diff against Tools-topa.641 =============== Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. aChar == $r ifTrue: [^ self browseVariableReferences]. aChar == $a ifTrue: [^ self browseVariableAssignments]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]. + aChar == $C ifTrue: [ self copyReference ]. + (aChar == $Y and: [self canShowMultipleMessageCategories]) - (aChar == $C and: [self canShowMultipleMessageCategories]) ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view! Item was changed: ----- Method: PasteUpMorph>>defaultDesktopCommandKeyTriplets (in category '*Tools') ----- defaultDesktopCommandKeyTriplets "Answer a list of triplets of the form <key> <receiver> <selector> [+ optional fourth element, a <description> for use in desktop-command-key-help] that will provide the default desktop command key handlers. If the selector takes an argument, that argument will be the command-key event" | noviceKeys expertKeys | noviceKeys := { { $o. ActiveWorld. #activateObjectsTool. 'Activate the "Objects Tool"'}. { $r. ActiveWorld. #restoreMorphicDisplay. 'Redraw the screen'}. { $z. self. #undoOrRedoCommand. 'Undo or redo the last undoable command'}. { $F. Project current. #toggleFlapsSuppressed. 'Toggle the display of flaps'}. { $N. self. #toggleClassicNavigatorIfAppropriate. 'Show/Hide the classic Navigator, if appropriate'}. { $M. self. #toggleShowWorldMainDockingBar. 'Show/Hide the Main Docking Bar'}. + { $]. Smalltalk. #saveSession. 'Save the image.'}. }. Preferences noviceMode ifTrue:[^ noviceKeys]. expertKeys := { { $b. SystemBrowser. #defaultOpenBrowser. 'Open a new System Browser'}. { $k. StringHolder. #open. 'Open a new, blank Workspace'}. { $m. self. #putUpNewMorphMenu. 'Put up the "New Morph" menu'}. + { $O. self. #findAMonticelloBrowser. 'Bring a Monticello window into focus.'}. { $t. self. #findATranscript:. 'Make a System Transcript visible'}. { $w. SystemWindow. #closeTopWindow. 'Close the topmost window'}. + { Character escape. SystemWindow. #closeTopWindow. 'Close the topmost window'}. + { $C. self. #findAChangeSorter:. 'Make a Change Sorter visible'}. + { $L. self. #findAFileList:. 'Make a File List visible'}. { $P. self. #findAPreferencesPanel:. 'Activate the Preferences tool'}. { $R. Utilities. #browseRecentSubmissions. 'Make a Recent Submissions browser visible'}. { $W. self. #findAMessageNamesWindow:. 'Make a MessageNames tool visible'}. { $Z. ChangeList. #browseRecentLog. 'Browse recently-logged changes'}. + { $\. SystemWindow. #sendTopWindowToBack. 'Send the top window to the back'}. { $_. Smalltalk. #quitPrimitive. 'Quit the image immediately.'}. }. ^ noviceKeys, expertKeys ! Item was changed: ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. + aChar == $C ifTrue: [^ self copyReference]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]]. ^ self arrowKey: aChar from: view! Item was changed: + (PackageInfo named: 'Tools') postscript: '"Updated for new global hot-key support." + ActiveWorld initializeDesktopCommandKeySelectors'! - (PackageInfo named: 'Tools') postscript: 'ActiveWorld initializeDesktopCommandKeySelectors'!

1 0

The Trunk: Tools-cmm.642.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

1 0

The Trunk: Morphic-cmm.1014.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1014.mcz ==================== Summary ==================== Name: Morphic-cmm.1014 Author: cmm Time: 19 October 2015, 4:40:19.528 pm UUID: 2cdb2aae-a459-4802-a9ca-d66ad4965a02 Ancestors: Morphic-topa.1013 - A new preference, Enable Global Command Keys, allows navigation throughout the IDE with the same hot keys available at the desktop. It is set by default, but applications might wish to disable it so they can register their own. - DockingBarMorph honors this preference too, so that applications can have Control+1 thru Control+0 too. - Hot-keys for Command+R (indent) and Command+L (outdent), respectively, have been changed to Tab and Shift+Tab, respectively, thus freeing up the letter keys for access to their global counterpart functions ((R)ecent Messages List and File (L)ist). - Transcript is also now globally available with Command+t. - Removed TextEditor>>#duplicate: because all ways to access that function through the UI were removed (in a series of separate commits). =============== Diff against Morphic-topa.1013 =============== Item was changed: ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') ----- initialize "initialize the receiver" super initialize. selectedItem := nil. activeSubMenu := nil. fillsOwner := true. avoidVisibleBordersAtEdge := true. autoGradient := MenuMorph gradientMenu. self setDefaultParameters ; beFloating ; beSticky ; layoutInset: 0 ; + dropEnabled: true! - dropEnabled: true. - Project current world activeHand addKeyboardListener: self! Item was added: + ----- Method: DockingBarMorph>>setupGlobalHotKeyEventListeners (in category 'initialize-release') ----- + setupGlobalHotKeyEventListeners + PasteUpMorph globalCommandKeysEnabled + ifTrue: [ ActiveHand addKeyboardListener: self ] + ifFalse: [ ActiveHand removeKeyboardListener: self ]! Item was changed: ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- createOrUpdateMainDockingBar "Private - create a new main docking bar or update the current one" | w mainDockingBars | w := self world. mainDockingBars := w mainDockingBars. + mainDockingBars isEmpty ifTrue: + [ "no docking bar, just create a new one" + self dockingBar createDockingBar + openInWorld: w ; + setupGlobalHotKeyEventListeners. + ^ self ]. - mainDockingBars isEmpty - ifTrue: ["no docking bar, just create a new one" - self dockingBar createDockingBar openInWorld: w. - ^ self]. "update if needed" + mainDockingBars do: + [ : each | self dockingBar updateIfNeeded: each. + each setupGlobalHotKeyEventListeners ]! - mainDockingBars - do: [:each | self dockingBar updateIfNeeded: each]! Item was changed: BorderedMorph subclass: #PasteUpMorph instanceVariableNames: 'presenter model cursor padding backgroundMorph turtleTrailsForm turtlePen lastTurtlePositions isPartsBin indicateCursor wantsMouseOverHalos worldState griddingOn' + classVariableNames: 'DisableDeferredUpdates GlobalCommandKeysEnabled MinCycleLapse StillAlive WindowEventHandler' - classVariableNames: 'DisableDeferredUpdates MinCycleLapse StillAlive WindowEventHandler' poolDictionaries: '' category: 'Morphic-Worlds'! !PasteUpMorph commentStamp: '<historical>' prior: 0! A morph whose submorphs comprise a paste-up of rectangular subparts which "show through". Anything called a 'Playfield' is a PasteUpMorph. Facilities commonly needed on pages of graphical presentations and on simulation playfields, such as the painting of new objects, turtle trails, gradient fills, background paintings, parts-bin behavior, collision-detection, etc., are (or will be) provided. A World, the entire Smalltalk screen, is a PasteUpMorph. A World responds true to isWorld. Morph subclasses that have specialized menus (BookMorph) build them in the message addBookMenuItemsTo:hand:. A PasteUpMorph that is a world, builds its menu in HandMorph buildWorldMenu. presenter A Presenter in charge of stopButton stepButton and goButton, mouseOverHalosEnabled soundsEnabled fenceEnabled coloredTilesEnabled. model <not used> cursor ?? padding ?? backgroundMorph A Form that covers the background. turtleTrailsForm Moving submorphs may leave trails on this form. turtlePen Draws the trails. lastTurtlePositions A Dictionary of (aPlayer -> aPoint) so turtle trails can be drawn only once each step cycle. The point is the start of the current stroke. isPartsBin If true, every object dragged out is copied. autoLineLayout ?? indicateCursor ?? resizeToFit ?? wantsMouseOverHalos If true, simply moving the cursor over a submorph brings up its halo. worldState If I am also a World, keeps the hands, damageRecorder, stepList etc. griddingOn If true, submorphs are on a grid ! Item was added: + ----- Method: PasteUpMorph class>>globalCommandKeysEnabled (in category 'preferences') ----- + globalCommandKeysEnabled + <preference: 'Enable Global Command Keys' + category: 'Morphic' + description: 'When true, the global command keys are enabled. Command-key help is available from the help menu.' + type: #Boolean> + ^ GlobalCommandKeysEnabled ifNil: [ true ]! Item was added: + ----- Method: PasteUpMorph class>>globalCommandKeysEnabled: (in category 'preferences') ----- + globalCommandKeysEnabled: aBoolean + GlobalCommandKeysEnabled := aBoolean. + aBoolean + ifTrue: + [ ActiveHand + addKeyboardListener: SystemWindow topWindow ; + addKeyboardListener: ActiveWorld. + ActiveWorld dockingBars do: + [ : each | ActiveHand addKeyboardListener: each ] ] + ifFalse: + [ ActiveHand + removeKeyboardListener: SystemWindow topWindow ; + removeKeyboardListener: ActiveWorld. + ActiveWorld dockingBars do: + [ : each | ActiveHand removeKeyboardListener: each ] ]. + TheWorldMainDockingBar updateInstances! Item was changed: ----- Method: PasteUpMorph>>becomeActiveDuring: (in category 'initialization') ----- becomeActiveDuring: aBlock "Make the receiver the ActiveWorld during the evaluation of aBlock. Note that this method does deliberately *not* use #ensure: to prevent re-installation of the world on project switches." | priorWorld priorHand priorEvent | priorWorld := ActiveWorld. priorHand := ActiveHand. priorEvent := ActiveEvent. + priorHand removeKeyboardListener: priorWorld. - priorHand removeEventListener: priorWorld. ActiveWorld := self. ActiveHand := self hands first. "default" ActiveEvent := nil. "not in event cycle" + self class globalCommandKeysEnabled ifTrue: [ ActiveHand addKeyboardListener: self ]. - ActiveHand addEventListener: self. aBlock on: Error do: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass]! Item was changed: ----- Method: PasteUpMorph>>handleListenEvent: (in category 'events-processing') ----- handleListenEvent: aUserInputEvent "Handlers for *global* keys, regardless of which widget has keyboard focus." aUserInputEvent type = #keystroke ifTrue: [ aUserInputEvent commandKeyPressed ifTrue: + [ aUserInputEvent keyValue = $t asciiValue ifTrue: [ World findATranscript: aUserInputEvent ]. + aUserInputEvent keyValue = $R asciiValue ifTrue: [ Utilities browseRecentSubmissions ]. + aUserInputEvent keyValue = $L asciiValue ifTrue: [ World findAFileList: aUserInputEvent ]. + aUserInputEvent keyValue = $O asciiValue ifTrue: [ World findAMonticelloBrowser ]. - [ aUserInputEvent keyValue = $O asciiValue ifTrue: [ World findAMonticelloBrowser ]. aUserInputEvent keyValue = $P asciiValue ifTrue: [ World findAPreferencesPanel: aUserInputEvent ]. aUserInputEvent keyValue = $Z asciiValue ifTrue: [ ChangeList browseRecentLog ]. aUserInputEvent keyValue = $] asciiValue ifTrue: [ Smalltalk snapshot: true andQuit: false ] ] ]! Item was changed: ----- Method: PasteUpMorph>>keystrokeInWorld: (in category 'world menu') ----- keystrokeInWorld: evt "A keystroke was hit when no keyboard focus was set, so it is sent here to the world instead." | aChar isCmd ascii | aChar := evt keyCharacter. + (ascii := aChar asciiValue) = Character escape asciiValue ifTrue: + [evt commandKeyPressed ifFalse: [^ self putUpWorldMenuFromEscapeKey]]. - (ascii := aChar asciiValue) = 27 ifTrue: "escape key" - [^ self putUpWorldMenuFromEscapeKey]. (evt controlKeyPressed not and: [(#(1 4 8 28 29 30 31 32) includes: ascii) "home, end, backspace, arrow keys, space" and: [self keyboardNavigationHandler notNil]]) ifTrue: [self keyboardNavigationHandler navigateFromKeystroke: aChar]. isCmd := evt commandKeyPressed and: [Preferences cmdKeysInText]. (evt commandKeyPressed and: [Preferences eToyFriendly]) ifTrue: [(aChar == $W) ifTrue: [^ self putUpWorldMenu: evt]]. (isCmd and: [Preferences honorDesktopCmdKeys]) ifTrue: [^ self dispatchCommandKeyInWorld: aChar event: evt]. "It was unhandled. Remember the keystroke." self lastKeystroke: evt keyString. self triggerEvent: #keyStroke! Item was changed: ----- Method: SystemWindow>>activate (in category 'top window') ----- activate "Bring the receiver to the top. If I am modal, bring along my owning window as well." | modalOwner | self modalChild ifNotNil: [ : modalChild | modalChild owner ifNotNil: [ modalChild activate. ^ modalChild modalChild ifNil: [ modalChild flash ] ] ]. (isCollapsed not and: [ self paneMorphs size > 1 and: [ self splitters isEmpty ] ]) ifTrue: [ self addPaneSplitters ]. self activateWindow. + PasteUpMorph globalCommandKeysEnabled ifTrue: [ActiveHand addKeyboardListener: self]. - ActiveHand addKeyboardListener: self. modalOwner := self modalOwner. (modalOwner notNil and: [ modalOwner isSystemWindow ]) ifTrue: [ modalOwner bringBehind: self ]! Item was changed: ----- Method: TextEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeShiftCmdKeyShortcuts "Initialize the shift-command-key (or control-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the capitalized versions of the letters. TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values." "TextEditor initialize" | cmdMap cmds | "shift-command and control shortcuts" cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: ( 1 + 1) put: #cursorHome:. "home key" cmdMap at: ( 4 + 1) put: #cursorEnd:. "end key" cmdMap at: ( 8 + 1) put: #forwardDelete:. "ctrl-H or delete key" cmdMap at: (11 + 1) put: #cursorPageUp:. "page up key" cmdMap at: (12 + 1) put: #cursorPageDown:. "page down key" cmdMap at: (13 + 1) put: #crWithIndent:. "ctrl-Return" cmdMap at: (27 + 1) put: #offerMenuFromEsc:. "escape key" cmdMap at: (28 + 1) put: #cursorLeft:. "left arrow key" cmdMap at: (29 + 1) put: #cursorRight:. "right arrow key" cmdMap at: (30 + 1) put: #cursorUp:. "up arrow key" cmdMap at: (31 + 1) put: #cursorDown:. "down arrow key" cmdMap at: (32 + 1) put: #selectWord:. "space bar key" cmdMap at: (45 + 1) put: #changeEmphasis:. "cmd-sh-minus" cmdMap at: (61 + 1) put: #changeEmphasis:. "cmd-sh-plus" cmdMap at: (127 + 1) put: #forwardDelete:. "del key" "On some keyboards, these characters require a shift" '([<{|"''9' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. "NB: sw 12/9/2001 commented out the idiosyncratic line just below, which was grabbing shift-esc in the text editor and hence which argued with the wish to have shift-esc be a universal gesture for escaping the local context and calling up the desktop menu." "cmdMap at: (27 + 1) put: #shiftEnclose:." "ctrl-[" "'""''(' do: [ :char | cmdMap at: (char asciiValue + 1) put: #enclose:]." cmds := #( $c compareToClipboard: - "$d duplicate:" $h cursorTopHome: $j doAgainMany: $k changeStyle: - $l outdent: $m selectCurrentTypeIn: - $r indent: $s search: $u changeLfToCr: $x makeLowercase: $y makeUppercase: $z makeCapitalized: ). 1 to: cmds size by: 2 do: [ :i | cmdMap at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys" cmdMap at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys" cmdMap at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys" ]. shiftCmdActions := cmdMap! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: [ self closeTypeIn. ^ true ]. self clearParens. aKeyboardEvent keyValue = 13 ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent ]. + (aKeyboardEvent keyCharacter = Character tab and: [ self selection notEmpty ]) ifTrue: + [ aKeyboardEvent shiftPressed + ifTrue: [ self outdent: aKeyboardEvent ] + ifFalse: [ self indent: aKeyboardEvent ]. + ^ true ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. self class autoEnclose + ifTrue: + [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] - ifTrue: [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] ifFalse: [ self normalCharacter: aKeyboardEvent ]. ^ false! Item was removed: - ----- Method: TextEditor>>duplicate: (in category 'editing keys') ----- - duplicate: aKeyboardEvent - "Paste the current selection over the prior selection, if it is non-overlapping and - legal. Flushes typeahead. Undoer & Redoer: undoAndReselect." - - self closeTypeIn. - (self hasSelection and: [self isDisjointFrom: otherInterval]) - ifTrue: "Something to duplicate" - [self replace: otherInterval with: self selection and: - [self selectAt: self pointIndex]] - ifFalse: - [morph flash]. - ^true! Item was changed: (PackageInfo named: 'Morphic') postscript: '"Initialize the key bindings and menus" + Editor initialize. - Editor initialize. "again" "apply the new icons" + MenuIcons initializeIcons'! - MenuIcons initializeIcons. "again" - TheWorldMainDockingBar updateInstances. - - "Fix missing inset of old-style windows." - SystemWindow allSubInstancesDo: [:ea | - (ea paneMorphs detect: [:m | m layoutFrame leftFraction = 0] ifNone: []) - ifNotNil: [:m | m layoutFrame leftOffset > 0 - ifTrue: [ea layoutInset: 0]]]. - - "Remove non-functional tools from world menu." - LanguageEditor unload. - UUniverseBrowser unload. - UUniverseEditor unload.'!

1 0

The Trunk: Morphic-cmm.1014.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

1 0

The Trunk: Protocols-topa.52.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

Tobias Pape uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-topa.52.mcz ==================== Summary ==================== Name: Protocols-topa.52 Author: topa Time: 19 October 2015, 11:07:26.755 pm UUID: 70a20162-a6a1-4af7-96a1-a5e420abb5d5 Ancestors: Protocols-cmm.51 Remove a deprecated #upTo: on a String =============== Diff against Protocols-cmm.51 =============== Item was changed: ----- Method: Lexicon>>selectWithinCurrentCategoryIfPossible: (in category 'category list') ----- selectWithinCurrentCategoryIfPossible: aSelector "If the receiver's message list contains aSelector, navigate right to it without changing categories" | detectedItem messageIndex | aSelector ifNil: [^ self]. detectedItem := messageList detect: + [:anItem | (anItem asString copyUpTo: $ ) asSymbol == aSelector] ifNone: [^ self]. - [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self]. messageIndex := messageList indexOf: detectedItem. self messageListIndex: messageIndex !

1 0

The Trunk: Protocols-topa.52.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

1 0

The Trunk: Morphic-topa.1013.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1013.mcz ==================== Summary ==================== Name: Morphic-topa.1013 Author: topa Time: 19 October 2015, 8:11:08.908 pm UUID: 9c5d0bcd-c56c-4d4b-92dc-e8976696a433 Ancestors: Morphic-topa.1012 Exchange #duplicate for #debugIt on CMD-D (menu icon, postscript) =============== Diff against Morphic-topa.1012 =============== Item was changed: ----- Method: MenuIcons class>>itemsIcons (in category 'menu decoration') ----- itemsIcons "answer a collection of associations wordings -> icon to decorate the menus all over the image" | icons | icons := OrderedCollection new. "icons add: #('Test Runner' ) -> self smallTrafficIcon." " world menu" "icons add: #('previous project' 'go to previous project') -> self smallProjectBackIcon." icons add: #('go to next project') -> self smallProjectNextIcon. icons add: #('select' ) -> self smallSelectIcon. icons add: #('jump to project...' ) -> self smallProjectJumpIcon. icons add: #('open...' ) -> self smallOpenIcon. icons add: #('appearance...' ) -> self smallConfigurationIcon. icons add: #('help...' ) -> self smallHelpIcon. "icons add: #('windows...' ) -> self smallWindowIcon." icons add: #('changes...' ) -> self smallDocumentClockIcon. icons add: #('print PS to file...' ) -> self smallPrintIcon. icons add: #('debug...' ) -> self smallDebugIcon. icons add: #('export...' ) -> self smallExportIcon. icons add: #('save' ) -> self smallSaveIcon. "icons add: #('save project on file...' ) -> self smallProjectSaveIcon." "icons add: #('save as...') -> self smallSaveAsIcon. icons add: #('save as new version') -> self smallSaveNewIcon. icons add: #('save and quit' ) -> self smallQuitIcon." icons add: #('quit') -> self smallQuitNoSaveIcon. "icons add: #('load project from file...' ) -> self smallProjectLoadIcon." "" icons add: #('do it (d)' ) -> self smallDoItIcon. icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. icons add: #('print it (p)' ) -> self smallPrintIcon. + icons add: #('debug it (D)' ) -> self smallDebugIcon. - icons add: #('debug it' ) -> self smallDebugIcon. icons add: #('tally it' ) -> self smallTimerIcon. "" icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> self smallCopyIcon. icons add: #('paste (v)') -> self smallPasteIcon. icons add: #('cut (x)' ) -> self smallCutIcon. "" icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. "" icons add: #('do again (j)' ) -> self smallRedoIcon. icons add: #('undo (z)' ) -> self smallUndoIcon. "" icons add: #( 'find class... (f)' 'find method...' ) -> self smallSearchIcon. icons add: #('find...(f)') -> self smallFindIcon. "" icons add: #('remove' 'remove class (x)' 'delete method from changeset (d)' 'remove method from system (x)' 'delete class from change set (d)' 'remove class from system (x)' 'destroy change set (X)' ) -> self smallDeleteIcon. icons add: #('add item...' 'new category...' 'new change set... (n)' ) -> self smallNewIcon. "" icons add: #('objects (o)' ) -> self smallObjectCatalogIcon. icons add: #('authoring tools...') -> self smallAuthoringToolsIcon. icons add: #('projects...') -> self smallProjectIcon. "" icons add: #('make screenshot') -> self smallScreenshotIcon. "" icons add: #('leftFlush' ) -> self smallLeftFlushIcon. icons add: #('rightFlush' ) -> self smallRightFlushIcon. icons add: #('centered' 'set alignment... (u)' ) -> self smallCenteredIcon. icons add: #('justified' ) -> self smallJustifiedIcon. "" icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' 'default text font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code font...' 'button font...') -> self smallFontsIcon. icons add: #('full screen on') -> self smallFullscreenOnIcon. icons add: #('full screen off' ) -> self smallFullscreenOffIcon. "" ^ icons! Item was changed: (PackageInfo named: 'Morphic') postscript: '"Initialize the key bindings and menus" + Editor initialize. "again" - Editor initialize. "apply the new icons" + MenuIcons initializeIcons. "again" - MenuIcons initializeIcons. TheWorldMainDockingBar updateInstances. "Fix missing inset of old-style windows." SystemWindow allSubInstancesDo: [:ea | (ea paneMorphs detect: [:m | m layoutFrame leftFraction = 0] ifNone: []) ifNotNil: [:m | m layoutFrame leftOffset > 0 ifTrue: [ea layoutInset: 0]]]. "Remove non-functional tools from world menu." LanguageEditor unload. UUniverseBrowser unload. UUniverseEditor unload.'!

1 0

The Trunk: Morphic-topa.1013.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

1 0

The Trunk: Tools-topa.641.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.641.mcz ==================== Summary ==================== Name: Tools-topa.641 Author: topa Time: 19 October 2015, 8:07:23.224 pm UUID: 814fa3cb-c5f1-4b07-bf05-16154c316de6 Ancestors: Tools-cmm.640 Exchange #duplicate for #debugIt on CMD-D (menu) =============== Diff against Tools-cmm.640 =============== Item was changed: ----- Method: StringHolder class>>yellowButtonMenuItems (in category '*Tools-yellow button menu') ----- yellowButtonMenuItems "Returns the standard yellow button menu items" ^{ #-. {'set font... (k)' translated. #offerFontMenu}. {'set style... (K)' translated. #changeStyle}. {'set alignment... (u)' translated. #chooseAlignment}. #-. {'make project link (P)' translated. #makeProjectLink}. #-. {'find...(f)' translated. #find}. {'find again (g)' translated. #findAgain}. {'set search string (h)' translated. #setSearchString}. #-. {'do again (j)' translated. #again}. {'undo (z)' translated. #undo}. #-. {'copy (c)' translated. #copySelection}. {'cut (x)' translated. #cut}. {'paste (v)' translated. #paste}. {'paste...' translated. #pasteRecent}. #-. {'do it (d)' translated. #doIt}. + {'debug it (D)' translated. #debugIt}. {'print it (p)' translated. #printIt}. {'inspect it (i)' translated. #inspectIt}. {'explore it (I)' translated. #exploreIt}. - {'debug it' translated. #debugIt}. {'button for it' translated. #buttonForIt}. {'tally it' translated. #tallyIt}. {'spy on it' translated. #spyOnIt}. #-. {'accept (s)' translated. #accept}. {'cancel (l)' translated. #cancel}. #-. {'show bytecodes' translated. #showBytecodes}. #-. {'copy html' translated. #copyHtml}. #-. {'more...' translated. #shiftedTextPaneMenuRequest}. }!

1 0

The Trunk: Tools-topa.641.mcz
by commits＠source.squeak.org 19 Oct '15

19 Oct '15

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2015