Squeak-dev February 2017

squeak-dev@lists.squeakfoundation.org

40 participants
201 discussions

The Inbox: System-jr.927.mcz
by commits＠source.squeak.org 28 Feb '17

28 Feb '17

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-jr.927.mcz ==================== Summary ==================== Name: System-jr.927 Author: jr Time: 28 February 2017, 1:18:53.473081 am UUID: 7c830682-637d-e94b-b695-9f1d7499e19b Ancestors: System-ul.926 improve environment awareness of references also support Text as stringVersion of MethodReference (so Lexicon could use method references) =============== Diff against System-ul.926 =============== Item was changed: Object subclass: #ClassReference + instanceVariableNames: 'classSymbol stringVersion classIsMeta environment' - instanceVariableNames: 'classSymbol stringVersion classIsMeta' classVariableNames: '' poolDictionaries: '' category: 'System-Tools'! !ClassReference commentStamp: '<historical>' prior: 0! A ClassReference is is a lightweight proxy for a Class's definition. Allows class definitions to be viewed in MessageLists Instance Variables classSymbol: Symbol for method's class (without class keyword if meta) stringVersion: the class's definition ! Item was changed: ----- Method: ClassReference>>= (in category 'comparisons') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol + and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self environment == anotherMethodReference environment]]]! - and: [self classIsMeta = anotherMethodReference classIsMeta]]! Item was changed: ----- Method: ClassReference>>actualClass (in category 'accessing') ----- actualClass | actualClass | + environment ifNil: [^ nil]. + actualClass := environment at: classSymbol ifAbsent: [^nil]. + ^classIsMeta ifTrue: [actualClass theMetaClass] ifFalse: [actualClass]! - actualClass := Smalltalk at: classSymbol ifAbsent: [^nil]. - ^classIsMeta ifTrue: [actualClass class] ifFalse: [actualClass]! Item was added: + ----- Method: ClassReference>>environment (in category 'accessing') ----- + environment + + ^ environment! Item was added: + ----- Method: ClassReference>>hash (in category 'comparisons') ----- + hash + "Answer a SmallInteger whose value is related to the receiver's + identity." + ^ (self species hash bitXor: self classSymbol hash) + bitXor: self environment hash! Item was added: + ----- Method: ClassReference>>printOn: (in category 'printing') ----- + printOn: aStream + | actualClass | + "Print the receiver on a stream" + actualClass := classSymbol asString. + classIsMeta ifTrue: [actualClass := actualClass, ' class']. + super printOn: aStream. + aStream nextPutAll: ' ', actualClass! Item was added: + ----- Method: ClassReference>>setClassSymbol:classIsMeta:environment:stringVersion: (in category 'initialize-release') ----- + setClassSymbol: classSym classIsMeta: isMeta environment: anEnvironment stringVersion: aString + + classSymbol := classSym. + classIsMeta := isMeta. + stringVersion := aString, ' (definition)'. + environment := anEnvironment! Item was changed: ----- Method: ClassReference>>setStandardClass: (in category 'initialize-release') ----- setStandardClass: aClass self setClassSymbol: aClass theNonMetaClass name classIsMeta: aClass isMeta + environment: aClass environment stringVersion: aClass name! Item was changed: ----- Method: MethodReference class>>class:selector: (in category 'instance creation') ----- class: aClass selector: aSelector + ^ self class: aClass selector: aSelector environment: aClass environment.! - ^ self class: aClass selector: aSelector environment: Smalltalk globals.! Item was changed: ----- Method: MethodReference>>= (in category 'comparing') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self methodSymbol = anotherMethodReference methodSymbol + and: [self environment == anotherMethodReference environment]]]]! - and: [self methodSymbol = anotherMethodReference methodSymbol]]]! Item was changed: ----- Method: MethodReference>>asString (in category 'converting') ----- asString + ^(stringVersion ifNil: [ self stringVersionDefault ]) asString! - ^stringVersion ifNil: [ self stringVersionDefault ]! Item was added: + ----- Method: MethodReference>>asStringOrText (in category 'converting') ----- + asStringOrText + + ^stringVersion ifNil: [ self stringVersionDefault ]! Item was changed: ----- Method: MethodReference>>setClass:methodSymbol:stringVersion: (in category 'initialize-release') ----- setClass: aClass methodSymbol: methodSym stringVersion: aString classSymbol := aClass theNonMetaClass name. classIsMeta := aClass isMeta. methodSymbol := methodSym. + environment := aClass environment. stringVersion := aString.! Item was changed: ----- Method: MethodReference>>setStandardClass:methodSymbol: (in category 'initialize-release') ----- setStandardClass: aClass methodSymbol: methodSym classSymbol := aClass theNonMetaClass name. + environment := aClass environment. classIsMeta := aClass isMeta. methodSymbol := methodSym. stringVersion := nil.! Item was changed: ----- Method: MethodReference>>stringVersion (in category 'accessing') ----- stringVersion + ^stringVersion ifNil: [self asStringOrText]! - ^stringVersion! Item was changed: ----- Method: SystemNavigation>>methodHierarchyBrowserForClass:selector: (in category 'browse') ----- methodHierarchyBrowserForClass: aClass selector: selectorSymbol "Create and schedule a message set browser on all implementors of the currently selected message selector. Do nothing if no message is selected." "SystemNavigation default methodHierarchyBrowserForClass: ParagraphEditor selector: #isControlActive" | list aClassNonMeta isMeta tab compiledMethod window | aClass ifNil: [^ self]. aClass isTrait ifTrue: [^ self]. selectorSymbol ifNil: [^ self]. aClassNonMeta := aClass theNonMetaClass. isMeta := aClassNonMeta ~~ aClass. list := OrderedCollection new. tab := ''. aClass allSuperclasses reverseDo: [:cl | (cl includesSelector: selectorSymbol) ifTrue: + [list addLast: (MethodReference new + setClass: cl + methodSymbol: selectorSymbol + stringVersion: tab , cl name, ' ', selectorSymbol)]. - [list addLast: tab , cl name, ' ', selectorSymbol]. tab := tab , ' ']. aClassNonMeta allSubclassesWithLevelDo: [:cl :level | | theClassOrMeta stab | theClassOrMeta := isMeta ifTrue: [cl class] ifFalse: [cl]. (theClassOrMeta includesSelector: selectorSymbol) ifTrue: [stab := ''. 1 to: level do: [:i | stab := stab , ' ']. + list addLast: (MethodReference new + setClass: theClassOrMeta + methodSymbol: selectorSymbol + stringVersion: tab , stab , theClassOrMeta name, ' ', selectorSymbol)]] - list addLast: tab , stab , theClassOrMeta name, ' ', selectorSymbol]] startingLevel: 0. window := self browseMessageList: list name: 'Inheritance of ' , selectorSymbol. window isSystemWindow ifTrue: [ window model deselectAll ; yourself. compiledMethod := aClass compiledMethodAt: selectorSymbol ifAbsent:[nil]. compiledMethod ifNotNil: [ window model selectReference: compiledMethod methodReference ] ]! Item was changed: ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- classify: element under: newCategory | oldCategory class | + self flag: #environments. "do we want notifications for classes in other environments?" oldCategory := self categoryOfElement: element. super classify: element under: newCategory. class := Smalltalk at: element ifAbsent: [^ self]. self == SystemOrganization ifTrue: [ SystemChangeNotifier uniqueInstance class: class recategorizedFrom: oldCategory to: newCategory]!

