Packages February 2015

packages@lists.squeakfoundation.org

1 participants
183 discussions

The Trunk: System-mt.706.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.706.mcz ==================== Summary ==================== Name: System-mt.706 Author: mt Time: 27 February 2015, 11:45:09.18 am UUID: 3175d70c-e137-1b40-91aa-4df3c1228235 Ancestors: System-mt.705 Re-activated possibility to have multiple categories for a single preference. Worked for old-style preferences, now works again for pragma-style preferences. Use #categoryList: instead of #category: in the pragma and provide an array of strings (or symbols). =============== Diff against System-mt.705 =============== Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'dynamic preferences') ----- prefEvent: anEvent "Check if this system event defines or removes a preference. TODO: Queue the event and handle in background process. There is zero reason to be so eager here." | aClass aSelector prefSymbol method | (anEvent itemKind = SystemChangeNotifier classKind and: [anEvent isRemoved]) ifTrue:[self removePreferencesFor: anEvent item]. anEvent itemKind = SystemChangeNotifier methodKind ifTrue:[ aClass := anEvent itemClass. aClass isMeta ifFalse:[^self]. "ignore instance methods" aClass := aClass theNonMetaClass. aSelector := anEvent itemSelector. (anEvent isRemoved or:[anEvent isModified]) ifTrue:[ prefSymbol := (aClass name,'>>', aSelector) asSymbol. self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | dictionaryOfPreferences removeKey: prefSymbol ifAbsent:[] ] ]. (anEvent isAdded or:[anEvent isModified]) ifTrue:[ method := anEvent item. method pragmas do:[:pragma| | aPreference aPrefSymbol | + ((pragma keyword == #preference:category:description:type:) + or: [pragma keyword == #preference:categoryList:description:type:]) ifTrue:[ + aPrefSymbol := (aClass name,'>>', method selector) asSymbol. + aPreference := self + preference: pragma arguments first + category: pragma arguments second + description: pragma arguments third + type: pragma arguments fourth. + aPreference + provider: aClass + getter: method selector + setter: method selector asMutator. + self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | + dictionaryOfPreferences at: aPrefSymbol put: aPreference ] ] ] ] ]. - pragma keyword == #preference:category:description:type: ifTrue:[ - aPrefSymbol := (aClass name,'>>', method selector) asSymbol. - aPreference := self - preference: pragma arguments first - category: pragma arguments second - description: pragma arguments third - type: pragma arguments fourth. - aPreference - provider: aClass - getter: method selector - setter: method selector asMutator. - self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | - dictionaryOfPreferences at: aPrefSymbol put: aPreference ] ] ] ] ]. !

1 0

The Trunk: System-mt.705.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.705.mcz ==================== Summary ==================== Name: System-mt.705 Author: mt Time: 27 February 2015, 11:36:43.752 am UUID: faa11c89-248a-8348-a7be-2d40e6441ee2 Ancestors: System-topa.704 Auto-generated method for #gradientMenu removed because of postload-script in Morphic-mt.764. =============== Diff against System-topa.704 =============== Item was removed: - ----- Method: Preferences class>>gradientMenu (in category 'standard queries') ----- - gradientMenu - ^ self - valueOfFlag: #gradientMenu - ifAbsent: [ true ]!

1 0

The Trunk: System-mt.705.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

1 0

The Trunk: System-mt.705.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

1 0

