Packages December 2017

packages@lists.squeakfoundation.org

1 participants
92 discussions

The Trunk: CollectionsTests-eem.287.mcz
by commits＠source.squeak.org 22 Dec '17

22 Dec '17

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.287.mcz ==================== Summary ==================== Name: CollectionsTests-eem.287 Author: eem Time: 22 December 2017, 2:14:32.454096 am UUID: 4ae7ecb8-a1b6-474b-a90a-b35d04536b8a Ancestors: CollectionsTests-eem.286 Fix ByteArrayTest>>testFallbackReplaceFromToWith =============== Diff against CollectionsTests-eem.286 =============== Item was changed: ----- Method: ByteArrayTest>>testFallbackReplaceFromToWith (in category 'testing') ----- testFallbackReplaceFromToWith | teststring ba sz cm | + teststring := 'Test string' asByteArray. + sz := teststring byteSize. - teststring := 'Test string'. - sz := 'Test string' byteSize. ba := ByteArray new: sz. cm := SequenceableCollection compiledMethodAt: #replaceFrom:to:with:startingAt:. self shouldnt: [cm valueWithReceiver: ba arguments: {1. sz. teststring. 1}] raise: Exception description: 'Primitive 105 should be optional for ByteArray' !

1 0

The Trunk: System-tpr.991.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.991.mcz ==================== Summary ==================== Name: System-tpr.991 Author: tpr Time: 21 December 2017, 12:28:58.277846 pm UUID: 9d4fc5f3-acd3-4406-a00e-7e61a91b62bc Ancestors: System-mt.990 vm/image name related clean ups =============== Diff against System-mt.990 =============== Item was changed: ----- Method: FileDirectory class>>setDefaultDirectory: (in category '*System-Files') ----- setDefaultDirectory: directoryName "Initialize the default directory to the directory supplied. This method is called when the image starts up." | dirName | DirectoryClass := self activeDirectoryClass. + "There doesn't seem to be any really good reason to use the FilePath conversion stuff here; after all, this method gets sent after having read the image path and explicitly converting it" dirName := (FilePath pathName: directoryName) asSqueakPathName. [dirName endsWith: self slash] whileTrue:[ dirName := dirName copyFrom: 1 to: dirName size - self slash size. ]. DefaultDirectory := self on: dirName.! Item was changed: ----- Method: SecurityManager>>secureUserDirectory (in category 'accessing') ----- secureUserDirectory "SecurityManager default secureUserDirectory" | dir | dir := self primSecureUserDirectory. ^ dir ifNil: [FileDirectory default pathName] + ifNotNil: [dir vmPathToSqueakPath]! - ifNotNil: [(FilePath pathName: dir isEncoded: true) asSqueakPathName]! Item was changed: ----- Method: SecurityManager>>untrustedUserDirectory (in category 'accessing') ----- untrustedUserDirectory "SecurityManager default untrustedUserDirectory" | dir | dir := self primUntrustedUserDirectory. ^ dir ifNil: [FileDirectory default pathName] + ifNotNil: [dir vmPathToSqueakPath]! - ifNotNil: [(FilePath pathName: dir isEncoded: true) asSqueakPathName]! Item was changed: ----- Method: SmalltalkImage>>imageName (in category 'image, changes names') ----- imageName "Answer the full path name for the current image." "Smalltalk imageName" + ^ self primImageName vmPathToSqueakPath - | str | - str := self primImageName. - ^ (FilePath pathName: str isEncoded: true) asSqueakPathName. ! Item was changed: ----- Method: SmalltalkImage>>imageName: (in category 'image, changes names') ----- imageName: newName "Set the the full path name for the current image. All further snapshots will use this." + self primImageName: newName asVmPathName. - | encoded | - encoded := (FilePath pathName: newName isEncoded: false) asVmPathName. - self primImageName: encoded. ! Item was changed: ----- Method: SmalltalkImage>>vmFileName (in category 'command line') ----- vmFileName "Answer the absolute file name of the the Smalltalk virtual machine" "Smalltalk vmFileName" + ^ self primVmFileName vmPathToSqueakPath - ^ (FilePath pathName: (self primVmFileName) isEncoded: true) asSqueakPathName. ! Item was changed: ----- Method: SmalltalkImage>>vmPath (in category 'command line') ----- vmPath + "Answer the path for the directory containing the Smalltalk virtual machine, making sure to convert the vm string to a Squeak string as required." - "Answer the path for the directory containing the Smalltalk virtual machine. Return the empty string if this primitive is not implemented." "Smalltalk vmPath" + ^self primVmPath vmPathToSqueakPath - ^ (FilePath pathName: (self primVmPath) isEncoded: true) asSqueakPathName. !