1 0

The Inbox: Kernel-jr.1061.mcz
by commits＠source.squeak.org 28 Feb '17

28 Feb '17

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jr.1061.mcz ==================== Summary ==================== Name: Kernel-jr.1061 Author: jr Time: 28 February 2017, 12:28:50.653081 am UUID: acd952fb-8e90-e940-8d2e-6c1a9e3a7d3f Ancestors: Kernel-ul.1060 increase environment awareness for behaviors =============== Diff against Kernel-ul.1060 =============== Item was added: + ----- Method: Behavior>>compile:environment:notifying:trailer:ifFail: (in category 'compiling') ----- + compile: code environment: anEnvironment notifying: requestor trailer: bytes ifFail: failBlock + "Compile code in another Environment without logging the source in the changes file" + + | methodNode | + methodNode := self newCompiler + compile: code + in: self + environment: anEnvironment + notifying: requestor + ifFail: failBlock. + ^ CompiledMethodWithNode generateMethodFromNode: methodNode trailer: bytes.! Item was changed: ----- Method: Class>>category: (in category 'organization') ----- category: aString "Categorize the receiver under the system category, aString, removing it from any previous categorization." | oldCategory | oldCategory := category. aString isString ifTrue: [ category := aString asSymbol. + self environment organization classify: self name under: category ] - SystemOrganization classify: self name under: category ] ifFalse: [self errorCategoryName]! Item was changed: ----- Method: ClassDescription>>definition (in category 'fileIn/Out') ----- definition "Answer a String that defines the receiver." | aStream path | aStream := WriteStream on: (String new: 300). superclass == nil ifTrue: [aStream nextPutAll: 'ProtoObject'] ifFalse: [path := ''. self environment scopeFor: superclass name from: nil envtAndPathIfFound: [:envt :remotePath | path := remotePath]. aStream nextPutAll: path , superclass name]. aStream nextPutAll: self kindOfSubclass; store: self name. (self hasTraitComposition and: [self traitComposition notEmpty]) ifTrue: [ aStream cr; tab; nextPutAll: 'uses: '; nextPutAll: self traitCompositionString]. aStream cr; tab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString. aStream cr; tab; nextPutAll: 'classVariableNames: '; store: self classVariablesString. aStream cr; tab; nextPutAll: 'poolDictionaries: '; store: self sharedPoolsString. aStream cr; tab; nextPutAll: 'category: '; + store: (self environment organization categoryOfElement: self name) asString. - store: (SystemOrganization categoryOfElement: self name) asString. superclass ifNil: [ aStream nextPutAll: '.'; cr. aStream nextPutAll: self name. aStream space; nextPutAll: 'superclass: nil'. ]. ^ aStream contents! Item was changed: ----- Method: Object class>>readFrom: (in category 'instance creation') ----- readFrom: textStringOrStream "Create an object based on the contents of textStringOrStream." | object | (Compiler couldEvaluate: textStringOrStream) ifFalse: [^ self error: 'expected String, Stream, or Text']. + object := self environment beCurrentDuring: [Compiler evaluate: textStringOrStream environment: self environment]. - object := Compiler evaluate: textStringOrStream. (object isKindOf: self) ifFalse: [self error: self name, ' expected']. ^object!