The Trunk: Morphic-mt.764.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.764.mcz ==================== Summary ==================== Name: Morphic-mt.764 Author: mt Time: 27 February 2015, 11:33:22.268 am UUID: 2ca4e315-b777-2847-830e-366884514d22 Ancestors: Morphic-ul.763 New pragma-preference for #gradientMenu to update SystemProgressbar instance accordingly. Postload-script will remove the old-style preference. =============== Diff against Morphic-ul.763 =============== Item was changed: ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') ----- initialize "initialize the receiver" super initialize. selectedItem := nil. activeSubMenu := nil. fillsOwner := true. avoidVisibleBordersAtEdge := true. + autoGradient := MenuMorph gradientMenu. - autoGradient := Preferences gradientMenu. self setDefaultParameters ; beFloating ; beSticky ; layoutInset: 0 ; dropEnabled: true. Project current world activeHand addKeyboardListener: self! Item was changed: ----- Method: FillInTheBlankMorph>>updateColor:color:intensity: (in category 'initialization') ----- updateColor: aMorph color: aColor intensity: anInteger "update the apareance of aMorph" | fill | + MenuMorph gradientMenu - Preferences gradientMenu ifFalse: [^ self]. fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> aColor}. fill radial: false; origin: aMorph topLeft; direction: 0 @ aMorph height. aMorph fillStyle: fill! Item was changed: ----- Method: MenuItemMorph>>selectionFillStyle (in category 'private') ----- selectionFillStyle " Answer the fill style to use with the receiver is the selected element " | fill baseColor preferenced | Display depth <= 2 ifTrue: [ ^Color gray ]. preferenced := Preferences menuSelectionColor. preferenced notNil ifTrue: [ ^preferenced ]. baseColor := owner color negated. + MenuMorph gradientMenu ifFalse: [ ^baseColor ]. - Preferences gradientMenu ifFalse: [ ^baseColor ]. fill := GradientFillStyle ramp: { 0.0 -> baseColor twiceLighter. 1 -> baseColor twiceDarker }. fill origin: self topLeft. ^ fill! Item was changed: AlignmentMorph subclass: #MenuMorph instanceVariableNames: 'defaultTarget selectedItem stayUp popUpOwner activeSubMenu' + classVariableNames: 'CloseBoxImage GradientMenu PushPinImage' - classVariableNames: 'CloseBoxImage PushPinImage' poolDictionaries: '' category: 'Morphic-Menus'! !MenuMorph commentStamp: '<historical>' prior: 0! Instance variables: defaultTarget <Object> The default target for creating menu items selectedItem <MenuItemMorph> The currently selected item in the receiver stayUp <Boolean> True if the receiver should stay up after clicks popUpOwner <MenuItemMorph> The menu item that automatically invoked the receiver, if any. activeSubMenu <MenuMorph> The currently active submenu.! Item was added: + ----- Method: MenuMorph class>>gradientMenu (in category 'preferences') ----- + gradientMenu + + <preference: 'gradientMenu' + category: #menus + description: 'If true, the menus will have a gradient look.' + type: #Boolean> + ^ GradientMenu ifNil: [true]! Item was added: + ----- Method: MenuMorph class>>gradientMenu: (in category 'preferences') ----- + gradientMenu: aBoolean + + GradientMenu := aBoolean. + SystemProgressMorph reset.! Item was changed: ----- Method: MenuMorph>>updateColor (in category 'control') ----- updateColor | fill title | + self class gradientMenu - Preferences gradientMenu ifFalse: [^ self]. (self fillStyle == self color) not ifTrue: [^ self]. "Don't apply the gradient more than once" "" fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> self color}. "" fill radial: false; origin: self topLeft; direction: 0 @ self height. "" self fillStyle: fill. " update the title color" title := self allMorphs detect: [:each | each hasProperty: #titleString] ifNone: [^ self]. "" fill := GradientFillStyle ramp: {0.0 -> title color twiceLighter. 1 -> title color twiceDarker}. "" fill origin: title topLeft; direction: title width @ 0. "" title fillStyle: fill! Item was changed: ----- Method: SystemProgressMorph>>updateColor:color:intensity: (in category 'initialization') ----- updateColor: aMorph color: aColor intensity: anInteger "update the apareance of aMorph" | fill | + MenuMorph gradientMenu - Preferences gradientMenu ifFalse: [^ self]. fill := GradientFillStyle ramp: {0.0 -> Color white. 1 ->aColor}. fill radial: false; origin: aMorph topLeft; direction: 0 @ aMorph height. aMorph fillStyle: fill! Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. "Force SystemProgressMorph to be reset" SystemProgressMorph initialize; reset. "Initialize the key bindings and menus" Editor initialize. "Retain scrollBar look now that the pref actually does something" Preferences enable: #gradientScrollBars. "apply the new icons" MenuIcons initializeIcons. TheWorldMainDockingBar updateInstances. + + "Cleanup old-style preferences here. Remove before new release." + Preferences removePreference: #gradientMenu. "Now in MenuMorph."'! - '!