1 0

The Trunk: Morphic-mt.1383.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1383.mcz ==================== Summary ==================== Name: Morphic-mt.1383 Author: mt Time: 21 December 2017, 9:28:24.688535 pm UUID: fb18b808-6654-884a-a1cf-d00df8f2755d Ancestors: Morphic-mt.1382 Fixes a rare bug in text selections. NewParagraph >> #selectionRectsFrom:to: did not honor the contract as of NewParagraph >> #lineIndexOfCharacterIndex:, which is never use a line index < 1. =============== Diff against Morphic-mt.1382 =============== Item was changed: ----- Method: NewParagraph>>selectionRectsFrom:to: (in category 'selection') ----- selectionRectsFrom: characterBlock1 to: characterBlock2 "Return an array of rectangles representing the area between the two character blocks given as arguments." | line1 line2 rects cb1 cb2 w | characterBlock1 <= characterBlock2 ifTrue: [cb1 := characterBlock1. cb2 := characterBlock2] ifFalse: [cb2 := characterBlock1. cb1 := characterBlock2]. cb1 = cb2 ifTrue: [w := self caretWidth. ^ Array with: (cb1 topLeft - (w@0) corner: cb1 bottomLeft + ((w+1)@0))]. line1 := self lineIndexOfCharacterIndex: cb1 stringIndex. line2 := self lineIndexOfCharacterIndex: cb2 stringIndex. cb1 top = (lines at: line1) top ifFalse: ["a word did not fit on prev line - start selection on prev line" + line1 := line1 - 1 max: 1]. - line1 := line1 - 1]. line1 = line2 ifTrue: [^ Array with: (cb1 topLeft corner: cb2 bottomRight)]. rects := OrderedCollection new. rects addLast: (cb1 topLeft corner: (lines at: line1) bottomRight). line1+1 to: line2-1 do: [ :i | | line | line := lines at: i. (line left = rects last left and: [ line right = rects last right ]) ifTrue: [ "new line has same margins as old one -- merge them, so that the caller gets as few rectangles as possible" | lastRect | lastRect := rects removeLast. rects add: (lastRect bottom: line bottom) ] ifFalse: [ "differing margins; cannot merge" rects add: line rectangle ] ]. rects addLast: ((lines at: line2) topLeft corner: cb2 bottomLeft). ^ rects!

1 0

The Trunk: ToolBuilder-MVC-tpr.51.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.51.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-tpr.51 Author: tpr Time: 21 December 2017, 12:16:12.950398 pm UUID: 88429193-fa3e-40d3-ab97-76a522fa74e6 Ancestors: ToolBuilder-MVC-tpr.50 delete obsolete version =============== Diff against ToolBuilder-MVC-tpr.50 =============== Item was removed: - ----- Method: MVCUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- - filenameSaverRequest: queryString initialAnswer: defaultAnswer - "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" - "Note that this is a trulyawful message name but I can't think of a better one right now" - "MVC has to stick with the boring way of doing it" - ^self request: queryString initialAnswer: defaultAnswer - !

1 0

The Trunk: Tools-tpr.781.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.781.mcz ==================== Summary ==================== Name: Tools-tpr.781 Author: tpr Time: 21 December 2017, 12:12:06.862491 pm UUID: aff0d926-0733-4bdb-b10a-cd95a4ca7ee9 Ancestors: Tools-tpr.780 Class comment fr DirectoryChooser, couple of improvements =============== Diff against Tools-tpr.780 =============== Item was changed: FileAbstractSelectionDialog subclass: #DirectoryChooserDialog instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tools-FileDialogs'! + + !DirectoryChooserDialog commentStamp: 'tpr 12/21/2017 11:32' prior: 0! + A DirectoryChooserDialog is a modal dialog to allow choosing a directory. The full directory name is returned, or nil if no selection was made. + + Normal usage would be + myDirname := DirectoryChooserDialog openOn: myApplicationDefaultDirectory label: 'Choose the directory to use' + ! Item was added: + ----- Method: DirectoryChooserDialog class>>openOn:label: (in category 'instance creation') ----- + openOn: aDirectory label: labelString + "open a directory chooser starting with aDirectory" + + ^DirectoryChooserDialog new + directory: aDirectory; + message: labelString; + getUserResponse! Item was added: + ----- Method: DirectoryChooserDialog>>initialExtent (in category 'toolbuilder') ----- + initialExtent + "Since this is a single list it can be a bit narrower than a FileChooserDialog" + + ^300@400! Item was added: + ----- Method: FileChooserDialog class>>openOnPattern:label: (in category 'instance creation') ----- + openOnPattern: patternList label: messageString + "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern" + + ^self new + pattern: patternList; + message: messageString; + getUserResponse!