1 0

The Inbox: Compiler-jr.329.mcz
by commits＠source.squeak.org 28 Feb '17

28 Feb '17

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-jr.329.mcz ==================== Summary ==================== Name: Compiler-jr.329 Author: jr Time: 28 February 2017, 12:19:04.434081 am UUID: 6053da84-5a5b-b043-8dcc-019bc75762df Ancestors: Compiler-nice.328 add method variants with environment parameters =============== Diff against Compiler-nice.328 =============== Item was added: + ----- Method: CompilationCue class>>source:context:class:environment:requestor: (in category 'instance creation') ----- + source: aTextOrStream context: aContext class: aClass environment: anEnvironment requestor: reqObject + ^ self basicNew + initializeWithSource: aTextOrStream + context: aContext + receiver: (aContext ifNotNil: [aContext receiver]) + class: aClass + environment: anEnvironment + requestor: reqObject! Item was added: + ----- Method: CompilationCue class>>source:environment:requestor: (in category 'instance creation') ----- + source: aString environment: anEnvironment requestor: aRequestor + ^ self + source: aString + context: nil + receiver: nil + class: UndefinedObject + environment: anEnvironment + requestor: aRequestor! Item was added: + ----- Method: Compiler class>>evaluate:in:notifying:logged: (in category 'evaluating logged') ----- + evaluate: textOrString in: anEnvironment notifying: aController logged: logFlag + "Compile and execute the argument, textOrString in anEnvironment. + If a compilation error occurs, notify aController. If both + compilation and execution are successful then, if logFlag is true, log + (write) the text onto a system changes file so that it can be replayed if + necessary." + + ^ self new + evaluate: textOrString + in: anEnvironment + notifying: aController + logged: logFlag.! Item was added: + ----- Method: Compiler>>compile:in:environment:notifying:ifFail: (in category 'public access') ----- + compile: textOrStream in: aClass environment: anEnvironment notifying: aRequestor ifFail: failBlock + "Answer a MethodNode for the argument, textOrStream. If the + MethodNode can not be created, notify the argument, aRequestor; if + aRequestor is nil, evaluate failBlock instead. The MethodNode is the root + of a parse tree. It can be told to generate a CompiledMethod to be + installed in the method dictionary of the argument, aClass." + + ^self + compileCue: (CompilationCue + source: textOrStream + class: aClass + environment: anEnvironment + requestor: aRequestor) + noPattern: false + ifFail: failBlock + ! Item was added: + ----- Method: Compiler>>compileNoPattern:in:context:environment:notifying:ifFail: (in category 'public access') ----- + compileNoPattern: textOrStream in: aClass context: aContext environment: anEnvironment notifying: aRequestor ifFail: failBlock + "Similar to #compile:in:notifying:ifFail:, but the compiled code is + expected to be a do-it expression, with no message pattern, + and it will be in an explicit environment." + + ^self + compileCue: (CompilationCue + source: textOrStream + context: aContext + class: aClass + environment: anEnvironment + requestor: aRequestor) + noPattern: true + ifFail: failBlock + ! Item was added: + ----- Method: Compiler>>evaluate:in:environment:notifying:ifFail:logged: (in category 'public access logging') ----- + evaluate: textOrStream in: aContext environment: anEnvironment notifying: aRequestor ifFail: failBlock logged: logFlag + "Compiles the sourceStream into a parse tree, then generates code into + a method. If aContext is not nil, the text can refer to temporaries in that + context (the Debugger uses this). If aRequestor is not nil, then it will receive + a notify:at: message before the attempt to evaluate is aborted. Finally, the + compiled method is invoked from here via withArgs:executeMethod:, hence + the system no longer creates Doit method litter on errors." + ^self + evaluateCue: (CompilationCue + source: textOrStream + context: aContext + receiver: nil + class: UndefinedObject + environment: anEnvironment + requestor: aRequestor) + ifFail: failBlock + logged: logFlag! Item was added: + ----- Method: Compiler>>evaluate:in:notifying:logged: (in category 'public access logging') ----- + evaluate: textOrString in: anEnvironment notifying: aController logged: logFlag + "Compile and execute the argument, textOrString in anEnvironment. + If a compilation error occurs, notify aController. If both + compilation and execution are successful then, if logFlag is true, log + (write) the text onto a system changes file so that it can be replayed if + necessary." + + ^self + evaluate: textOrString + in: nil + environment: anEnvironment + notifying: aController + ifFail: [^nil] + logged: logFlag! Item was added: + ----- Method: Compiler>>evaluate:in:to:environment:notifying:ifFail:logged: (in category 'public access logging') ----- + evaluate: textOrStream in: aContext to: receiver environment: anEnvironment notifying: aRequestor ifFail: failBlock logged: logFlag + "Same as #evaluate:in:to:notifying:ifFail:logged: but with an explicit environment" + | theClass | + theClass := (aContext == nil ifTrue: [receiver class] ifFalse: [aContext methodClass]). + ^self + evaluateCue: (CompilationCue + source: textOrStream + context: aContext + receiver: receiver + class: theClass + environment: anEnvironment + requestor: aRequestor) + ifFail: failBlock + logged: logFlag!

