Packages November 2020

packages@lists.squeakfoundation.org

1 participants
61 discussions

The Trunk: Protocols-mt.77.mcz
by commits＠source.squeak.org 05 Nov '20

05 Nov '20

Marcel Taeumel uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-mt.77.mcz ==================== Summary ==================== Name: Protocols-mt.77 Author: mt Time: 5 November 2020, 4:24:06.587798 pm UUID: 5ed88b5e-03e7-6049-a383-c5a5e619e822 Ancestors: Protocols-mt.76 Complements System-mt.1190 =============== Diff against Protocols-mt.76 =============== Item was changed: ----- Method: ObjectWithDocumentation>>wording (in category 'accessing') ----- wording "Answer the receiver's wording" | wording | (wording := self propertyAt: #wording ifAbsent: [nil]) + ifNotNil: [^wording translatedInDomain: 'Etoys']. - ifNotNil: [^wording translatedInDomain: 'Etoys-Tiles' or: 'Etoys']. self initWordingAndDocumentation. ^self propertyAt: #wording ifAbsent: ['']!

1 0

The Trunk: System-mt.1190.mcz
by commits＠source.squeak.org 05 Nov '20

05 Nov '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1190.mcz ==================== Summary ==================== Name: System-mt.1190 Author: mt Time: 5 November 2020, 4:23:31.287798 pm UUID: 832d3d0e-dc06-a14f-ac49-d7dc709680ea Ancestors: System-mt.1189 Speeds up String >> #translated and locale switching as follows: - Only call #localeChanged(Gently) on classes that implement it, just like #cleanUp: - For the InternalTranslator, make translation-in-all-domains a no-op; 122µs -> 1.3µs - For the GetTextTranslator, make translation-in-all-domains fetch all available .mo files once, then directly enumerate that cache until a result is found; roughly 50µs -> 8µs - Avoid loading all .mo files on #localeChanged(Gently); only do that for translation-in-all-domains =============== Diff against System-mt.1189 =============== Item was added: + ----- Method: GetTextTranslator class>>addUserDefaultLocaleDir: (in category 'translation data layout') ----- + addUserDefaultLocaleDir: dir + "new dir will be put as first" + self userDefaultLocaleDirs addFirst: dir! Item was changed: ----- Method: GetTextTranslator class>>availableLanguageLocaleIDs (in category 'accessing') ----- availableLanguageLocaleIDs "GetTextTranslator availableLanguageLocaleIDs" | ids dirs localeDirForLang directoryNames | ids := Set new. dirs := Set new. + dirs addAll: self localeDirsForDomain. + dirs addAll: self userDefaultLocaleDirs. + dirs addAll: self systemDefaultLocaleDirs. - dirs addAll: LocaleDirsForDomain values. - dirs addAll: self defaultLocaleDirs. dirs do: [:dir | | localesDir | localesDir := FileDirectory on: dir. directoryNames := [localesDir directoryNames] on: InvalidDirectoryError do: [:e | #()]. directoryNames do: [:langDirName | | localeID | localeID := LocaleID posixName: langDirName. localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID). localeDirForLang ifNotNil: [ (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID]]. localeID hasParent ifTrue: [ localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID parent). localeDirForLang ifNotNil: [ (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID parent]]]. ]. ]. ^ids! Item was added: + ----- Method: GetTextTranslator class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [ + UserDefaultLocaleDirs := OrderedCollection new. + LocaleDirsForDomain := Dictionary new].! Item was removed: - ----- Method: GetTextTranslator class>>defaultLocaleDirs (in category 'translation data layout') ----- - defaultLocaleDirs - | dirs | - dirs := OrderedCollection new. - UserDefaultLocaleDirs ifNotNil: [dirs addAll: UserDefaultLocaleDirs]. - dirs addAll: self systemDefaultLocaleDirs. - ^dirs - ! Item was added: + ----- Method: GetTextTranslator class>>findAllMOsForLocaleID: (in category 'private') ----- + findAllMOsForLocaleID: id + + | relativePath path allMONames result | + relativePath := String streamContents: [:stream | + stream + nextPutAll: FileDirectory slash; + nextPutAll: (self langDirNameForLocaleID: id); + nextPutAll: FileDirectory slash]. + allMONames := TextDomainManager allKnownDomains + collect: [:each | each -> (self moNameForDomain: each)]. + result := OrderedCollection new. + self localeDirsDo: [:localeDir | + allMONames do: [:moName | + path := String streamContents: [:s | + s nextPutAll: localeDir; nextPutAll: relativePath; nextPutAll: moName value]. + ([FileDirectory default fileExists: path] on: InvalidDirectoryError do: [false]) + ifTrue: [result add: moName key -> path] ]]. + ^ result! Item was changed: ----- Method: GetTextTranslator class>>findMOForLocaleID:domain: (in category 'private') ----- findMOForLocaleID: id domain: aDomainName + + | relativePath path | + relativePath := String streamContents: [:stream | + stream + nextPutAll: FileDirectory slash; + nextPutAll: (self langDirNameForLocaleID: id); + nextPutAll: FileDirectory slash; + nextPutAll: (self moNameForDomain: aDomainName)]. + self + localeDirsForDomain: aDomainName + do: [:localeDir | + path := localeDir, relativePath. + ([FileDirectory default fileExists: path] on: InvalidDirectoryError do: [false]) + ifTrue: [^ path]]. + ^ nil! - | sepa langSubDir path | - sepa := FileDirectory slash. - langSubDir := self langDirNameForLocaleID: id. - (self localeDirsForDomain: aDomainName) - do: [:each | - path := each , sepa , langSubDir, sepa , (self moNameForDomain: aDomainName). - [(FileDirectory default fileExists: path) - ifTrue: [^path]] on: InvalidDirectoryError do: [:e | ^nil]]. - ^nil.! Item was added: + ----- Method: GetTextTranslator class>>getLocaleDirForDomain: (in category 'translation data layout') ----- + getLocaleDirForDomain: aDomainName + "returns registered localeDirectory for the textdomain. returns nil if not registered" + ^LocaleDirsForDomain at: aDomainName ifAbsent: [nil]! Item was removed: - ----- Method: GetTextTranslator class>>localeDirForDomain: (in category 'translation data layout') ----- - localeDirForDomain: aDomainName - "returns registered localeDirectory for the textdomain. returns nil if not registered" - ^LocaleDirsForDomain at: aDomainName ifAbsent: [nil]! Item was added: + ----- Method: GetTextTranslator class>>localeDirsDo: (in category 'translation data layout') ----- + localeDirsDo: workBlock + "Enumerates all locale directories, regardless of a specific text domain. Begin with domain-specific directories, then user-specific directories, finally system-specific directories." + + self localeDirsForDomain do: workBlock. + self userDefaultLocaleDirs do: workBlock. + self systemDefaultLocaleDirs do: workBlock.! Item was changed: + ----- Method: GetTextTranslator class>>localeDirsForDomain (in category 'accessing') ----- - ----- Method: GetTextTranslator class>>localeDirsForDomain (in category 'private') ----- localeDirsForDomain + + ^ LocaleDirsForDomain values! - ^LocaleDirsForDomain ifNil: [LocaleDirsForDomain := Dictionary new]! Item was removed: - ----- Method: GetTextTranslator class>>localeDirsForDomain: (in category 'translation data layout') ----- - localeDirsForDomain: aDomainName - "returns collection of locale directories for text domain. - This includes user defined one for the domain, user defaults and system defaults" - | dirs dir | - dirs := OrderedCollection new. - dir := self localeDirForDomain: aDomainName. - dir ifNotNil: [dirs add: dir]. - dirs addAll: self defaultLocaleDirs. - ^dirs! Item was added: + ----- Method: GetTextTranslator class>>localeDirsForDomain:do: (in category 'translation data layout') ----- + localeDirsForDomain: aDomainName do: workBlock + "Enumerates all locale directories for the text domain. Begin with domain-specific directories, then user-specific directories, finally system-specific directories." + + (self getLocaleDirForDomain: aDomainName) + ifNotNil: [:dir | workBlock value: dir]. + + self userDefaultLocaleDirs do: workBlock. + self systemDefaultLocaleDirs do: workBlock.! Item was changed: ----- Method: GetTextTranslator class>>privateStartUp (in category 'class initialization') ----- privateStartUp + self setSystemDefaultLocaleDirs. - self setupLocaleDirs. self availableLanguageLocaleIDs do: [ :localeID | NaturalLanguageTranslator translators at: localeID put: (self newForLocaleID: localeID). ]! Item was removed: - ----- Method: GetTextTranslator class>>setLocaleDir:forDoamin: (in category 'translation data layout') ----- - setLocaleDir: path forDoamin: aDomainName - self LocaleDirsForDomain - at: aDomainName - put: path.! Item was added: + ----- Method: GetTextTranslator class>>setLocaleDirForDomain:to: (in category 'translation data layout') ----- + setLocaleDirForDomain: aDomainName to: aPath + + LocaleDirsForDomain at: aDomainName put: aPath.! Item was added: + ----- Method: GetTextTranslator class>>setSystemDefaultLocaleDirs (in category 'translation data layout') ----- + setSystemDefaultLocaleDirs + + | dirs sepa localesDirName | + sepa := FileDirectory slash. + SystemDefaultLocaleDirs := nil. + dirs := self systemDefaultLocaleDirs. + localesDirName := 'locale'. + { Smalltalk imagePath. Smalltalk vmPath } do: [:path | + dirs addIfNotPresent: ((path endsWith: sepa) + ifTrue: [path, localesDirName] + ifFalse: [path, sepa, localesDirName])].! Item was removed: - ----- Method: GetTextTranslator class>>setupLocaleDirs (in category 'translation data layout') ----- - setupLocaleDirs - | dirs sepa localesDirName | - sepa := FileDirectory slash. - SystemDefaultLocaleDirs := nil. - dirs := self systemDefaultLocaleDirs. - localesDirName := 'locale'. - dirs add: (Smalltalk imagePath) , sepa , localesDirName. - dirs add: (Smalltalk vmPath) , sepa , localesDirName. - ^dirs! Item was changed: + ----- Method: GetTextTranslator class>>systemDefaultLocaleDirs (in category 'accessing') ----- - ----- Method: GetTextTranslator class>>systemDefaultLocaleDirs (in category 'translation data layout') ----- systemDefaultLocaleDirs ^SystemDefaultLocaleDirs ifNil: [SystemDefaultLocaleDirs := OrderedCollection new] ! Item was changed: + ----- Method: GetTextTranslator class>>userDefaultLocaleDirs (in category 'accessing') ----- - ----- Method: GetTextTranslator class>>userDefaultLocaleDirs (in category 'translation data layout') ----- userDefaultLocaleDirs ^UserDefaultLocaleDirs ifNil: [UserDefaultLocaleDirs := OrderedCollection new] ! Item was changed: ----- Method: GetTextTranslator>>initialize (in category 'initialize-release') ----- initialize + + super initialize. moFiles := Dictionary new.! Item was removed: - ----- Method: GetTextTranslator>>loadMOFiles (in category 'accessing') ----- - loadMOFiles - TextDomainManager allKnownDomains - do: [:domainName | - self moFileForDomain: domainName - ].! Item was added: + ----- Method: GetTextTranslator>>loadMOFilesForAllDomains (in category 'private') ----- + loadMOFilesForAllDomains + + moFiles := Dictionary new. + moFiles at: #* put: OrderedCollection new. + + (self class findAllMOsForLocaleID: self localeID) do: [:moName | + | moFile | + moFile := MOFile new load: moName value localeID: self localeID. + moFiles at: moName key put: moFile. + (moFiles at: #*) add: moFile]. + + ^ moFiles at: #*! Item was added: + ----- Method: GetTextTranslator>>localeChanged (in category 'language switching') ----- + localeChanged + "Reset cached .mo files. They will be loaded again as needed." + + moFiles := Dictionary new.! Item was removed: - ----- Method: GetTextTranslator>>reloadMOFiles (in category 'accessing') ----- - reloadMOFiles - moFiles := Dictionary new. - self loadMOFiles.! Item was removed: - ----- Method: GetTextTranslator>>setCurrent (in category 'language switching') ----- - setCurrent - "ensure actual contents of MOs is loaded on switching language" - self loadMOFiles! Item was added: + ----- Method: GetTextTranslator>>translateInAllDomains: (in category 'translation') ----- + translateInAllDomains: aString + + | translation | + (self moFiles at: #* ifAbsent: [self loadMOFilesForAllDomains]) + do: [:moFile | + translation := moFile translationFor: aString. + translation == aString ifFalse: [^ translation]]. + ^ aString "no translation found"! Item was added: + ----- Method: InternalTranslator>>translateInAllDomains: (in category 'translation') ----- + translateInAllDomains: aString + "Domains do not matter for the internal translator." + + ^ aString! Item was changed: ----- Method: Locale class>>localeChanged (in category 'notification') ----- localeChanged + + NaturalLanguageTranslator localeChanged. SystemNavigation default allBehaviorsDo: [:b | + (b ~~ self and: [b ~~ NaturalLanguageTranslator]) + ifTrue: [(b class includesSelector: #localeChanged) + ifTrue: [b localeChanged]]].! - b == self ifFalse: [b localeChanged]].! Item was changed: ----- Method: Locale class>>localeChangedGently (in category 'notification') ----- localeChangedGently + + NaturalLanguageTranslator localeChangedGently. + SystemNavigation default allBehaviorsDo: [:b | + (b ~~ self and: [b ~~ NaturalLanguageTranslator]) + ifTrue: [(b class includesSelector: #localeChangedGently) + ifTrue: [b localeChangedGently]]].! - SystemNavigation default allBehaviorsDo: [:b | b == self ifFalse: [b localeChangedGently]].! Item was changed: ----- Method: Locale class>>switchTo:gently: (in category 'accessing') ----- switchTo: locale gently: gentlyFlag "Locale switchTo: (Locale isoLanguage: 'de')" | availableID | availableID := (NaturalLanguageTranslator availableForLocaleID: locale localeID) localeID. Current localeID = availableID ifFalse: [Previous := Current. CurrentPlatform := Current := Locale localeID: availableID. - NaturalLanguageTranslator localeChanged. gentlyFlag ifTrue: [self localeChangedGently] ifFalse: [self localeChanged]]! Item was changed: ----- Method: NaturalLanguageTranslator class>>localeChanged (in category 'accessing') ----- localeChanged "notify some project starts to use this locale. this facility may use the event to load translation data dynamically" + self current localeChanged. - self current setCurrent ! Item was added: + ----- Method: NaturalLanguageTranslator>>localeChanged (in category 'language switching') ----- + localeChanged + "The system's current locale (ID) changed. Make sure to update all lookup caches if your translator needs external resources such as files."! Item was removed: - ----- Method: NaturalLanguageTranslator>>setCurrent (in category 'language switching') ----- - setCurrent - "notify locale of the translator become current" - ! Item was added: + ----- Method: NaturalLanguageTranslator>>translateInAllDomains: (in category 'translation') ----- + translateInAllDomains: aString + + | translation | + TextDomainManager allKnownDomains do: [:domain | + translation := self translate: aString inDomain: domain. + aString == translation ifFalse: [^ translation]]. + ^ aString! Item was changed: ----- Method: String>>translated (in category '*System-Localization') ----- translated + "Note that we cannot call #translatedTo: because the sender context encodes the domain name." + + ^ self - "answer the receiver translated to the default language" - | translation | - translation := self translatedTo: LocaleID current + inDomain: (TextDomainManager domainOfMethod: thisContext sender method)! - inDomain: (TextDomainManager domainOfMethod: thisContext sender method). - self == translation ifTrue: [^self translatedInAllDomains]. - ^translation! Item was removed: - ----- Method: String>>translatedInAllDomains (in category '*System-Localization') ----- - translatedInAllDomains - | translation | - "Transcript show: self printString, ' translatedInAllDomains'; cr." - TextDomainManager allKnownDomains do: [:domain | - translation := self translatedTo: LocaleID current inDomain: domain. - self = translation ifFalse: [^translation] - ]. - ^self! Item was removed: - ----- Method: String>>translatedInAnyDomain (in category '*System-Localization') ----- - translatedInAnyDomain - | translation | - Transcript show: self printString, ' translatedInAnyDomain'; cr. - TextDomainManager allKnownDomains do: [:domain | - translation := self translatedInDomain: domain. - self = translation ifFalse: [^translation]]. - ^self! Item was changed: ----- Method: String>>translatedInDomain: (in category '*System-Localization') ----- translatedInDomain: aDomainName + + ^ self + translatedTo: LocaleID current + inDomain: aDomainName! - | translation | - translation := self translatedTo: LocaleID current inDomain: aDomainName. - self == translation ifTrue: [^self translatedInAllDomains]. - ^translation - ! Item was removed: - ----- Method: String>>translatedInDomain:or: (in category '*System-Localization') ----- - translatedInDomain: aDomainName or: anotherDomainName - | translation | - translation := self translatedTo: LocaleID current inDomain: aDomainName. - self == translation ifTrue: [^self translatedInDomain: anotherDomainName]. - ^translation - ! Item was changed: ----- Method: String>>translatedTo: (in category '*System-Localization') ----- translatedTo: localeID "answer the receiver translated to the given locale id" + + ^ self + translatedTo: localeID + inDomain: (TextDomainManager domainOfMethod: thisContext sender method)! - ^ self translatedTo: localeID inDomain: (TextDomainManager domainOfMethod: thisContext sender method).! Item was changed: ----- Method: String>>translatedTo:inDomain: (in category '*System-Localization') ----- translatedTo: localeID inDomain: aDomainName + "Answer the receiver translated to the given locale id in the textdomain. If no translation can be found, try to lookup all domains for a translation." - "answer the receiver translated to the given locale id in the textdomain" + | translator translation | + translator := NaturalLanguageTranslator availableForLocaleID: localeID. + translation := translator translate: self inDomain: aDomainName. + translation == self ifTrue: [^ translator translateInAllDomains: self]. + ^ translation! - ^ NaturalLanguageTranslator translate: self - toLocaleID: localeID - inDomain: aDomainName!

1 0

The Trunk: MorphicExtras-kfr.164.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.164.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.164 Author: kfr Time: 17 May 2015, 11:38:22.475 pm UUID: ce706845-ed00-3b46-ab92-8169dc372543 Ancestors: MorphicExtras-nice.163 Revive StoryboardBookMorph =============== Diff against MorphicExtras-nice.163 =============== Item was changed: BookMorph subclass: #StoryboardBookMorph instanceVariableNames: 'alansSliders panAndTiltFactor zoomFactor zoomController' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-Books'! + !StoryboardBookMorph commentStamp: 'kfr 5/17/2015 23:37' prior: 0! + A BookMorph variant whose pages are instances of ZoomAndScrollMorph. + I have a control area where the user may pan, tilt and zoom over the image shown in the page. - !StoryboardBookMorph commentStamp: '<historical>' prior: 0! - A BookMorph variant whose pages are instances of ZoomAndScrollMorph. I have a control area where the user may pan, tilt and zoom over the image shown in the page. + StoryboardBookMorph new openInWorld + + Drop an picture at the book. + + Mouse + - drag up and down to tilt - - drag up and down to zoom in and out - drag left and right to pan + - shift-drag up and down to zoom in and out + + Keyboard + Arrow keys pan and tilts the image + X and Z zoom in and out + + From top left in control panel you pull out stills from diffrent zoom, tilt and pan posititons. + Drop these after eachother to make an animation script. + The numbers between the stills are playback speed, that can be edited. + Save script from the scripts halo menu. + + Playback script from controll panels halo menu. + + ! - - shift-drag up and down to tilt.! Item was changed: ----- Method: StoryboardBookMorph>>initialize (in category 'initialization') ----- initialize + newPagePrototype := ZoomAndScrollMorph new extent: 300@300. - newPagePrototype := ZoomAndScrollMorph new extent: Display extent // 3. zoomController := ZoomAndScrollControllerMorph new + setBalloonText: 'Drag in here to zoom, tilt and pan the page above'; + extent: 246@147. - setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. super initialize. + zoomController openInWorld. + + "tool := RectangleMorph new extent: 250@170; layoutPolicy: TableLayout new. + tool addMorph: zoomController. - self addMorphBack: zoomController. - alansSliders := { {#changeTiltFactor: . #getTiltFactor . 'Pan and tilt sensitivity'}. {#changeZoomFactor: . #getZoomFactor . 'Zoom sensitivity'}. } collect: [ :sData | { SimpleSliderMorph new extent: 150@10; color: Color orange; sliderColor: Color gray; target: self; actionSelector: sData first; setBalloonText: sData third; adjustToValue: (self perform: sData second). sData second } ]. + alansSliders do: [ :each | tool addMorphBack: each first]. + tool openInWorld" - alansSliders do: [ :each | self addMorphBack: each first] ! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>changeKeys (in category 'as yet unclassified') ----- changeKeys upDownCodes := Dictionary new. + changeKeysState := #(up down left right in out). - changeKeysState := #(up down in out). self changed.! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" | displayer dataMorph | super initialize. "" hasFocus := true. currentKeyDown := Set new. upDownCodes := Dictionary new. + upDownCodes at: 31 put: #up; "arrow keys" + at: 30 put: #down; + at: 29 put: #left; + at: 28 put: #right; + at: 88 put:#in; "x" + at: 90 put:#out. "y" + - upDownCodes at: 126 put: #up; - at: 125 put: #down; - at: 123 put: #out; - at: 124 put: #in. - "arrow keys on the mac" self extent: 40 @ 40; vResizing: #rigid; hResizing: #spaceFill; setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. dataMorph := AlignmentMorph newColumn. dataMorph color: Color yellow; hResizing: #shrinkWrap; vResizing: #shrinkWrap. dataMorph on: #mouseDown send: #grabCameraPositionEvent:morph: to: self. displayer := UpdatingStringMorph new getSelector: #cameraPointRounded; target: self; growable: true; putSelector: nil. dataMorph addMorph: displayer lock. displayer := UpdatingStringMorph new getSelector: #cameraScale; target: self; growable: true; floatPrecision: 0.001; putSelector: nil. dataMorph addMorph: displayer lock. self addMorph: dataMorph! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>step (in category 'stepping and presenter') ----- step + | delta halfDW shift | + shift := false. - | delta halfDW | - (self valueOfProperty: #currentCameraVersion ifAbsent: [0]) = self currentCameraVersion ifFalse: [ self patchOldVersion1. self setProperty: #currentCameraVersion toValue: self currentCameraVersion. ]. super step. self doProgrammedMoves. + (currentKeyDown ifNil: [#()]) do: [ :each | | action | + action := upDownCodes at: each ifAbsent: [shift := true]. - (currentKeyDown ifNil: [#()]) do: [ :each | | action | - action := upDownCodes at: each ifAbsent: [#fugeddaboutit]. action == #in ifTrue: [ target scaleImageBy: -10. ]. action == #out ifTrue: [ target scaleImageBy: 10. ]. action == #up ifTrue: [ + target tiltImageBy: 0@ -20. - target tiltImageBy: -20. ]. action == #down ifTrue: [ + target tiltImageBy: 0@20. - target tiltImageBy: 20. ]. + action == #left ifTrue: [ + target tiltImageBy: -20@0. + ]. + action == #right ifTrue: [ + target tiltImageBy: 20@0. + ]. ]. mouseMovePoint ifNil: [^self]. mouseDownPoint ifNil: [^self]. target ifNil: [^self]. halfDW := self deadZoneWidth // 2. + halfDW := self deadZoneWidth // 2. delta := mouseMovePoint - mouseDownPoint. delta x abs <= halfDW ifTrue: [delta := 0@delta y]. delta y abs <= halfDW ifTrue: [delta := delta x@0]. + shift ifTrue:[ target scaleImageBy: delta x]. + target panImageBy: delta x @ delta y - - target panImageBy: delta x. ! Item was changed: ----- Method: ZoomAndScrollMorph>>panImageBy: (in category 'as yet unclassified') ----- panImageBy: pixels + self changeOffsetBy: (pixels x* self getTiltFactor * 0.1) @ (pixels y* self getTiltFactor * 0.1) - self changeOffsetBy: (pixels * self getTiltFactor * 0.1) @ 0. "steps := (pixels abs / 6) exp rounded * pixels sign." "==Alan's preferred factors pan = 0.0425531914893617 zoom = 0.099290780141844 ===" ! Item was changed: ----- Method: ZoomAndScrollMorph>>tiltImageBy: (in category 'as yet unclassified') ----- tiltImageBy: pixels + self changeOffsetBy: (pixels x * self getTiltFactor * 0.1) @ (pixels y * self getTiltFactor * 0.1) - self changeOffsetBy: 0 @ (pixels * self getTiltFactor * 0.1) " steps := (pixels abs / 6) exp rounded * pixels sign. " "==Alan's preferred factors pan = 0.0425531914893617 zoom = 0.099290780141844 ===" !

1 0

The Trunk: MorphicExtras-kfr.165.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.165.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.165 Author: kfr Time: 17 May 2015, 11:43:15.836 pm UUID: 6ed5bbe8-8b28-7948-a1b0-de35fcfccb0d Ancestors: MorphicExtras-kfr.164 More cleanup to StoyboardBookMorph =============== Diff against MorphicExtras-nice.163 =============== Item was changed: BookMorph subclass: #StoryboardBookMorph instanceVariableNames: 'alansSliders panAndTiltFactor zoomFactor zoomController' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-Books'! + !StoryboardBookMorph commentStamp: 'kfr 5/17/2015 23:37' prior: 0! + A BookMorph variant whose pages are instances of ZoomAndScrollMorph. + I have a control area where the user may pan, tilt and zoom over the image shown in the page. - !StoryboardBookMorph commentStamp: '<historical>' prior: 0! - A BookMorph variant whose pages are instances of ZoomAndScrollMorph. I have a control area where the user may pan, tilt and zoom over the image shown in the page. + StoryboardBookMorph new openInWorld + + Drop an picture at the book. + + Mouse + - drag up and down to tilt - - drag up and down to zoom in and out - drag left and right to pan + - shift-drag up and down to zoom in and out + + Keyboard + Arrow keys pan and tilts the image + X and Z zoom in and out + + From top left in control panel you pull out stills from diffrent zoom, tilt and pan posititons. + Drop these after eachother to make an animation script. + The numbers between the stills are playback speed, that can be edited. + Save script from the scripts halo menu. + + Playback script from controll panels halo menu. + + ! - - shift-drag up and down to tilt.! Item was changed: ----- Method: StoryboardBookMorph>>initialize (in category 'initialization') ----- initialize + newPagePrototype := ZoomAndScrollMorph new extent: 300@300. - newPagePrototype := ZoomAndScrollMorph new extent: Display extent // 3. zoomController := ZoomAndScrollControllerMorph new + setBalloonText: 'Drag in here to zoom, tilt and pan the page above'; + extent: 246@147. - setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. super initialize. + zoomController openInWorld. + + "tool := RectangleMorph new extent: 250@170; layoutPolicy: TableLayout new. + tool addMorph: zoomController. - self addMorphBack: zoomController. - alansSliders := { {#changeTiltFactor: . #getTiltFactor . 'Pan and tilt sensitivity'}. {#changeZoomFactor: . #getZoomFactor . 'Zoom sensitivity'}. } collect: [ :sData | { SimpleSliderMorph new extent: 150@10; color: Color orange; sliderColor: Color gray; target: self; actionSelector: sData first; setBalloonText: sData third; adjustToValue: (self perform: sData second). sData second } ]. + alansSliders do: [ :each | tool addMorphBack: each first]. + tool openInWorld" - alansSliders do: [ :each | self addMorphBack: each first] ! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>changeKeys (in category 'as yet unclassified') ----- changeKeys upDownCodes := Dictionary new. + changeKeysState := #(up down left right in out). - changeKeysState := #(up down in out). self changed.! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" | displayer dataMorph | super initialize. "" hasFocus := true. currentKeyDown := Set new. upDownCodes := Dictionary new. + upDownCodes at: 31 put: #up; "arrow keys" + at: 30 put: #down; + at: 29 put: #left; + at: 28 put: #right; + at: 88 put:#in; "x" + at: 90 put:#out. "y" + - upDownCodes at: 126 put: #up; - at: 125 put: #down; - at: 123 put: #out; - at: 124 put: #in. - "arrow keys on the mac" self extent: 40 @ 40; vResizing: #rigid; hResizing: #spaceFill; setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. dataMorph := AlignmentMorph newColumn. dataMorph color: Color yellow; hResizing: #shrinkWrap; vResizing: #shrinkWrap. dataMorph on: #mouseDown send: #grabCameraPositionEvent:morph: to: self. displayer := UpdatingStringMorph new getSelector: #cameraPointRounded; target: self; growable: true; putSelector: nil. dataMorph addMorph: displayer lock. displayer := UpdatingStringMorph new getSelector: #cameraScale; target: self; growable: true; floatPrecision: 0.001; putSelector: nil. dataMorph addMorph: displayer lock. self addMorph: dataMorph! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>step (in category 'stepping and presenter') ----- step + | delta halfDW shift | + shift := false. - | delta halfDW | - (self valueOfProperty: #currentCameraVersion ifAbsent: [0]) = self currentCameraVersion ifFalse: [ self patchOldVersion1. self setProperty: #currentCameraVersion toValue: self currentCameraVersion. ]. super step. self doProgrammedMoves. + (currentKeyDown ifNil: [#()]) do: [ :each | | action | + action := upDownCodes at: each ifAbsent: [shift := true]. - (currentKeyDown ifNil: [#()]) do: [ :each | | action | - action := upDownCodes at: each ifAbsent: [#fugeddaboutit]. action == #in ifTrue: [ target scaleImageBy: -10. ]. action == #out ifTrue: [ target scaleImageBy: 10. ]. action == #up ifTrue: [ + target panImageBy: 0@ -20. - target tiltImageBy: -20. ]. action == #down ifTrue: [ + target panImageBy: 0@20. - target tiltImageBy: 20. ]. + action == #left ifTrue: [ + target panImageBy: -20@0. + ]. + action == #right ifTrue: [ + target panImageBy: 20@0. + ]. ]. mouseMovePoint ifNil: [^self]. mouseDownPoint ifNil: [^self]. target ifNil: [^self]. halfDW := self deadZoneWidth // 2. + halfDW := self deadZoneWidth // 2. delta := mouseMovePoint - mouseDownPoint. delta x abs <= halfDW ifTrue: [delta := 0@delta y]. delta y abs <= halfDW ifTrue: [delta := delta x@0]. + shift ifTrue:[^target scaleImageBy: delta x]. + target panImageBy: delta x @ delta y - - target panImageBy: delta x. ! Item was changed: ----- Method: ZoomAndScrollMorph>>panImageBy: (in category 'as yet unclassified') ----- panImageBy: pixels + self changeOffsetBy: (pixels x* self getTiltFactor * 0.1) @ (pixels y* self getTiltFactor * 0.1) - self changeOffsetBy: (pixels * self getTiltFactor * 0.1) @ 0. "steps := (pixels abs / 6) exp rounded * pixels sign." "==Alan's preferred factors pan = 0.0425531914893617 zoom = 0.099290780141844 ===" ! Item was removed: - ----- Method: ZoomAndScrollMorph>>tiltImageBy: (in category 'as yet unclassified') ----- - tiltImageBy: pixels - - self changeOffsetBy: 0 @ (pixels * self getTiltFactor * 0.1) - - " steps := (pixels abs / 6) exp rounded * pixels sign. - " - "==Alan's preferred factors - pan = 0.0425531914893617 - zoom = 0.099290780141844 - ===" - !

1 0

The Trunk: MorphicExtras-kfr.269.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.269.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.269 Author: kfr Time: 30 January 2020, 5:44:33.710753 pm UUID: 4e53f407-fddf-7d4f-8d14-5129ccf23fd4 Ancestors: MorphicExtras-mt.268 Make FatBitsPaint menu a separate stay up menu =============== Diff against MorphicExtras-mt.268 =============== Item was changed: ----- Method: FatBitsPaint>>addCustomMenuItems:hand: (in category 'menu') ----- + addCustomMenuItems: aCustomMenu hand: aHandMorph + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + ^ aCustomMenu add: 'fat bits paint ..' translated action: #openFatBitsPaintMenu! - addCustomMenuItems: aCustomMenu hand: aHandMorph - - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - aCustomMenu - add: 'background color' translated action: #setBackgroundColor:; - add: 'pen color' translated action: #setPenColor:; - add: 'pen size' translated action: #setPenSize:; - add: 'fill' translated action: #fill; - add: 'magnification' translated action: #setMagnification:; - add: 'accept' translated action: #accept; - add: 'revert' translated action: #revert; - add: 'inspect' translated action: #inspectForm; - add: 'file out' translated action: #fileOut; - add: 'selection...' translated action: #selectionMenu:; - add: 'tools...' translated action: #toolMenu:! Item was added: + ----- Method: FatBitsPaint>>openFatBitsPaintMenu (in category 'menu') ----- + openFatBitsPaintMenu + | menu | + (menu := MenuMorph entitled: 'FatBitsPaint' translated) defaultTarget: self; + addStayUpItem; + commandKeyHandler: self. + menu add: 'background color' translated action: #setBackgroundColor:; + add: 'pen color' translated action: #setPenColor:; + add: 'pen size' translated action: #setPenSize:; + add: 'fill' translated action: #fill; + add: 'magnification' translated action: #setMagnification:; + add: 'accept' translated action: #accept; + add: 'revert' translated action: #revert; + add: 'inspect' translated action: #inspectForm; + add: 'file out' translated action: #fileOut; + add: 'selection...' translated action: #selectionMenu:; + add: 'tools...' translated action: #toolMenu:. + ^ menu popUpInWorld!

1 0

The Trunk: MorphicExtras-kfr.277.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.277.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.277 Author: kfr Time: 19 September 2020, 10:24:34.566601 pm UUID: d39cb295-7978-d240-889f-6f5388354762 Ancestors: MorphicExtras-kfr.276 Width 3000 was a little excessive for some images =============== Diff against MorphicExtras-kfr.276 =============== Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; + maxWidth: 300 minHeight: 100; - maxWidth: 3000 minHeight: 100; yourself. formDisplayMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) offsets: (8 @ 72 corner: 108 @ 172)). self addMorph: formDisplayMorph. self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail!

