Packages November 2015

packages@lists.squeakfoundation.org

1 participants
228 discussions

The Trunk: Squeak-Version-kfr. 4711.mcz
by commits＠source.squeak.org 25 Nov '15

25 Nov '15

Karl Ramberg uploaded a new version of Squeak-Version to project The Trunk: http://source.squeak.org/trunk/Squeak-Version-kfr. 4711.mcz ==================== Summary ==================== Name: Squeak-Version-kfr. 4711 Author: kfr Time: 25 November 2015, 4:48:22.871 pm UUID: 499e1646-64b4-4f30-a422-471455781462 Ancestors: Squeak-Version-ar.4662 Removal of Universes =============== Diff against Squeak-Version-ar.4662 ===============

1 0

The Trunk: Squeak-Version-kfr. 4711.mcz
by commits＠source.squeak.org 25 Nov '15

25 Nov '15

1 0

The Trunk: Universes-kfr.49.mcz
by commits＠source.squeak.org 25 Nov '15

25 Nov '15

Karl Ramberg uploaded a new version of Universes to project The Trunk: http://source.squeak.org/trunk/Universes-kfr.49.mcz ==================== Summary ==================== Name: Universes-kfr.49 Author: kfr Time: 25 November 2015, 4:41:51.099 pm UUID: 7fee292f-53fe-4b4d-822a-bf8798bd2cda Ancestors: Universes-mt.48 Removal of Universes =============== Diff against Universes-mt.48 =============== Item was added: + (PackageInfo named: 'Universes') preamble: '"below, add code to be run before the loading of this package" + (MCPackage named: ''Universes'') workingCopy unload'!

1 0

The Trunk: Universes-kfr.49.mcz
by commits＠source.squeak.org 25 Nov '15

25 Nov '15

1 0

The Trunk: HelpSystem-Core-mt.84.mcz
by commits＠source.squeak.org 24 Nov '15

24 Nov '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.84.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.84 Author: mt Time: 24 November 2015, 9:48:03.135 am UUID: ce8e1b34-772e-4968-a6f7-ad1afed12b10 Ancestors: HelpSystem-Core-mt.83 Removes dead code. Avoid losing unaccepted changes without confirmation. Like on code editors. =============== Diff against HelpSystem-Core-mt.83 =============== Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" | code parent topicClass topicMethod | (self currentParentTopic isNil or: [self currentParentTopic isEditable not]) ifTrue: [^ self inform: 'This help topic cannot be edited.']. + self changed: #clearUserEdits. + parent := self currentParentTopic. topicClass := parent helpClass. topicMethod := self currentTopic key. code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', currentTopic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). parent refresh. parent == self rootTopic ifTrue: [self rootTopic: parent]. self currentTopic: (parent subtopics detect: [:t | t key = topicMethod]).! Item was changed: ----- Method: HelpBrowser>>currentTopic: (in category 'accessing') ----- currentTopic: aHelpTopic + self okToChange ifFalse: [^ self]. self currentTopic == aHelpTopic ifTrue: [^ self]. currentTopic := aHelpTopic. topicPath := nil. self changed: #currentTopic. self changed: #topicContents.! Item was removed: - ----- Method: HelpBrowser>>find (in category 'actions') ----- - find - "Prompt the user for a string to search for, and search the receiver from the current selection onward for it." - - | reply | - reply := UIManager default request: 'Find what? ' initialAnswer: ''. - reply size = 0 ifTrue: [ - ^ self]. - self findStringInHelpTopic: reply - ! Item was removed: - ----- Method: HelpBrowser>>find: (in category 'actions') ----- - find: aString - ^SystemNavigation allMethodsSelect: [:method | - method hasLiteralSuchThat: [:lit | - (lit isString and: [lit isSymbol not]) and: - [lit includesSubstring: aString caseSensitive: false]]] - localTo: CustomHelp - ! Item was removed: - ----- Method: HelpBrowser>>findAgain (in category 'actions') ----- - findAgain - | i | - (i := result indexOf: currentTopic) ~= 0 - ifTrue: [i = result size - ifTrue: [(self confirm: 'Start over?') - ifTrue: [i := 1] - ifFalse: [^ self]]. - self - onItemClicked: (result at: i + 1)]! Item was removed: - ----- Method: HelpBrowser>>findStringInHelpTopic: (in category 'actions') ----- - findStringInHelpTopic: aString - - result := OrderedCollection new. - self inSubtopic: self rootTopic find: aString. - result ifNotEmpty: [self topic: result first]. - ! Item was removed: - ----- Method: HelpBrowser>>inSubtopic:find: (in category 'actions') ----- - inSubtopic: aTopic find: aString - ((aTopic title asString includesSubstring: aString caseSensitive: false) - or: [aTopic contents asString includesSubstring: aString caseSensitive: false]) - ifTrue: [result addIfNotPresent: aTopic]. - aTopic subtopics - do: [:sub | self inSubtopic: sub find: aString]! Item was removed: - ----- Method: HelpBrowser>>inTopic:replaceCurrentTopicWith: (in category 'actions') ----- - inTopic: parentTopic replaceCurrentTopicWith: aNewTopic - - parentTopic subtopics - do: [ :sub | self inTopic: parentTopic replaceSubtopic: sub with: aNewTopic]! Item was removed: - ----- Method: HelpBrowser>>inTopic:replaceSubtopic:with: (in category 'actions') ----- - inTopic: parentTopic replaceSubtopic: aTopic with: aNewTopic - | i | - - (aTopic = oldTopic) - ifTrue: [ i := parentTopic subtopics indexOf: aTopic. - parentTopic subtopics at: i put: aNewTopic. ^self ]. - - aTopic subtopics - do: [ :sub | self inTopic: aTopic replaceSubtopic: sub with: aNewTopic]! Item was added: + ----- Method: HelpBrowser>>okToChange (in category 'updating') ----- + okToChange + + self canDiscardEdits ifTrue: [^ true]. + self changed: #wantToChange. "Solicit cancel from view" + ^ self canDiscardEdits! Item was changed: ----- Method: HelpBrowser>>searchTerm: (in category 'searching') ----- searchTerm: aString "Spawn a new search topic." | topic | + self okToChange ifFalse: [^ self]. + topic := self searchTopic subtopics detect: [:t | t term = aString] ifNone: [ | newTopic | newTopic := SearchTopic new term: aString; yourself. self searchTopic addSubtopic: newTopic. newTopic addDependent: self. "Tell me about your updates." newTopic]. "self changed: #searchTerm." "Select results and expand searches node if necessary." self currentTopicPath: {self searchTopic. topic}. self assert: self currentTopic == topic. topic topicsToSearch: self toplevelTopics allButLast; startSearch.!