1 0

Attempting to run Squeak all-in-one download on ubuntu linux
by Hari Balaraman 28 Feb '17

28 Feb '17

Folks, I am trying to run squeak on Ubuntu Linux. I downloaded the zip file, extracted it into the same directory, made the squeak.sh executable, and attempted execution. What follows is the the output on my terminal window (username and computer name replaced). Please let me know what I need to tweak to get it working. Kind regards, Hari username@computername:~/Downloads$ sudo chmod +x squeak.sh [sudo] password for username: username@computername:~/Downloads$ ./squeak.sh bash: ./squeak.sh: No such file or directory username@computername:~/Downloads$ ls Squeak5.1-16549-32bit-201608171728-Linux.zip squeak.bat Squeak5.1-16549-32bit-All-in-One.app squeak.sh Squeak5.1-16549-32bit-All-in-One.zip username@computername:~/Downloads$ ./squeak.sh Running 32-bit Squeak on a 64-bit System. install-libs32 may install them. Using /home/username/Downloads/Squeak5.1-16549-32bit-All-in-One.app/Contents/Linux-i686/bin/squeak... Error. Could not determine platform's libc path for VM. Try forcing $PLATFORMLIBDIR in /home/username/Downloads/Squeak5.1-16549-32bit-All-in-One.app/Contents/Linux-i686/bin/squeak, based on LIBC_SO. Please report what works to squeak [vm-dev] mail list. LIBC_SO= DISTRIB_ID=Ubuntu DISTRIB_RELEASE=17.04 DISTRIB_CODENAME=zesty DISTRIB_DESCRIPTION="Ubuntu Zesty Zapus (development branch)" NAME="Ubuntu" VERSION="17.04 (Zesty Zapus)" ID=ubuntu ID_LIKE=debian PRETTY_NAME="Ubuntu Zesty Zapus (development branch)" VERSION_ID="17.04" VERSION_CODENAME=zesty UBUNTU_CODENAME=zesty UNAME=Linux computername 4.8.0-22-generic #24-Ubuntu SMP Sat Oct 8 09:15:00 UTC 2016 x86_64 x86_64 x86_64 GNU/Linux /home/username/Downloads/Squeak5.1-16549-32bit-All-in-One.app/Contents/Linux-i686/bin/squeak: 36: /home/username/Downloads/Squeak5.1-16549-32bit-All-in-One.app/Contents/Linux-i686/bin/squeak: [[: not found