1 0

The Trunk: CollectionsTests-eem.286.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.286.mcz ==================== Summary ==================== Name: CollectionsTests-eem.286 Author: eem Time: 21 December 2017, 8:44:26.564583 am UUID: 3badd38f-ad90-415b-9e0f-205a1291c253 Ancestors: CollectionsTests-nice.285 Add out-of-bounds tests to the non-byte unsigned integer array tests. =============== Diff against CollectionsTests-nice.285 =============== Item was added: + ----- Method: DoubleByteArrayTest>>testAtOutOfBounds (in category 'testing') ----- + testAtOutOfBounds + "self debug: #testAtOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(DoubleByteArray with: 0) at: 2] + raise: Error. + self + should: [(DoubleByteArray with: 0) at: -1] + raise: Error]! Item was added: + ----- Method: DoubleByteArrayTest>>testAtPutOutOfBounds (in category 'testing') ----- + testAtPutOutOfBounds + "self debug: #testAtPutOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(DoubleByteArray with: 0) at: 2 put: 1] + raise: Error. + self + should: [(DoubleByteArray with: 0) at: -1 put: 1] + raise: Error]! Item was added: + ----- Method: DoubleWordArrayTest>>testAtOutOfBounds (in category 'testing') ----- + testAtOutOfBounds + "self debug: #testAtOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(DoubleWordArray with: 0) at: 2] + raise: Error. + self + should: [(DoubleWordArray with: 0) at: -1] + raise: Error]! Item was added: + ----- Method: DoubleWordArrayTest>>testAtPutOutOfBounds (in category 'testing') ----- + testAtPutOutOfBounds + "self debug: #testAtPutOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(DoubleWordArray with: 0) at: 2 put: 1] + raise: Error. + self + should: [(DoubleWordArray with: 0) at: -1 put: 1] + raise: Error]! Item was added: + ----- Method: WordArrayTest>>testAtOutOfBounds (in category 'testing') ----- + testAtOutOfBounds + "self debug: #testAtOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(WordArray with: 0) at: 2] + raise: Error. + self + should: [(WordArray with: 0) at: -1] + raise: Error]! Item was added: + ----- Method: WordArrayTest>>testAtPutOutOfBounds (in category 'testing') ----- + testAtPutOutOfBounds + "self debug: #testAtPutOutOfBounds" + "Do the test more than once to make sure the jitted code is tested." + 1 to: 5 do: + [:iteration| + self + should: [(WordArray with: 0) at: 2 put: 1] + raise: Error. + self + should: [(WordArray with: 0) at: -1 put: 1] + raise: Error]!

1 0

The Trunk: Morphic-mt.1382.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1382.mcz ==================== Summary ==================== Name: Morphic-mt.1382 Author: mt Time: 21 December 2017, 9:59:30.675674 am UUID: 0c6a96d1-6bac-9848-bfa1-faced8611cb6 Ancestors: Morphic-mt.1381 Small fix considering text selection after text-drag cancel. Try a different offset for drag-transfer morphs. Let's see if we can point the dragged morphs more easily now. =============== Diff against Morphic-mt.1381 =============== Item was changed: ----- Method: TextMorph>>startDrag: (in category 'event handling') ----- startDrag: evt + self removeProperty: #waitingForTextDrag. + [evt hand grabMorph: (TransferMorph withPassenger: self selection from: self)] ensure: [evt hand releaseMouseFocus: self].! Item was changed: ----- Method: TextMorphForEditView>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: aTransferMorph event: evt "Accept a text to be inserted at the event/cursor position. Either remove or keep the source text depending on the transfer morph's copy state." - self removeProperty: #waitingForTextDrag. - self handleInteraction: [ aTransferMorph shouldCopy ifFalse: [(aTransferMorph source respondsTo: #editor) ifTrue: [aTransferMorph source editor destructiveBackWord]]. self editor addText: aTransferMorph passenger asText event: evt] fromEvent: evt. evt hand newKeyboardFocus: self.! Item was changed: ----- Method: TransferMorph>>aboutToBeGrabbedBy: (in category 'dropping/grabbing') ----- aboutToBeGrabbedBy: aHand "The receiver is being grabbed by a hand. Perform necessary adjustments (if any) and return the actual morph that should be added to the hand." "Since this morph has been initialized automatically with bounds origin 0@0, we have to move it to aHand position." super aboutToBeGrabbedBy: aHand. + self align: self fullBounds topLeft with: aHand position + (aHand extent // 3). - self align: self fullBounds bottomLeft with: aHand position. aHand newKeyboardFocus: self.!