1 0

The Trunk: HelpSystem-Core-mt.84.mcz
by commits＠source.squeak.org 24 Nov '15

24 Nov '15

1 0

The Trunk: Morphic-mt.1054.mcz
by commits＠source.squeak.org 24 Nov '15

24 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1054.mcz ==================== Summary ==================== Name: Morphic-mt.1054 Author: mt Time: 24 November 2015, 9:33:49.122 am UUID: 878e7207-e241-4d31-83ab-30ad76c71c11 Ancestors: Morphic-mt.1053 Do not create undoable commands everytime we type a separator. Having this, we can do in-place find/replace of sequences with whitespace again such as selecting "first" and replacing it with "at: 1" followed by hitting CTRL+J or CTRL+SHIFT+J to do the replacement again. Note that commands will still end if the user changes the selection by, for example, moving the text cursor. Or when deleting things via backspace. Or when inserting stuff from the clipboard, or ... just look for senders of #closeTypeIn or #insertAndCloseTypeIn to get the idea. =============== Diff against Morphic-mt.1053 =============== Item was changed: Editor subclass: #TextEditor + instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history' - instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history previousKeyCharacter' classVariableNames: 'AutoEnclose AutoIndent ChangeText FindText' poolDictionaries: '' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! 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. - "Create a new command for separating characters. Do not create separate commands for consecutive separators." - ((Character separators includes: typedChar) - and: [(Character separators includes: previousKeyCharacter) not]) - ifTrue: [self closeTypeIn]. - previousKeyCharacter := typedChar. - "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys 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]. "Automatically enclose paired characters such as brackets." (self class autoEnclose and: [self autoEncloseFor: typedChar]) ifTrue: [^ true]. self normalCharacter: aKeyboardEvent. ^ false!

1 0

The Trunk: Morphic-mt.1054.mcz
by commits＠source.squeak.org 24 Nov '15

24 Nov '15

1 0

The Trunk: Tools-kfr.656.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

Karl Ramberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.656.mcz ==================== Summary ==================== Name: Tools-kfr.656 Author: kfr Time: 23 November 2015, 11:34:24.394 pm UUID: 0ece22f7-03af-4926-b071-bbb3dec38d64 Ancestors: Tools-kfr.655 Might as well get the comment right on this one.... =============== Diff against Tools-kfr.655 =============== Item was changed: ----- Method: Browser>>browseAllCommentsForClass (in category 'message functions') ----- browseAllCommentsForClass + "Opens a HelpBrowser on the class" - "Inspect all instances of the selected class. 1/26/96 sw" | myClass | ((myClass := self selectedClassOrMetaClass) isNil or: [myClass isTrait]) ifFalse: [HelpBrowser openOn: myClass theNonMetaClass] !

1 0

The Trunk: Tools-kfr.656.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2015