6 9

The Trunk: Tools-cmm.744.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.744.mcz ==================== Summary ==================== Name: Tools-cmm.744 Author: cmm Time: 27 February 2017, 2:57:13.398974 pm UUID: 494d1583-1885-43b9-93ed-9aff5b4c3b1e Ancestors: Tools-ul.743 Allow unfiltering of the message list even when no method is selected, via the message category toggle key (Command+Y). =============== Diff against Tools-ul.743 =============== Item was changed: ----- Method: Browser>>showHomeCategory (in category 'message category functions') ----- showHomeCategory + "Select the category of the currently-selected method. If it is already selected, or if no method is selected, deselect it to unfilter the message list." - "Show the home category of the selected method. This is only really useful if one is in a tool that supports the showing of categories. Thus, it's good in browsers and hierarchy browsers but not in message-list browsers" - - | aSelector | self okToChange ifTrue: + [ | aSelector | ((aSelector := self selectedMessageName) notNil or: [ selectedMessageCategoryName notNil ]) ifTrue: + [ aSelector + ifNil: [ self selectMessageCategoryNamed: nil ] + ifNotNil: [ self toggleCategorySelectionForCurrentMethod ]. + self selectedMessageName: aSelector ] ]! - [(aSelector := self selectedMessageName) ifNotNil: - [self toggleCategorySelectionForCurrentMethod. - self selectedMessageName: aSelector]]! 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: [^ ToolSet browse: 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]. + (aChar == $Y and: [self canShowMultipleMessageCategories]) + ifTrue: [^ self showHomeCategory]. "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 == $C ifTrue: [ self copyReference ]. - (aChar == $Y and: [self canShowMultipleMessageCategories]) - ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view!

1 0