1 0

The Trunk: Morphic-mt.1381.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1381.mcz ==================== Summary ==================== Name: Morphic-mt.1381 Author: mt Time: 21 December 2017, 9:38:42.096231 am UUID: 321085c7-e49e-5448-a92d-750a4024ff5f Ancestors: Morphic-mt.1380 Makes TransferMorph using UI themes. =============== Diff against Morphic-mt.1380 =============== Item was changed: ----- Method: Object>>asDraggableMorph (in category '*morphic') ----- asDraggableMorph "Converts the receiver into a Morph suitable for dragging" ^(StringMorph contents: ( (self respondsTo: #dragLabel) ifTrue:[self dragLabel] ifFalse:[self printString])) + color: ((self userInterfaceTheme get: #textColor for: #TransferMorph) ifNil: [Color black]); + font: ((self userInterfaceTheme get: #font for: #TransferMorph) ifNil: [TextStyle defaultFont]) - color: Color white; yourself! Item was changed: ----- Method: Text>>asDraggableMorph (in category '*Morphic-converting') ----- asDraggableMorph + + ^ self copy + addAttribute: (TextFontReference toFont: ((self userInterfaceTheme get: #font for: #TransferMorph) ifNil: [TextStyle defaultFont])); + asMorph! - ^ self asMorph! Item was added: + ----- Method: TransferMorph>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + super applyUserInterfaceTheme. + self setDefaultParameters.! Item was removed: - ----- Method: TransferMorph>>defaultColor (in category 'initialization') ----- - defaultColor - "answer the default color/fill style for the receiver" - ^ Color blue alpha: 0.4! Item was changed: ----- Method: TransferMorph>>initialize (in category 'initialization') ----- initialize super initialize. self changeTableLayout; listDirection: #leftToRight; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 3; cellInset: 3; wrapCentering: #center; cellPositioning: #leftCenter; setProperty: #indicateKeyboardFocus toValue: #never. self doMove. self on: #keyStroke send: #keyStroke: to: self. self on: #keyUp send: #updateFromUserInputEvent: to: self. + self on: #keyDown send: #updateFromUserInputEvent: to: self. + + self setDefaultParameters.! - self on: #keyDown send: #updateFromUserInputEvent: to: self.! Item was changed: ----- Method: TransferMorph>>passenger: (in category 'accessing') ----- passenger: anObject passenger := anObject. self removeAllMorphs; addMorph: passenger asDraggableMorph; + updateCopyIcon; + setDefaultParameters.! - updateCopyIcon.! Item was added: + ----- Method: TransferMorph>>setDefaultParameters (in category 'initialization') ----- + setDefaultParameters + + self + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]); + borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]); + color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]); + cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]). + + self updateGradient.! Item was added: + ----- Method: TransferMorph>>updateGradient (in category 'updating') ----- + updateGradient + + | cc fill | + + MenuMorph gradientMenu ifFalse: [^ self]. + + self fullBounds. + + cc := self color. + fill := GradientFillStyle ramp: { + 0.0 -> Color white. + 0.10 -> (cc mixed: 0.5 with: Color white). + 0.5 -> cc. + 0.8 -> cc twiceDarker}. + fill + origin: self topLeft; + direction: 0@self height. + self fillStyle: fill.!

1 0

The Trunk: System-mt.990.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.990.mcz ==================== Summary ==================== Name: System-mt.990 Author: mt Time: 21 December 2017, 9:36:40.491231 am UUID: 3ee22422-e98a-d74b-a567-e1797e988900 Ancestors: System-dtl.989 Provide UI theme specs for drag-transfer-morphs derived from balloon morphs. =============== Diff against System-dtl.989 =============== Item was changed: ----- Method: SqueakTheme class>>addDialogs: (in category 'instance creation') ----- addDialogs: theme "self create apply." theme set: #borderColor for: #DialogWindow to: Color gray; set: #borderWidth for: #DialogWindow to: 1; set: #borderStyle for: #DialogWindow to: BorderStyle default; set: #color for: #DialogWindow to: Color white; set: #titleBorderColor for: #DialogWindow to: Color gray; set: #titleBorderWidth for: #DialogWindow to: 0; set: #titleBorderStyle for: #DialogWindow to: BorderStyle default; set: #titleColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78); set: #titleFont for: #DialogWindow to: [Preferences windowTitleFont]; set: #titleTextColor for: #DialogWindow to: Color black; set: #font for: #DialogWindow to: [Preferences standardSystemFont]; set: #textColor for: #DialogWindow to: Color black; set: #okColor for: #DialogWindow to: (Color r: 0.49 g: 0.749 b: 0.49); set: #cancelColor for: #DialogWindow to: (Color r: 1 g: 0.6 b: 0.588); set: #buttonColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78) twiceLighter; set: #selectionModifier for: #DialogWindow to: [ [:c | Color orange muchLighter ] ]. "The List Chooser is a dialog, too." theme derive: #okColor for: #ListChooser from: #DialogWindow; derive: #cancelColor for: #ListChooser from: #DialogWindow; set: #addColor for: #ListChooser to: Color blue muchLighter; set: #disabledColor for: #ListChooser to: Color gray. "And the mulitple list chooser." theme derive: #okColor for: #ListMultipleChooser from: #DialogWindow; derive: #cancelColor for: #ListMultipleChooser from: #DialogWindow. "And the system progress bar." theme derive: #borderColor for: #SystemProgressMorph from: #MenuMorph; derive: #borderWidth for: #SystemProgressMorph from: #MenuMorph; derive: #borderStyle for: #SystemProgressMorph from: #MenuMorph; derive: #color for: #SystemProgressMorph from: #MenuMorph; derive: #font for: #SystemProgressMorph from: #MenuItemMorph; derive: #textColor for: #SystemProgressMorph from: #MenuItemMorph; set: #borderColor for: #SystemProgressBarMorph to: Color transparent; set: #borderWidth for: #SystemProgressBarMorph to: 0; set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default; set: #color for: #SystemProgressBarMorph to: (Color r: 0.977 g: 0.977 b: 0.977); set: #barColor for: #SystemProgressBarMorph to: (Color r: 0.72 g: 0.72 b: 0.9). "And the balloon morphs." theme set: #borderColor for: #NewBalloonMorph to: (Color r: 0.46 g: 0.46 b: 0.353); set: #borderWidth for: #NewBalloonMorph to: 1; set: #color for: #NewBalloonMorph to:(Color r: 0.92 g: 0.92 b: 0.706); set: #font for: #NewBalloonMorph to: [Preferences standardBalloonHelpFont]; derive: #textColor for: #NewBalloonMorph from: #PluggableButtonMorph. theme derive: #borderColor for: #BalloonMorph from: #NewBalloonMorph; set: #borderWidth for: #BalloonMorph to: 0; derive: #color for: #BalloonMorph from: #NewBalloonMorph; derive: #font for: #BalloonMorph from: #NewBalloonMorph; + derive: #textColor for: #BalloonMorph from: #NewBalloonMorph. + + "And the transfer morphs." + theme + derive: #borderColor for: #TransferMorph from: #NewBalloonMorph; + derive: #borderWidth for: #TransferMorph from: #NewBalloonMorph; + derive: #color for: #TransferMorph from: #NewBalloonMorph; + derive: #font for: #TransferMorph from: #NewBalloonMorph; + derive: #textColor for: #TransferMorph from: #NewBalloonMorph. ! - derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.!

1 0

The Trunk: Morphic-mt.1380.mcz
by commits＠source.squeak.org 21 Dec '17

21 Dec '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1380.mcz ==================== Summary ==================== Name: Morphic-mt.1380 Author: mt Time: 21 December 2017, 9:05:08.079231 am UUID: a78fcc1d-dbf1-0c49-a445-df9f4834bbaf Ancestors: Morphic-mt.1379 Removes the hack used for text dropping. Not necessary anymore due to the latest fix in PluggableTextMorphPlus. =============== Diff against Morphic-mt.1379 =============== Item was changed: ----- Method: TextMorphForEditView>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: aTransferMorph event: evt "Accept a text to be inserted at the event/cursor position. Either remove or keep the source text depending on the transfer morph's copy state." self removeProperty: #waitingForTextDrag. self handleInteraction: [ aTransferMorph shouldCopy ifFalse: [(aTransferMorph source respondsTo: #editor) ifTrue: [aTransferMorph source editor destructiveBackWord]]. self editor addText: aTransferMorph passenger asText event: evt] fromEvent: evt. + + evt hand newKeyboardFocus: self.! - - self flag: #hack. "mt: Shout background styling restores the selection, which interferes here. *sigh*" - self editView instVarNamed: #selectionInterval put: nil. - (aTransferMorph source respondsTo: #editView) - ifTrue: [aTransferMorph source editView instVarNamed: #selectionInterval put: nil.]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2017