1 0

The Trunk: MorphicExtras-mt.280.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.280.mcz ==================== Summary ==================== Name: MorphicExtras-mt.280 Author: mt Time: 4 November 2020, 4:49:48.79862 pm UUID: 47ccdbdb-b186-344f-a9e7-9f620b3028a8 Ancestors: MorphicExtras-pre.279, MorphicExtras-kfr.165, MorphicExtras-kfr.269, MorphicExtras-kfr.277 Merges some quality-of-life fixes for FatBitsPaint and storyboard books. Thanks to Karl (kfr)! =============== Diff against MorphicExtras-pre.279 =============== Item was changed: ----- Method: FatBitsPaint>>addCustomMenuItems:hand: (in category 'menu') ----- + addCustomMenuItems: aCustomMenu hand: aHandMorph + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + ^ aCustomMenu add: 'fat bits paint ..' translated action: #openFatBitsPaintMenu! - addCustomMenuItems: aCustomMenu hand: aHandMorph - - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - aCustomMenu - add: 'background color' translated action: #setBackgroundColor:; - add: 'pen color' translated action: #setPenColor:; - add: 'pen size' translated action: #setPenSize:; - add: 'fill' translated action: #fill; - add: 'magnification' translated action: #setMagnification:; - add: 'accept' translated action: #accept; - add: 'revert' translated action: #revert; - add: 'inspect' translated action: #inspectForm; - add: 'file out' translated action: #fileOut; - add: 'selection...' translated action: #selectionMenu:; - add: 'tools...' translated action: #toolMenu:! Item was added: + ----- Method: FatBitsPaint>>openFatBitsPaintMenu (in category 'menu') ----- + openFatBitsPaintMenu + | menu | + (menu := MenuMorph entitled: 'FatBitsPaint' translated) defaultTarget: self; + addStayUpItem; + commandKeyHandler: self. + menu add: 'background color' translated action: #setBackgroundColor:; + add: 'pen color' translated action: #setPenColor:; + add: 'pen size' translated action: #setPenSize:; + add: 'fill' translated action: #fill; + add: 'magnification' translated action: #setMagnification:; + add: 'accept' translated action: #accept; + add: 'revert' translated action: #revert; + add: 'inspect' translated action: #inspectForm; + add: 'file out' translated action: #fileOut; + add: 'selection...' translated action: #selectionMenu:; + add: 'tools...' translated action: #toolMenu:. + ^ menu popUpInWorld! Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; + maxWidth: 300 minHeight: 100; - maxWidth: 3000 minHeight: 100; yourself. formDisplayMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) offsets: (8 @ 72 corner: 108 @ 172)). self addMorph: formDisplayMorph. self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail! Item was changed: BookMorph subclass: #StoryboardBookMorph instanceVariableNames: 'alansSliders panAndTiltFactor zoomFactor zoomController' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-Books'! + !StoryboardBookMorph commentStamp: 'kfr 5/17/2015 23:37' prior: 0! + A BookMorph variant whose pages are instances of ZoomAndScrollMorph. + I have a control area where the user may pan, tilt and zoom over the image shown in the page. - !StoryboardBookMorph commentStamp: '<historical>' prior: 0! - A BookMorph variant whose pages are instances of ZoomAndScrollMorph. I have a control area where the user may pan, tilt and zoom over the image shown in the page. + StoryboardBookMorph new openInWorld + + Drop an picture at the book. + + Mouse + - drag up and down to tilt - - drag up and down to zoom in and out - drag left and right to pan + - shift-drag up and down to zoom in and out + + Keyboard + Arrow keys pan and tilts the image + X and Z zoom in and out + + From top left in control panel you pull out stills from diffrent zoom, tilt and pan posititons. + Drop these after eachother to make an animation script. + The numbers between the stills are playback speed, that can be edited. + Save script from the scripts halo menu. + + Playback script from controll panels halo menu. + + ! - - shift-drag up and down to tilt.! Item was changed: ----- Method: StoryboardBookMorph>>initialize (in category 'initialization') ----- initialize + newPagePrototype := ZoomAndScrollMorph new extent: 300@300. - newPagePrototype := ZoomAndScrollMorph new extent: Display extent // 3. zoomController := ZoomAndScrollControllerMorph new + setBalloonText: 'Drag in here to zoom, tilt and pan the page above'; + extent: 246@147. - setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. super initialize. + zoomController openInWorld. + + "tool := RectangleMorph new extent: 250@170; layoutPolicy: TableLayout new. + tool addMorph: zoomController. - self addMorphBack: zoomController. - alansSliders := { {#changeTiltFactor: . #getTiltFactor . 'Pan and tilt sensitivity'}. {#changeZoomFactor: . #getZoomFactor . 'Zoom sensitivity'}. } collect: [ :sData | { SimpleSliderMorph new extent: 150@10; color: Color orange; sliderColor: Color gray; target: self; actionSelector: sData first; setBalloonText: sData third; adjustToValue: (self perform: sData second). sData second } ]. + alansSliders do: [ :each | tool addMorphBack: each first]. + tool openInWorld" - alansSliders do: [ :each | self addMorphBack: each first] ! Item was changed: + ----- Method: ZoomAndScrollControllerMorph>>changeKeys (in category 'as yet unclassified') ----- - ----- Method: ZoomAndScrollControllerMorph>>changeKeys (in category 'menus') ----- changeKeys upDownCodes := Dictionary new. + changeKeysState := #(up down left right in out). - changeKeysState := #(up down in out). self changed.! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" | displayer dataMorph | super initialize. "" hasFocus := true. currentKeyDown := Set new. upDownCodes := Dictionary new. + upDownCodes at: 31 put: #up; "arrow keys" + at: 30 put: #down; + at: 29 put: #left; + at: 28 put: #right; + at: 88 put:#in; "x" + at: 90 put:#out. "y" + - upDownCodes at: 126 put: #up; - at: 125 put: #down; - at: 123 put: #out; - at: 124 put: #in. - "arrow keys on the mac" self extent: 40 @ 40; vResizing: #rigid; hResizing: #spaceFill; setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. dataMorph := AlignmentMorph newColumn. dataMorph color: Color yellow; hResizing: #shrinkWrap; vResizing: #shrinkWrap. dataMorph on: #mouseDown send: #grabCameraPositionEvent:morph: to: self. displayer := UpdatingStringMorph new getSelector: #cameraPointRounded; target: self; growable: true; putSelector: nil. dataMorph addMorph: displayer lock. displayer := UpdatingStringMorph new getSelector: #cameraScale; target: self; growable: true; floatPrecision: 0.001; putSelector: nil. dataMorph addMorph: displayer lock. self addMorph: dataMorph! Item was changed: ----- Method: ZoomAndScrollControllerMorph>>step (in category 'stepping and presenter') ----- step + | delta halfDW shift | + shift := false. - | delta halfDW | - (self valueOfProperty: #currentCameraVersion ifAbsent: [0]) = self currentCameraVersion ifFalse: [ self patchOldVersion1. self setProperty: #currentCameraVersion toValue: self currentCameraVersion. ]. super step. self doProgrammedMoves. + (currentKeyDown ifNil: [#()]) do: [ :each | | action | + action := upDownCodes at: each ifAbsent: [shift := true]. - (currentKeyDown ifNil: [#()]) do: [ :each | | action | - action := upDownCodes at: each ifAbsent: [#fugeddaboutit]. action == #in ifTrue: [ target scaleImageBy: -10. ]. action == #out ifTrue: [ target scaleImageBy: 10. ]. action == #up ifTrue: [ + target panImageBy: 0@ -20. - target tiltImageBy: -20. ]. action == #down ifTrue: [ + target panImageBy: 0@20. - target tiltImageBy: 20. ]. + action == #left ifTrue: [ + target panImageBy: -20@0. + ]. + action == #right ifTrue: [ + target panImageBy: 20@0. + ]. ]. mouseMovePoint ifNil: [^self]. mouseDownPoint ifNil: [^self]. target ifNil: [^self]. halfDW := self deadZoneWidth // 2. + halfDW := self deadZoneWidth // 2. delta := mouseMovePoint - mouseDownPoint. delta x abs <= halfDW ifTrue: [delta := 0@delta y]. delta y abs <= halfDW ifTrue: [delta := delta x@0]. + shift ifTrue:[^target scaleImageBy: delta x]. + target panImageBy: delta x @ delta y - - target panImageBy: delta x. ! Item was changed: + ----- Method: ZoomAndScrollMorph>>panImageBy: (in category 'as yet unclassified') ----- - ----- Method: ZoomAndScrollMorph>>panImageBy: (in category 'transformations') ----- panImageBy: pixels + self changeOffsetBy: (pixels x* self getTiltFactor * 0.1) @ (pixels y* self getTiltFactor * 0.1) - self changeOffsetBy: (pixels * self getTiltFactor * 0.1) @ 0. "steps := (pixels abs / 6) exp rounded * pixels sign." "==Alan's preferred factors pan = 0.0425531914893617 zoom = 0.099290780141844 ===" ! Item was removed: - ----- Method: ZoomAndScrollMorph>>tiltImageBy: (in category 'transformations') ----- - tiltImageBy: pixels - - self changeOffsetBy: 0 @ (pixels * self getTiltFactor * 0.1) - - " steps := (pixels abs / 6) exp rounded * pixels sign. - " - "==Alan's preferred factors - pan = 0.0425531914893617 - zoom = 0.099290780141844 - ===" - !

1 0

The Trunk: Morphic-mt.1712.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1712.mcz ==================== Summary ==================== Name: Morphic-mt.1712 Author: mt Time: 4 November 2020, 4:45:33.94762 pm UUID: 532fbef4-796e-f342-9302-d1c0731146b7 Ancestors: Morphic-mt.1711 Fixes dropping for non-world paste-up morphs. =============== Diff against Morphic-mt.1711 =============== Item was changed: ----- Method: PasteUpMorph>>morphToDropFrom: (in category 'dropping/grabbing') ----- morphToDropFrom: aMorph "Given a morph being carried by the hand which the hand is about to drop, answer the actual morph to be deposited. Normally this would be just the morph itself, but several unusual cases arise, which this method is designed to service." | aNail representee handy posBlock | + handy := self isWorldMorph + ifTrue: [self primaryHand] + ifFalse: [self currentHand]. - handy := self primaryHand. posBlock := [:z | | tempPos | tempPos := handy position - ((handy targetOffset - aMorph formerPosition) * (z extent / aMorph extent)) rounded. self pointFromWorld: tempPos]. self alwaysShowThumbnail ifTrue: [aNail := aMorph representativeNoTallerThan: self maxHeightToAvoidThumbnailing norWiderThan: self maximumThumbnailWidth thumbnailHeight: self heightForThumbnails. aNail == aMorph ifFalse: [aMorph formerPosition: aMorph position. aNail position: (posBlock value: aNail)]. ^aNail]. ((aMorph isKindOf: MorphThumbnail) and: [(representee := aMorph morphRepresented) owner isNil]) ifTrue: [representee position: (posBlock value: representee). ^representee]. self showingListView ifTrue: [^aMorph listViewLineForFieldList: (self valueOfProperty: #fieldListSelectors)]. (aMorph hasProperty: #newPermanentScript) ifTrue: [^aMorph asEmptyPermanentScriptor]. ((aMorph isPhraseTileMorph) or: [aMorph isSyntaxMorph]) ifFalse: [^aMorph morphToDropInPasteUp: self]. aMorph userScriptSelector isEmptyOrNil ifTrue: ["non-user" self automaticPhraseExpansion ifFalse: [^aMorph]]. ^aMorph morphToDropInPasteUp: self!

1 0

The Trunk: System-mt.1189.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1189.mcz ==================== Summary ==================== Name: System-mt.1189 Author: mt Time: 4 November 2020, 4:29:05.65862 pm UUID: d73f04df-f789-f043-8cf0-370cd8332876 Ancestors: System-mt.1188 Updates list of contributors. =============== Diff against System-mt.1188 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors..'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.'!

1 0

The Trunk: Morphic-kfr.1469.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1469.mcz ==================== Summary ==================== Name: Morphic-kfr.1469 Author: kfr Time: 6 December 2018, 9:13:24.890102 pm UUID: 3388ff60-ace3-4cf7-a1d4-f3fb7b7d9bce Ancestors: Morphic-mt.1468 Don't hide the ProjectViewMorph and it's owner when loading =============== Diff against Morphic-mt.1468 =============== Item was changed: ----- Method: ComplexProgressIndicator>>withProgressDo: (in category 'as yet unclassified') ----- withProgressDo: aBlock | safetyFactor totals trialRect delta targetOwner | Smalltalk isMorphic ifFalse: [^aBlock value]. formerProject := Project current. formerWorld := formerProject world. formerProcess := Processor activeProcess. targetMorph ifNil: [targetMorph := ProgressTargetRequestNotification signal]. targetMorph ifNil: [ trialRect := Rectangle center: Sensor cursorPoint extent: 80@80. delta := trialRect amountToTranslateWithin: formerWorld bounds. trialRect := trialRect translateBy: delta. translucentMorph := TranslucentProgessMorph new opaqueBackgroundColor: Color white; bounds: trialRect; openInWorld: formerWorld. ] ifNotNil: [ targetOwner := targetMorph owner. translucentMorph := TranslucentProgessMorph new setProperty: #morphicLayerNumber toValue: targetMorph morphicLayerNumber - 0.1; bounds: targetMorph boundsInWorld; openInWorld: targetMorph world. ]. stageCompleted := 0. safetyFactor := 1.1. "better to guess high than low" translucentMorph setProperty: #progressStageNumber toValue: 1. translucentMorph hide. + "targetOwner ifNotNil: [targetOwner hide]." - targetOwner ifNotNil: [targetOwner hide]. totals := self loadingHistoryDataForKey: 'total'. newRatio := 1.0. estimate := totals size < 2 ifTrue: [ 15000 "be a pessimist" ] ifFalse: [ (totals sum - totals max) / (totals size - 1 max: 1) * safetyFactor. ]. start := Time millisecondClockValue. self forkProgressWatcher. [ aBlock on: ProgressInitiationException do: [ :ex | ex sendNotificationsTo: [ :min :max :curr | "ignore this as it is inaccurate" ]. ]. ] on: ProgressNotification do: [ :note | | stageCompletedString | translucentMorph show. targetOwner ifNotNil: [targetOwner show]. note extraParam ifNotNil:[self addProgressDecoration: note extraParam]. stageCompletedString := (note messageText findTokens: ' ') first. stageCompleted := (stageCompletedString copyUpTo: $:) asNumber. cumulativeStageTime := Time millisecondClockValue - start max: 1. prevData := self loadingHistoryDataForKey: stageCompletedString. prevData isEmpty ifFalse: [ newRatio := (cumulativeStageTime / (prevData average max: 1)) asFloat. ]. self loadingHistoryAt: stageCompletedString add: cumulativeStageTime. translucentMorph setProperty: #progressStageNumber toValue: stageCompleted + 1. note resume. ]. stageCompleted := 999. "we may or may not get here" !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2020