The Trunk: EToys-ul.280.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.280.mcz ==================== Summary ==================== Name: EToys-ul.280 Author: ul Time: 27 February 2017, 1:34:44.128483 pm UUID: 29c41958-b162-47d6-8457-704818377065 Ancestors: EToys-ul.279 KOI8RTextConverter takes into account the installed line end convention when it's encoding characters. This fixes the failing #testLineEndConversion. The converter seems to be a ByteTextConverter, but since I wouldn't be able to tell if it works or not if I were to change it, I decided to leave it as it is. =============== Diff against EToys-ul.279 =============== Item was changed: ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- nextPut: aCharacter toStream: aStream + | charCode | + aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (charCode := aCharacter charCode) < 256 + ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] + ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. + ^aCharacter - aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. - aCharacter charCode < 128 ifTrue: [ - aStream basicNextPut: aCharacter. - ] ifFalse: [ - aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)). - ]. !

1 0

The Trunk: Compiler-ul.330.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.330.mcz ==================== Summary ==================== Name: Compiler-ul.330 Author: ul Time: 27 February 2017, 2:43:16.813851 am UUID: 8312df2d-c576-43eb-b847-bfcc53fb4c82 Ancestors: Compiler-ul.329 - fixed the first catch of the new #& and #| type checks =============== Diff against Compiler-ul.329 =============== Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode | sourceCode madeChanges tempsMarkHolder | sourceCode := cue requestor text asString. tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. madeChanges := false. tempsMarkHolder do: [ :currentBlock | | tempsMarkChar0 tempsMarkChar1 tempsMarkChar2 end start | tempsMarkChar0 := (sourceCode at: currentBlock tempsMark). tempsMarkChar1 := (sourceCode at: currentBlock tempsMark - 1). tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2). + (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $| ]) - tempsMarkChar0 = $| & tempsMarkChar1 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 1]. + (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $ and: [ tempsMarkChar2 == $| ] ]) - tempsMarkChar0 = $| & tempsMarkChar1 = $ & tempsMarkChar2 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 2]. + (start notNil and: [ end notNil ]) ifTrue: [ - start notNil & end notNil ifTrue: [ | lineStart lineEnd | lineStart := 1 + (sourceCode lastIndexOf: Character cr startingAt: start - 1). lineEnd := sourceCode indexOf: Character cr startingAt: end + 1 ifAbsent: [ sourceCode size ]. ((sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: lineStart) >= start and: [ (sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: end + 1) > lineEnd ]) ifTrue: [ start := lineStart. end := lineEnd ]. cue requestor correctFrom: start to: end with: ''. madeChanges := true. currentBlock tempsMark: nil ] ]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!

1 0

