Packages February 2017

packages@lists.squeakfoundation.org

1 participants
69 discussions

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

27 Feb '17

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.187.mcz ==================== Summary ==================== Name: Network-ul.187 Author: ul Time: 27 February 2017, 2:23:35.659844 am UUID: 6bb5fee1-2a6c-45d5-98b2-5dae6e7f122c Ancestors: Network-eem.186 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Network-eem.186 =============== Item was changed: ----- Method: MailAddressTokenizer>>nextComment (in category 'tokenizing') ----- nextComment | start nestLevel paren | start := pos. pos := pos + 1. nestLevel := 1. [ nestLevel > 0 ] whileTrue: [ + pos := text indexOfAnyOf: self class parenthesesSet startingAt: pos. - pos := text indexOfAnyOf: self class parenthesesSet startingAt: pos ifAbsent: [ 0 ]. pos = 0 ifTrue: [ self error: 'unterminated comment. ie, more (''s than )''s' ]. paren := self nextChar. paren = $( ifTrue: [ nestLevel := nestLevel + 1 ] ifFalse: [ nestLevel := nestLevel - 1 ]]. ^ MailAddressToken type: #Comment text: (text copyFrom: start to: pos - 1)! Item was changed: ----- Method: MailAddressTokenizer>>nextDomainLiteral (in category 'tokenizing') ----- nextDomainLiteral | start end | start := pos. + end := text indexOf: $] startingAt: start. - end := text indexOf: $] startingAt: start ifAbsent: [ 0 ]. end = 0 ifTrue: [ "not specified" self error: 'saw [ without a matching ]' ]. pos := end+1. ^MailAddressToken type: #DomainLiteral text: (text copyFrom: start to: end)! Item was changed: ----- Method: SocketStream>>upTo:limit: (in category 'stream in') ----- upTo: aCharacterOrByte limit: nBytes "Return data up to, but not including given character or byte. If the character is not in the stream, or not found within nBytes answer the available contents of the stream" | target index result searchedSoFar | "Deal with ascii vs. binary" self isBinary ifTrue:[target := aCharacterOrByte asInteger] ifFalse:[target := aCharacterOrByte asCharacter]. "Look in the current inBuffer first" + index := inBuffer indexOf: target startingAt: lastRead + 1. - index := inBuffer indexOf: target startingAt: lastRead + 1 ifAbsent:[0]. (index > 0 and: [(index + 1) <= inNextToWrite]) ifTrue: ["found it" result := self nextInBuffer: index - lastRead - 1. self skip: 1. ^ result ]. [searchedSoFar := self inBufferSize. "Receive more data" self receiveData. "We only get recentlyRead = 0 in the case of a non-signaling socket close." recentlyRead > 0] whileTrue:[ "Data begins at lastRead + 1, we add searchedSoFar as offset." + index := inBuffer indexOf: target startingAt: (lastRead + searchedSoFar + 1). - index := inBuffer indexOf: target - startingAt: (lastRead + searchedSoFar + 1) - ifAbsent:[0]. (index > 0 and: [(index + 1) <= inNextToWrite]) ifTrue: ["found it" result := self nextInBuffer: index - lastRead - 1. self skip: 1. ^ result ]. "Check if we've exceeded the max. amount" (nBytes notNil and:[inNextToWrite - lastRead > nBytes]) ifTrue:[^self nextAllInBuffer]. ]. "not found and (non-signaling) connection was closed" ^self nextAllInBuffer!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-ul.22.mcz ==================== Summary ==================== Name: MultilingualTests-ul.22 Author: ul Time: 27 February 2017, 2:23:05.817077 am UUID: 156e1f67-293a-4e28-aa19-d6b47c66f543 Ancestors: MultilingualTests-pre.21 - added a few lines to help debugging the failing cases in #testLineEndConversion =============== Diff against MultilingualTests-pre.21 =============== Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConversion (in category 'testing') ----- testLineEndConversion | failures | fileName := 'foolinendconversion.txt'. failures := OrderedCollection new. TextConverter allSubclassesDo: [ :textConverterClass | textConverterClass encodingNames ifNotEmpty: [ #(cr lf crlf) do: [ :lineEndConvention | self testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: [ :expectedResult :result | failures add: { textConverterClass. lineEndConvention. expectedResult. result } ] ] ] ]. + self assert: failures isEmpty. + "The code below is here to help you see why those cases fail" + failures do: [ :failure | + self + testLineEndConvention: failure second + withConverter: failure first + ifFail: [ :expectedResult :result | self halt ] ]! - self assert: failures isEmpty!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.202.mcz ==================== Summary ==================== Name: MorphicExtras-ul.202 Author: ul Time: 27 February 2017, 2:20:59.716292 am UUID: 5f9ce28c-9742-4cf9-9907-b516125debb8 Ancestors: MorphicExtras-cmm.201 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against MorphicExtras-cmm.201 =============== Item was changed: ----- Method: BookMorph>>pageNumberOf: (in category 'accessing') ----- pageNumberOf: aMorph "Modified so that if the page IS in memory, other pages don't have to be brought in. (This method may wrongly say a page is not here if pages has a tombstone (MorphObjectOut) and that tombstone would resolve to an object already in this image. This is an unlikely case, and callers just have to tolerate it.)" + ^ pages identityIndexOf: aMorph - ^ pages identityIndexOf: aMorph ifAbsent: [0] ! Item was changed: ----- Method: CommandHistory>>historyIndexOfLastCommand (in category 'command history') ----- historyIndexOfLastCommand "Answer which position of the CommandHistory list is occupied by the LastCommand" + ^ history indexOf: lastCommand! - ^ history indexOf: lastCommand ifAbsent: [0]!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1323.mcz ==================== Summary ==================== Name: Morphic-ul.1323 Author: ul Time: 27 February 2017, 2:19:54.493351 am UUID: 61ac3aed-c91d-455c-a890-7a5a8eeb4fb8 Ancestors: Morphic-eem.1322 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Morphic-eem.1322 =============== Item was changed: ----- Method: Editor>>beginningOfParagraph: (in category 'private') ----- beginningOfParagraph: position ^ (self string lastIndexOf: Character cr + startingAt: position) + 1.! - startingAt: position - ifAbsent: [ 0 ]) + 1.! Item was changed: ----- Method: FontChooserTool>>selectedFontIndex (in category 'font list') ----- selectedFontIndex | font textStyleName family | selectedFontIndex ifNotNil: [^selectedFontIndex]. selectedFontIndex := 0. font := (getSelector isSymbol and:[target notNil]) ifTrue:[target perform: getSelector] ifFalse:[getSelector]. font ifNotNil:[ emphasis := font emphasis. pointSize := font pointSize. textStyleName := font textStyleName. family := self fontList detect:[:f | f = textStyleName] ifNone:[]. ]. + selectedFontIndex := self fontList indexOf: family. - selectedFontIndex := self fontList indexOf: family ifAbsent:[0]. self selectedFontIndex: selectedFontIndex. ^selectedFontIndex! Item was changed: ----- Method: Morph>>morphPreceding: (in category 'structure') ----- morphPreceding: aSubmorph "Answer the morph immediately preceding aSubmorph, or nil if none" + | index | + (index := submorphs indexOf: aSubmorph) > 1 ifTrue: [ + ^submorphs at: index - 1 ]. + ^nil! - | anIndex | - anIndex := submorphs indexOf: aSubmorph ifAbsent: [^ nil]. - ^ anIndex > 1 - ifTrue: - [submorphs at: (anIndex - 1)] - ifFalse: - [nil]! Item was changed: ----- Method: TextEditor>>cursorHome: (in category 'nonediting/nontyping keys') ----- cursorHome: aKeyboardEvent "Private - Move cursor from position in current line to beginning of current line. If control key is pressed put cursor at beginning of text" | string | string := paragraph text string. self moveCursor: [ :position | Preferences wordStyleCursorMovement ifTrue:[ (paragraph lines at:(paragraph lineIndexOfCharacterIndex: position)) first] ifFalse:[ (string lastIndexOfAnyOf: CharacterSet crlf + startingAt: position - 1) + 1]] - startingAt: position - 1 - ifAbsent:[0]) + 1]] forward: false event: aKeyboardEvent specialBlock: [:dummy | 1]. ^true! Item was changed: ----- Method: TextEditor>>encompassLine: (in category 'new selection') ----- encompassLine: anInterval "Return an interval that encompasses the entire line" | string left right | string := paragraph text string. + left := (string lastIndexOfAnyOf: CharacterSet crlf startingAt: anInterval first - 1) + 1. - left := (string lastIndexOfAnyOf: CharacterSet crlf startingAt: anInterval first - 1 ifAbsent:[0]) + 1. right := (string indexOfAnyOf: CharacterSet crlf startingAt: anInterval last + 1 ifAbsent: [string size + 1]) - 1. ^left to: right! Item was changed: ----- Method: TextEditor>>querySymbol: (in category 'typing/selecting keys') ----- querySymbol: aKeyboardEvent "Invoked by Ctrl-q to query the Symbol table and display alternate symbols." | hintText lastOffering offering | (self isTypingIn not or: [self history current type ~= #query]) ifTrue: [ self closeTypeIn. self openTypeIn. self selectPrecedingIdentifier. self closeTypeIn]. self openTypeInFor: #query. hintText := self history current contentsBefore string. hintText := hintText copyFrom: (hintText lastIndexOfAnyOf: Character separators, '#' + startingAt: hintText size) + 1 to: hintText size. - startingAt: hintText size ifAbsent: [0])+1 to: hintText size. self selectInvisiblyFrom: self history current intervalBefore first to: self stopIndex-1. lastOffering := self selection string. lastOffering := (lastOffering copyReplaceAll: ': ' with: ':') withBlanksTrimmed. "Only offer suggestions for not-empty tokens." hintText ifEmpty: [morph flash. self closeTypeIn. ^ true]. offering := Symbol thatStarts: hintText skipping: lastOffering. offering ifNil: [offering := Symbol thatStarts: hintText skipping: nil]. offering ifNil: [morph flash. self closeTypeIn. ^ true]. "Add some nice spacing to the suggestion." offering := offering copyReplaceAll: ':' with: ': '. offering last = Character space ifTrue: [offering := offering allButLast]. "Insert the suggestions. (Note that due to previous selection, things will be overwritten and not appended.)" self typeAhead nextPutAll: offering. ^ false! Item was changed: ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." | fileName stringToSave parentWindow labelToUse suggestedName | stringToSave := paragraph text string. stringToSave size = 0 ifTrue: [^self inform: 'nothing to save.']. parentWindow := model dependents detect: [:dep | dep isKindOf: SystemWindow] ifNone: [nil]. labelToUse := parentWindow ifNil: ['Untitled'] ifNotNil: [parentWindow label]. suggestedName := nil. #(#('Decompressed contents of: ' '.gz')) do: [:leaderTrailer | | lastIndex | "can add more here..." (labelToUse beginsWith: leaderTrailer first) ifTrue: [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. (labelToUse endsWith: leaderTrailer last) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] ifFalse: + [lastIndex := suggestedName lastIndexOf: $.. + lastIndex > 1 + ifTrue: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. - [lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. - (lastIndex = 0 or: [lastIndex = 1]) - ifFalse: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. suggestedName ifNil: [suggestedName := labelToUse , '.text']. fileName := UIManager default request: 'File name?' initialAnswer: suggestedName. fileName isEmptyOrNil ifFalse: [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]! Item was changed: ----- Method: TextMorph>>anchorMorph:at:type: (in category 'anchors') ----- anchorMorph: aMorph at: aPoint type: anchorType | relPt index newText block | aMorph owner == self ifTrue:[self removeMorph: aMorph]. aMorph textAnchorType: nil. aMorph relativeTextAnchorPosition: nil. self addMorphFront: aMorph. aMorph textAnchorType: anchorType. aMorph relativeTextAnchorPosition: nil. anchorType == #document ifTrue:[^self]. relPt := self transformFromWorld globalPointToLocal: aPoint. index := (self paragraph characterBlockAtPoint: relPt) stringIndex. newText := Text string: (String value: 1) attribute: (TextAnchor new anchoredMorph: aMorph). anchorType == #inline ifTrue:[ self paragraph replaceFrom: index to: index-1 with: newText displaying: false. ] ifFalse:[ index := index min: paragraph text size. + index := paragraph text string lastIndexOf: Character cr startingAt: index. - index := paragraph text string lastIndexOf: Character cr startingAt: index ifAbsent:[0]. block := paragraph characterBlockForIndex: index+1. aMorph relativeTextAnchorPosition: (relPt x - bounds left) @ (relPt y - block top ). self paragraph replaceFrom: index+1 to: index with: newText displaying: false. ]. self fit.!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.662.mcz ==================== Summary ==================== Name: Monticello-ul.662 Author: ul Time: 27 February 2017, 2:18:31.823715 am UUID: 807424ff-1828-4e04-94f8-331c71dc16fd Ancestors: Monticello-mva.661 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Monticello-mva.661 =============== Item was changed: ----- Method: String>>withLoadedPackageVersions (in category '*monticello') ----- withLoadedPackageVersions "Everywhere the receiver contains a package version in the format: PackageName-author.123 for which a version of that package is loaded in the image, answer a new String with each of those package versions changed to reflect the currently loaded version." | string | string := self. MCWorkingCopy allManagers do: [ : eachWorkingCopy | | start packageName | start := 1. packageName := eachWorkingCopy packageName. [ start := string findString: packageName startingAt: start. start > 0 and: [ string size > (start + packageName size + 4) ] ] whileTrue: [ | dot end versionName | dot := string indexOf: $. + startingAt: (end := start + packageName size). - startingAt: (end := start + packageName size) - ifAbsent: [ 0 ]. dot > 0 ifTrue: [ end := (dot + 1 to: string size) detect: [ : n | (string at: n) isDigit not ] ifNone: [ 0 ]. (end > (dot + 1) and: [ (dot + 1 to: end - 1) allSatisfy: [ : n | (string at: n) isDigit ] ]) ifTrue: [ versionName := string copyFrom: start to: end - 1. versionName asMCVersionName packageName = packageName ifTrue: [ string := string copyReplaceTokens: versionName with: eachWorkingCopy ancestors first name ] ] ifFalse: [ end := start + packageName size ] ]. start := end ] ]. ^ string!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1060.mcz ==================== Summary ==================== Name: Kernel-ul.1060 Author: ul Time: 27 February 2017, 2:16:28.275956 am UUID: e510449a-9899-41a3-9bc9-a41290fdc64e Ancestors: Kernel-tonyg.1059, Kernel-ul.1059 - omit ifAbsent from #index* sends when the default value, 0 would used - merged Kernel-ul.1059 =============== Diff against Kernel-tonyg.1059 =============== Item was changed: ----- Method: ClassDescription>>instVarIndexFor:ifAbsent: (in category 'instance variables') ----- instVarIndexFor: instVarName ifAbsent: aBlock "Answer the index of the named instance variable." | index | + index := instanceVariables + ifNil: [ 0 ] + ifNotNil: [ instanceVariables indexOf: instVarName ]. + index = 0 ifTrue: [ + ^superclass + ifNil: [ aBlock value ] + ifNotNil: [ superclass instVarIndexFor: instVarName ifAbsent: aBlock ] ]. + ^superclass + ifNil: [ index ] + ifNotNil: [ index + superclass instSize ]! - index := instanceVariables == nil - ifTrue: [0] - ifFalse: [instanceVariables indexOf: instVarName ifAbsent: [0]]. - index = 0 ifTrue: - [^superclass == nil - ifTrue: [aBlock value] - ifFalse: [superclass instVarIndexFor: instVarName ifAbsent: aBlock]]. - ^superclass == nil - ifTrue: [index] - ifFalse: [index + superclass instSize]! Item was changed: ----- Method: CompiledMethod>>getPreambleFrom:at: (in category 'source code management') ----- getPreambleFrom: aFileStream at: endPosition "This method is an ugly hack. This method assumes that source files have ASCII-compatible encoding and that preambles contain no non-ASCII characters." | chunkSize chunk | chunkSize := 160 min: endPosition. [ | index | chunk := aFileStream position: (endPosition - chunkSize + 1 max: 0); basicNext: chunkSize. + (index := chunk lastIndexOf: $!! startingAt: chunk size) ~= 0 ifTrue: [ - (index := chunk lastIndexOf: $!! startingAt: chunk size ifAbsent: 0) ~= 0 ifTrue: [ ^chunk copyFrom: index + 1 to: chunk size ]. chunkSize := chunkSize * 2. chunkSize <= endPosition ] whileTrue. ^chunk! Item was changed: ----- Method: CompiledMethodTrailer>>qCompress: (in category 'private') ----- qCompress: string "A very simple text compression routine designed for method temp names. Most common 11 chars get values 1-11 packed in one 4-bit nibble; the next most common get values 12-15 (2 bits) * 16 plus next nibble; unusual ones get three nibbles, the first being the escape nibble 0. Answer the write stream with compressed data inside" | utf8str stream oddNibble | string isEmpty ifTrue: [^self qCompress: ' ']. utf8str := string convertToEncoding: 'utf8'. stream := WriteStream on: (ByteArray new: utf8str size). oddNibble := nil. utf8str do: [:char | | ix | ix := 'ear tonsilcmbdfghjkpquvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345[]()' + indexOf: char. - indexOf: char ifAbsent: 0. (ix = 0 ifTrue: [{ 0. char asInteger // 16. char asInteger \\ 16 }] ifFalse: [ix <= 11 ifTrue: [{ ix }] ifFalse: [{ ix//16+12. ix\\16 }]]) do: [:nibble | oddNibble ifNotNil: [stream nextPut: oddNibble*16 + nibble. oddNibble := nil] ifNil: [oddNibble := nibble]]]. oddNibble ifNotNil: "4 = 'ear tonsil' indexOf: Character space" [stream nextPut: oddNibble * 16 + 4]. ^ stream ! Item was changed: ----- Method: False>>& (in category 'logical operations') ----- & aBoolean + "Evaluating conjunction -- answer false since receiver is false, but let the VM quickly check the type of the argument first." - "Evaluating conjunction -- answer false since receiver is false." + aBoolean ifFalse: [ ^false ]. + ^false! - ^self! Item was changed: ----- Method: False>>| (in category 'logical operations') ----- | aBoolean + "Evaluating disjunction (OR) -- could answer aBoolean since receiver is false, but let the VM quickly check the type of the argument instead." - "Evaluating disjunction (OR) -- answer with the argument, aBoolean." + aBoolean ifTrue: [ ^true ]. + ^false! - ^aBoolean! Item was changed: ----- Method: True>>& (in category 'logical operations') ----- & aBoolean + "Evaluating conjunction -- could answer aBoolean since receiver is true, but let the VM quickly check the type of the argument instead." - "Evaluating conjunction -- answer aBoolean since receiver is true." + aBoolean ifFalse: [ ^false ]. + ^true! - ^aBoolean! Item was changed: ----- Method: True>>| (in category 'logical operations') ----- | aBoolean + "Evaluating disjunction (OR) -- answer true since the receiver is true, but let the VM quickly check the type of the argument first." - "Evaluating disjunction (OR) -- answer true since the receiver is true." + aBoolean ifTrue: [ ^true ]. + ^true! - ^self!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1059.mcz ==================== Summary ==================== Name: Kernel-ul.1059 Author: ul Time: 11 February 2017, 3:00:22.370854 am UUID: b88b767b-b0d8-43ff-ba86-a19b11affe6d Ancestors: Kernel-ul.1058 - check the type of the argument of #& and #| of booleans =============== Diff against Kernel-ul.1058 =============== Item was changed: ----- Method: False>>& (in category 'logical operations') ----- & aBoolean + "Evaluating conjunction -- answer false since receiver is false, but let the VM quickly check the type of the argument first." - "Evaluating conjunction -- answer false since receiver is false." + aBoolean ifFalse: [ ^false ]. + ^false! - ^self! Item was changed: ----- Method: False>>| (in category 'logical operations') ----- | aBoolean + "Evaluating disjunction (OR) -- could answer aBoolean since receiver is false, but let the VM quickly check the type of the argument instead." - "Evaluating disjunction (OR) -- answer with the argument, aBoolean." + aBoolean ifTrue: [ ^true ]. + ^false! - ^aBoolean! Item was changed: ----- Method: True>>& (in category 'logical operations') ----- & aBoolean + "Evaluating conjunction -- could answer aBoolean since receiver is true, but let the VM quickly check the type of the argument instead." - "Evaluating conjunction -- answer aBoolean since receiver is true." + aBoolean ifFalse: [ ^false ]. + ^true! - ^aBoolean! Item was changed: ----- Method: True>>| (in category 'logical operations') ----- | aBoolean + "Evaluating disjunction (OR) -- answer true since the receiver is true, but let the VM quickly check the type of the argument first." - "Evaluating disjunction (OR) -- answer true since the receiver is true." + aBoolean ifTrue: [ ^true ]. + ^true! - ^self!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.369.mcz ==================== Summary ==================== Name: Graphics-ul.369 Author: ul Time: 27 February 2017, 2:11:11.506532 am UUID: 87cd9b87-4712-42c0-8aac-0c1095700248 Ancestors: Graphics-bf.368 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Graphics-bf.368 =============== Item was changed: ----- Method: ColorForm>>indexOfColor: (in category 'color manipulation') ----- indexOfColor: aColor "Return the index of aColor in my color array" self ensureColorArrayExists. + ^ colors indexOf: aColor! - ^ colors indexOf: aColor ifAbsent: [0]!

1 0

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

27 Feb '17

Levente Uzonyi uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-ul.41.mcz ==================== Summary ==================== Name: GetText-ul.41 Author: ul Time: 27 February 2017, 2:09:25.828444 am UUID: a5562ee7-7751-4503-92e7-c94a4999b222 Ancestors: GetText-tfel.40 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against GetText-tfel.40 =============== Item was changed: ----- Method: LanguageEditor>>selectNewerKeys (in category 'gui methods') ----- selectNewerKeys - | index | self deselectAllTranslation. + newerKeys do: [ :k | + | index | + (index := self translations indexOf: k) > 0 ifTrue: [ + self selectedTranslationsAt: index put: true ] ] - newerKeys do: [:k | - index := self translations indexOf: k ifAbsent: [0]. - index > 0 ifTrue: [ - self selectedTranslationsAt: index put: true - ]. - ]. !

1 0

The Trunk: EToys-ul.279.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.279.mcz ==================== Summary ==================== Name: EToys-ul.279 Author: ul Time: 27 February 2017, 2:06:51.332279 am UUID: 848b5ae7-df41-4c28-b99a-c19ff6ca7cb5 Ancestors: EToys-dtl.278 - omit ifAbsent from #index* sends when the default value 0 would used =============== Diff against EToys-dtl.278 =============== Item was changed: ----- Method: BookMorph>>pageNumberReport (in category '*Etoys-Squeakland-page controls') ----- pageNumberReport "Answer a string representing the page number." + ^ (pages indexOf: currentPage) printString, '/', pages size printString! - ^ (pages indexOf: currentPage ifAbsent: [0]) printString, '/', pages size printString! Item was changed: ----- Method: CategoryViewer>>nextCategory (in category 'categories') ----- nextCategory "Change the receiver to point at the category following the one currently seen" | aList anIndex newIndex already aChoice | aList := (scriptedPlayer categoriesForViewer: self) collect: [:aCatSymbol | self currentVocabulary categoryWordingAt: aCatSymbol]. already := self outerViewer ifNil: [#()] ifNotNil: [self outerViewer categoriesCurrentlyShowing]. + anIndex := aList indexOf: self currentCategory. - anIndex := aList indexOf: self currentCategory ifAbsent: [0]. newIndex := anIndex = aList size ifTrue: [1] ifFalse: [anIndex + 1]. [already includes: (aChoice := aList at: newIndex)] whileTrue: [newIndex := (newIndex \\ aList size) + 1]. self chooseCategoryWhoseTranslatedWordingIs: aChoice! Item was changed: ----- Method: Debugger>>preDebugNotifierContentsFrom: (in category '*Etoys-Squeakland-initialize') ----- preDebugNotifierContentsFrom: messageString | first second msg | ^ Preferences eToyFriendly ifFalse: [messageString] ifTrue: [ msg := messageString. msg ifNil: [msg := '']. first := second := 0. + first := msg indexOf: $\. + first > 0 ifTrue: [second := msg indexOf: $\ startingAt: first + 1]. - first := msg indexOf: $\ ifAbsent: [0]. - first > 0 ifTrue: [second := msg indexOf: $\ startingAt: first + 1 ifAbsent: [0]]. (first > 0 and: [second > 0]) ifTrue: [ 'An error has occurred in\{3} of {2}.\Fix your script(s), hit ''Abandon'' and try again.' translated withCRs format: {msg copyFrom: 1 to: first - 1. msg copyFrom: first + 1 to: second - 1. msg copyFrom: second + 1 to: msg size} ] ifFalse: [ 'An error has occurred; you should probably just hit ''abandon''. Sorry!!' translated ] ] ! Item was changed: ----- Method: KedamaSetColorComponentTile>>line1: (in category 'initialization') ----- line1: line1 | chopped label label2 tail headIndex | (line1 select: [:e | e = $:]) size >= 2 ifTrue: [^ self]. self removeAllMorphs. + headIndex := line1 indexOf: $: ifAbsent: [line1 indexOf: Character space]. - headIndex := line1 indexOf: $: ifAbsent: [line1 indexOf: Character space ifAbsent: [0]]. chopped := line1 copyFrom: 1 to: headIndex - 1. tail := line1 copyFrom: chopped size + 2 to: line1 size. label := StringMorph contents: (chopped) translated font: ScriptingSystem fontForTiles. label2 := StringMorph contents: tail translated font: ScriptingSystem fontForTiles. self addMorphBack: label. self addMorphBack: patchTile. self addMorphBack: label2. ! Item was changed: ----- Method: KedamaSetPixelValueTile>>line1: (in category 'tile protocol') ----- line1: line1 | chopped label label2 tail headIndex | (line1 select: [:e | e = $:]) size >= 2 ifTrue: [^ self]. self removeAllMorphs. + headIndex := line1 indexOf: $: ifAbsent: [line1 indexOf: Character space]. - headIndex := line1 indexOf: $: ifAbsent: [line1 indexOf: Character space ifAbsent: [0]]. chopped := line1 copyFrom: 1 to: headIndex - 1. tail := line1 copyFrom: chopped size + 2 to: line1 size. label := StringMorph contents: (chopped) font: ScriptingSystem fontForTiles. label2 := StringMorph contents: tail font: ScriptingSystem fontForTiles. self addMorphBack: label. self addMorphBack: patchTile. self addMorphBack: label2. ! Item was changed: ----- Method: Morph>>reassessBackgroundShape (in category '*Etoys-card in a stack') ----- reassessBackgroundShape "A change has been made which may affect the instance structure of the Card uniclass that holds the instance state, which can also be thought of as the 'card data'." "Caution: still to be done: the mechanism so that when a new instance variable is added, it gets initialized in all subinstances of the receiver's player, which are the cards of this shape. One needs to take into account here the instance variable names coming in; those that are unchanged should keep their values, but those that have newly arrived should obtain their default values from the morphs on whose behalf they are being maintained in the model" | requestedName | self isStackBackground ifFalse: [^Beeper beep]. "bulletproof against deconstruction" Cursor wait showWhile: [ | variableDocks takenNames sepDataMorphs sorted existing |variableDocks := OrderedCollection new. "This will be stored in the uniclass's class-side inst var #variableDocks" takenNames := OrderedCollection new. sepDataMorphs := OrderedCollection new. "fields, holders of per-card data" self submorphs do: [:aMorph | aMorph renderedMorph holdsSeparateDataForEachInstance ifTrue: [sepDataMorphs add: aMorph renderedMorph] ifFalse: ["look for buried fields, inside a frame" aMorph renderedMorph isShared ifTrue: [aMorph allMorphs do: [:mm | mm renderedMorph holdsSeparateDataForEachInstance ifTrue: [sepDataMorphs add: mm renderedMorph]]]]]. sorted := SortedCollection new sortBlock: [:a :b | (a valueOfProperty: #cardInstance) notNil]. "puts existing ones first" sorted addAll: sepDataMorphs. sorted do: [:aMorph | | docks | docks := aMorph variableDocks. "Each morph can request multiple variables. This complicates matters somewhat but creates a generality for Fabrk-like uses. Each spec is an instance of VariableDock, and it provides a point of departure for the negotiation between the PasteUp and its constitutent morphs" docks do: [:aVariableDock | | uniqueName | uniqueName := self player uniqueInstanceVariableNameLike: (requestedName := aVariableDock variableName) excluding: takenNames. uniqueName ~= requestedName ifTrue: [aVariableDock variableName: uniqueName. aMorph noteNegotiatedName: uniqueName for: requestedName]. takenNames add: uniqueName]. variableDocks addAll: docks]. existing := self player class instVarNames. variableDocks := (variableDocks asSortedCollection: [:dock1 :dock2 | | name2 name1 | name1 := dock1 variableName. name2 := dock2 variableName. + (existing indexOf: name1) - (existing indexOf: name1 ifAbsent: [0]) < (existing indexOf: name2 ifAbsent: [variableDocks size])]) asOrderedCollection. self player class setNewInstVarNames: (variableDocks collect: [:info | info variableName asString]). "NB: sets up accessors, and removes obsolete ones" self player class newVariableDocks: variableDocks]! Item was changed: ----- Method: QuickGuideMorph>>jPegOutDir: (in category 'write web pages') ----- jPegOutDir: fileDir "Write the current page of the current Guide as an image file on the directory" "Does it need to be showing?" | fName gn num qgh bk | qgh := self submorphOfClass: QuickGuideHolderMorph. bk := qgh submorphOfClass: BookMorph. + num := (bk pages indexOf: bk currentPage) printString. - num := (bk pages indexOf: bk currentPage ifAbsent: [0]) printString. gn := qgh guideName. fName := fileDir pathName, fileDir pathNameDelimiter asString, gn, '-', num, '.jpg'. currentPage imageForm writeJPEGfileNamed: fName. "need to go deeper??" ^ ''! Item was changed: ----- Method: StackMorph>>cardNumberOf: (in category 'accessing') ----- cardNumberOf: aPlayer "Answer the card-number of the given player, in the which-card-of-the-stack sense." + ^ self cards identityIndexOf: aPlayer! - ^ self cards identityIndexOf: aPlayer ifAbsent: [0]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2017