1 0

The Trunk: Morphic-mt.764.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

1 0

The Trunk: Morphic-mt.764.mcz
by commits＠source.squeak.org 27 Feb '15

27 Feb '15

1 0

The Trunk: Morphic-ul.754.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.754.mcz ==================== Summary ==================== Name: Morphic-ul.754 Author: ul Time: 18 January 2015, 8:33:51.264 pm UUID: 2e6f7fa2-e377-4374-99db-5be8fbad0013 Ancestors: Morphic-bf.753 Simplified and improved WorldState >> #interCyclePause: - don't create a new Delay (along with a new Semaphore) every 20 (or 50) milliseconds - use #millisecondsSince: to avoid the effects of the clock rollover - separated the code of time calculation and actual waiting Depends on Kernel-ul.893 =============== Diff against Morphic-bf.753 =============== Item was changed: Object subclass: #WorldState + instanceVariableNames: 'hands activeHand viewBox canvas damageRecorder stepList lastStepTime lastStepMessage lastCycleTime commandHistory alarms lastAlarmTime remoteServer multiCanvas interCycleDelay' - instanceVariableNames: 'hands activeHand viewBox canvas damageRecorder stepList lastStepTime lastStepMessage lastCycleTime commandHistory alarms lastAlarmTime remoteServer multiCanvas' classVariableNames: 'CanSurrenderToOS DeferredUIMessages DisableDeferredUpdates LastCycleTime MinCycleLapse' poolDictionaries: '' category: 'Morphic-Worlds'! !WorldState commentStamp: 'ls 7/10/2003 19:30' prior: 0! The state of a Morphic world. (This needs some serious commenting!!!!) The MinCycleLapse variable holds the minimum amount of time that a morphic cycle is allowed to take. If a cycle takes less than this, then interCyclePause: will wait until the full time has been used up.! Item was changed: ----- Method: WorldState>>interCyclePause: (in category 'update cycle') ----- interCyclePause: milliSecs "delay enough that the previous cycle plus the amount of delay will equal milliSecs. If the cycle is already expensive, then no delay occurs. However, if the system is idly waiting for interaction from the user, the method will delay for a proportionally long time and cause the overall CPU usage of Squeak to be low. If the preference #serverMode is enabled, always do a complete delay of 50ms, independant of my argument. This prevents the freezing problem described in Mantis #6581" + | millisecondsToWait | + millisecondsToWait := Preferences serverMode + ifTrue: [ 50 ] - | currentTime wait | - Preferences serverMode ifFalse: [ + (lastCycleTime notNil and: [CanSurrenderToOS ~~ false]) + ifTrue: [ milliSecs - (Time millisecondsSince: lastCycleTime) ] + ifFalse: [ 0 ] ]. + millisecondsToWait > 0 ifTrue: [ + interCycleDelay + ifNil: [ interCycleDelay := Delay forMilliseconds: millisecondsToWait ] + ifNotNil: [ interCycleDelay delayDuration: millisecondsToWait ]. + interCycleDelay wait ]. - (lastCycleTime notNil and: [CanSurrenderToOS ~~ false]) ifTrue: [ - currentTime := Time millisecondClockValue. - wait := lastCycleTime + milliSecs - currentTime. - (wait > 0 and: [ wait <= milliSecs ] ) ifTrue: [ - (Delay forMilliseconds: wait) wait ] ] ] - ifTrue: [ (Delay forMilliseconds: 50) wait ]. - lastCycleTime := Time millisecondClockValue. CanSurrenderToOS := true.!

1 0

The Trunk: Morphic-ul.754.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: Morphic-ul.754.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2015