The Trunk: Tools-ul.743.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.743.mcz ==================== Summary ==================== Name: Tools-ul.743 Author: ul Time: 27 February 2017, 2:27:46.112006 am UUID: 78530c39-9b21-472a-9729-b5809712f28d Ancestors: Tools-ul.742 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Tools-ul.742 =============== Item was changed: ----- Method: Browser>>messageCategoryListIndex (in category 'message category list') ----- messageCategoryListIndex "Answer the index of the selected message category." + ^self messageCategoryList indexOf: selectedMessageCategoryName! - ^self messageCategoryList indexOf: selectedMessageCategoryName ifAbsent: [0].! Item was changed: ----- Method: FileList>>fileNameFromFormattedItem: (in category 'private') ----- fileNameFromFormattedItem: item "Extract fileName and folderString from a formatted fileList item string" | from to | self sortingByName ifTrue: [ + from := item lastIndexOf: $(. + to := item lastIndexOf: $)] - from := item lastIndexOf: $( ifAbsent: [0]. - to := item lastIndexOf: $) ifAbsent: [0]] ifFalse: [ + from := item indexOf: $(. + to := item indexOf: $)]. - from := item indexOf: $( ifAbsent: [0]. - to := item indexOf: $) ifAbsent: [0]]. ^ (from * to = 0 ifTrue: [item] ifFalse: [item copyReplaceFrom: from to: to with: '']) withBlanksTrimmed! Item was changed: ----- Method: InspectorBrowser>>step (in category 'as yet unclassified') ----- step | list fieldString msg | (list := super fieldList) = fieldList ifFalse: [fieldString := selectionIndex > 0 ifTrue: [fieldList at: selectionIndex] ifFalse: [nil]. fieldList := list. + selectionIndex := fieldList indexOf: fieldString. - selectionIndex := fieldList indexOf: fieldString ifAbsent: [0]. self changed: #fieldList. self changed: #selectionIndex]. list := msgList. msgList := nil. "force recomputation" list = self msgList ifFalse: [msg := msgListIndex > 0 ifTrue: [list at: msgListIndex] ifFalse: [nil]. + msgListIndex := msgList indexOf: msg. - msgListIndex := msgList indexOf: msg ifAbsent: [0]. self changed: #msgList. self changed: #msgListIndex]. super step! Item was changed: ----- Method: PackagePaneBrowser>>selectCategoryForClass: (in category 'system category list') ----- selectCategoryForClass: theClass "Set the package and category lists to display the given class." | cat catName | cat := theClass category. self packageListIndex: (self packageList indexOf: (cat copyUpTo: $-)). + catName := (cat copyFrom: ((cat indexOf: $-) + 1) to: cat size). - catName := (cat copyFrom: ((cat indexOf: $- ifAbsent: [0]) + 1) to: cat size). self selectSystemCategory: catName.! Item was changed: ----- Method: ProcessBrowser>>updateProcessList (in category 'process list') ----- updateProcessList | oldSelectedProcess newIndex now | now := Time millisecondClockValue. now - lastUpdate < 500 ifTrue: [^ self]. "Don't update too fast" lastUpdate := now. oldSelectedProcess := selectedProcess. processList := selectedProcess := selectedSelector := nil. Smalltalk garbageCollectMost. "lose defunct processes" processList := Process allSubInstances reject: [:each | each isTerminated]. processList := processList sorted: [:a :b | a priority >= b priority]. processList := WeakArray withAll: processList. + newIndex := processList indexOf: oldSelectedProcess. - newIndex := processList - indexOf: oldSelectedProcess - ifAbsent: [0]. self changed: #processNameList. self processListIndex: newIndex!

1 0

The Trunk: ToolBuilder-Morphic-ul.192.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ul.192.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ul.192 Author: ul Time: 27 February 2017, 2:26:53.959982 am UUID: 6f29aa99-9057-48b7-a897-76d292974361 Ancestors: ToolBuilder-Morphic-cbc.191 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against ToolBuilder-Morphic-cbc.191 =============== Item was changed: ----- Method: ListChooser>>chooseIndexFrom:title: (in category 'initialize-release') ----- chooseIndexFrom: labelList title: aString | choice | choice := self chooseItemFrom: labelList title: aString addAllowed: false. + ^ self items indexOf: choice! - ^ self items indexOf: choice ifAbsent: 0! Item was changed: ----- Method: ListChooser>>chooseIndexFrom:title:addAllowed: (in category 'initialize-release') ----- chooseIndexFrom: labelList title: aString addAllowed: aBoolean | choice | choice := self chooseItemFrom: labelList title: aString addAllowed: false. self addAllowed: aBoolean. + ^ self items indexOf: choice! - ^ self items indexOf: choice ifAbsent: 0!

1 0

The Trunk: System-ul.926.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.926.mcz ==================== Summary ==================== Name: System-ul.926 Author: ul Time: 27 February 2017, 2:25:48.914916 am UUID: e86b75db-f12d-4172-b640-4574322ea818 Ancestors: System-dtl.925 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against System-dtl.925 =============== Item was changed: ----- Method: SmalltalkImage>>renamedClass:from:to: (in category 'classes and traits') ----- renamedClass: aClass from: oldName to: newName "Inform Smalltalk that aClass has been renamed" (Array with: StartUpList with: ShutDownList) do:[:list | | index | + index := list indexOf: oldName. - index := list indexOf: oldName ifAbsent: [0]. index > 0 ifTrue: [list at: index put: newName]. ]. !

1 0

← Newer
1
2
3
4
5
6
7
8
...
21
Older →

Jump to page: