Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

The Trunk: Morphic-mt.1201.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1201.mcz ==================== Summary ==================== Name: Morphic-mt.1201 Author: mt Time: 28 July 2016, 11:24:07.846886 am UUID: aff57b94-6551-be4d-bbfa-7b8ad3f0e3e8 Ancestors: Morphic-mt.1200 Restore functionality for rounded window corners, how that the preference is pragma-style. =============== Diff against Morphic-mt.1200 =============== Item was changed: ----- Method: SystemWindow>>wantsRoundedCorners (in category 'drawing') ----- wantsRoundedCorners + ^ self class roundedWindowCorners or: [super wantsRoundedCorners]! - ^ false "Temporarily."!

1 0

The Trunk: 51Deprecated-mt.33.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.33.mcz ==================== Summary ==================== Name: 51Deprecated-mt.33 Author: mt Time: 28 July 2016, 11:18:56.332276 am UUID: 8dba9ec7-5272-7e40-bbed-b06cf8b669db Ancestors: 51Deprecated-mt.32 Just in case, deprecate but not remove old-style rounded-corners string message. =============== Diff against 51Deprecated-mt.32 =============== Item was added: + ----- Method: Preferences class>>roundedCornersString (in category '*51Deprecated-support') ----- + roundedCornersString + + self deprecated: 'mt: Use SystemWindow >> #roundedWindowCorners'. + ^ (((self valueOfFlag: #roundedWindowCorners) + ifTrue: ['stop'] + ifFalse: ['start']) , ' rounding window corners') translated!

1 0

The Trunk: System-mt.843.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.843.mcz ==================== Summary ==================== Name: System-mt.843 Author: mt Time: 28 July 2016, 11:17:49.223276 am UUID: fd2a497a-5f3f-dc4e-8790-4bab7415b3cc Ancestors: System-mt.842 Removes old-style preference for rounded window corners. =============== Diff against System-mt.842 =============== Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'defaults') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (higherPerformance false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) - (roundedWindowCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (gradientScrollBars true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonPropertiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "! Item was removed: - ----- Method: Preferences class>>roundedCornersString (in category 'support - misc') ----- - roundedCornersString - ^ (((self valueOfFlag: #roundedWindowCorners) - ifTrue: ['stop'] - ifFalse: ['start']) , ' rounding window corners') translated! Item was removed: - ----- Method: Preferences class>>roundedWindowCorners (in category 'standard queries') ----- - roundedWindowCorners - ^ self - valueOfFlag: #roundedWindowCorners - ifAbsent: [ true ]! Item was changed: ----- Method: Preferences class>>setNotificationParametersForStandardPreferences (in category 'initialization - misc') ----- setNotificationParametersForStandardPreferences "Set up the notification parameters for the standard preferences that require need them. When adding new Preferences that require use of the notification mechanism, users declare the notifcation info as part of the call that adds the preference, or afterwards -- the two relevant methods for doing that are: Preferences.addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector: and Preference changeInformee:changeSelector:" "Preferences setNotificationParametersForStandardPreferences" #( (annotationPanes annotationPanesChanged) (eToyFriendly eToyFriendlyChanged) (infiniteUndo infiniteUndoChanged) (uniTilesClassic classicTilesSettingToggled) (optionalButtons optionalButtonsChanged) - (roundedWindowCorners roundedWindowCornersChanged) (showProjectNavigator showProjectNavigatorChanged) (smartUpdating smartUpdatingChanged) (universalTiles universalTilesSettingToggled) (showSharedFlaps sharedFlapsSettingChanged) (noviceMode noviceModeSettingChanged) ) do: [:pair | | aPreference | aPreference := self preferenceAt: pair first. aPreference changeInformee: self changeSelector: pair second]! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences removePreference: #roundedWindowCorners.'! - (PackageInfo named: 'System') postscript: '" Convert SoundService registeredClasses to classes if necessary " - [ | currentSoundSystem | - currentSoundSystem := SoundService defaultOrNil. - (SoundService registeredClasses copy collect: [:ss | - SoundService unregister: ss. - ss isBehavior - ifTrue: [ss] - ifFalse: [ss class]] - ) do: [:ssClass | - SoundService register: ssClass]. - SoundService default: (currentSoundSystem - ifNotNil: [:css| css isBehavior ifTrue: [css] ifFalse: [css class]]). - ] value. - - "Convert preferences dictionary from class var to inst var if necessary." - (Preferences instVarNamed: ''preferencesDictionary'') ifNil: - [(Preferences classPool at: #DictionaryOfPreferences) ifNotNil: - [:dictionary| - Preferences - instVarNamed: ''preferencesDictionary'' - put: dictionary]]. - - (Smalltalk classNamed: #ServicePreferences) ifNotNil: - [:sp| - (sp instVarNamed: ''preferencesDictionary'') ifNil: - [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil: - [:dictionary| - sp - instVarNamed: ''preferencesDictionary'' - put: dictionary]]]'!

1 0

The Trunk: ReleaseBuilder-mt.136.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.136.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.136 Author: mt Time: 28 July 2016, 11:17:09.194276 am UUID: b6fdd985-9dda-6340-846d-b83b94410096 Ancestors: ReleaseBuilder-mt.135 Uses pragma preference for rounded window corners. =============== Diff against ReleaseBuilder-mt.135 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. ToolBuilder openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. Preferences insertionPointColor: Color red. PluggableTextMorph simpleFrameAdornments: false. "Windows" Preferences installUniformWindowColors. SystemWindow reuseWindows: false. SystemWindow windowsActiveOnlyOnTop: true. Model windowActiveOnFirstClick: false. "Not good for 800x600" Preferences disable: #showSplitterHandles; enable: #fastDragWindowForMorphic. CornerGripMorph drawCornerResizeHandles: false. ProportionalSplitterMorph smartHorizontalSplitters: false ; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; disable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 6. + SystemWindow roundedWindowCorners: false. - Preferences disable: #roundedWindowCorners. PluggableButtonMorph roundedButtonCorners: false. FillInTheBlankMorph roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." Preferences disable: #gradientScrollBars. SystemWindow gradientWindow: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. "Shadows" Preferences enable: #menuAppearance3d. MenuMorph menuBorderWidth: 1; menuBorderColor: Color lightGray; menuLineColor: Color lightGray. Morph useSoftDropShadow: true.. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; highlightHoveredRow: true; menuRequestUpdatesSelection: true. PluggableTreeMorph filterByLabelsOnly: false; maximumSearchDepth: 1. LazyListMorph listSelectionTextColor: Color black; listSelectionColor: (Color r: 0.72 g: 0.72 b: 0.9). "Standard Tools" BalloonMorph balloonColor: (Color r: 0.92 g: 0.92 b: 0.706). Workspace shouldStyle: false. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. Preferences enable: #annotationPanes; enable: #optionalButtons; enable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer. SystemNavigation thoroughSenders: true. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. "that's all, folks"!

1 0

The Trunk: MorphicExtras-mt.177.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.177.mcz ==================== Summary ==================== Name: MorphicExtras-mt.177 Author: mt Time: 28 July 2016, 11:16:16.844276 am UUID: d99cb4ca-a34d-8143-8035-b67fd586bc7f Ancestors: MorphicExtras-topa.176 Uses pragma preference for rounded window corners. =============== Diff against MorphicExtras-topa.176 =============== Item was changed: ----- Method: EnvelopeEditorMorph>>wantsRoundedCorners (in category 'rounding') ----- wantsRoundedCorners + ^ SystemWindow roundedWindowCorners or: [super wantsRoundedCorners]! - ^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]!

1 0

The Trunk: Morphic-mt.1200.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1200.mcz ==================== Summary ==================== Name: Morphic-mt.1200 Author: mt Time: 28 July 2016, 11:15:23.107276 am UUID: e7d3f249-f9e8-e546-97f7-a98a3db03b31 Ancestors: Morphic-mt.1199 Adds pragma preference for rounded window corners. =============== Diff against Morphic-mt.1199 =============== Item was changed: ----- Method: ProjectViewMorph>>wantsRoundedCorners (in category 'rounding') ----- wantsRoundedCorners + ^SystemWindow roundedWindowCorners - ^Preferences roundedWindowCorners and: [(owner isSystemWindow) not]! Item was changed: ----- Method: ScorePlayerMorph>>wantsRoundedCorners (in category 'rounding') ----- wantsRoundedCorners + ^ SystemWindow roundedWindowCorners or: [super wantsRoundedCorners]! - ^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]! Item was changed: MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox paneMorphs paneRects collapsedFrame fullFrame isCollapsed isActive isLookingFocused menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' + classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows RoundedWindowCorners TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick' - classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was removed: - ----- Method: SystemWindow class>>initialize (in category 'initializing') ----- - initialize - "SystemWindow initialize" - - CollapseBoxImageGradient := nil. - CloseBoxImageGradient := nil. - ExpandBoxImageGradient := nil. - MenuBoxImageGradient := nil. - - CollapseBoxImageFlat := nil. - CloseBoxImageFlat := nil. - ExpandBoxImageFlat := nil. - MenuBoxImageFlat := nil. - - self updatePreferences.! Item was added: + ----- Method: SystemWindow class>>roundedWindowCorners (in category 'preferences') ----- + roundedWindowCorners + + <preference: 'Rounded Window Corners' + category: 'windows' + description: 'If true, windows will have a rounded corners.' + type: #Boolean> + ^ RoundedWindowCorners ifNil: [false]! Item was added: + ----- Method: SystemWindow class>>roundedWindowCorners: (in category 'preferences') ----- + roundedWindowCorners: aBoolean + + RoundedWindowCorners = aBoolean ifTrue: [^ self]. + RoundedWindowCorners := aBoolean. + self refreshAllWindows.! Item was removed: - ----- Method: SystemWindow class>>updatePreferences (in category 'initializing') ----- - updatePreferences - "Temporary method to update system-wide preferences" - Preferences installNormalWindowColors. - - Preferences setPreference: #menuAppearance3d toValue: true. - (Preferences preferenceAt: #menuAppearance3d) defaultValue: true. - - Preferences setPreference: #menuColorFromWorld toValue: false. - (Preferences preferenceAt: #menuColorFromWorld) defaultValue: false. - - MenuMorph roundedMenuCorners: false. - - MenuMorph menuColor: (Color gray: 0.9). - MenuMorph menuTitleColor: (Color transparent). - MenuMorph menuTitleBorderWidth: 0. - Preferences - setParameter: #defaultWorldColor - to: (Color gray: 0.25). - - Preferences setPreference: #showSplitterHandles toValue: false. - (Preferences preferenceAt: #showSplitterHandles) defaultValue: true. - - Preferences setPreference: #showSharedFlaps toValue: false. - (Preferences preferenceAt: #showSharedFlaps) defaultValue: false. - - CornerGripMorph drawCornerResizeHandles: false. - FillInTheBlankMorph roundedDialogCorners: true. - - LazyListMorph - listSelectionColor: LazyListMorph listSelectionColor; - listSelectionTextColor: Color black. - PluggableButtonMorph roundedButtonCorners: true. - SystemWindow - clickOnLabelToEdit: false; - doubleClickOnLabelToExpand: true; - moveMenuButtonRight: true; - hideExpandButton: false.! Item was changed: ----- Method: SystemWindow>>wantsRoundedCorners (in category 'drawing') ----- wantsRoundedCorners + ^ false "Temporarily."! - ^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]! Item was changed: ----- Method: TheWorldMenu>>roundedCornersString (in category 'action') ----- roundedCornersString + ^ (((SystemWindow roundedWindowCorners) + ifTrue: ['stop'] + ifFalse: ['start']) , ' rounding window corners') translated! - ^ Preferences roundedCornersString! Item was changed: ----- Method: TheWorldMenu>>toggleRoundedCorners (in category 'action') ----- toggleRoundedCorners + SystemWindow roundedWindowCorners: SystemWindow roundedWindowCorners not.! - Preferences toggle: #roundedWindowCorners.! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'! - (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling that occurs in the same control flow after loading this code." - HandMorph allInstancesDo: [:ea | ea initForEvents]. - - "Deploy mouse-wheel event handling to existing scrollpanes and hands." - Project allMorphicProjects do: [:morphicProject | - morphicProject world handsDo: [:hand | - hand addKeyboardCaptureFilter: hand]]. - ScrollPane allSubInstancesDo: [:ea | - ea addKeyboardCaptureFilter: ea]. - - "Add Do-menu." - TheWorldMainDockingBar updateInstances.'!

1 0

The Trunk: System-mt.842.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.842.mcz ==================== Summary ==================== Name: System-mt.842 Author: mt Time: 28 July 2016, 10:59:39.771276 am UUID: b894e8fa-54e5-b949-9ffc-692b40146ba3 Ancestors: System-mt.841 Fixes uni-class check due to latest updates in EToys package. =============== Diff against System-mt.841 =============== Item was changed: ----- Method: DeepCopier>>checkBasicClasses (in category 'like fullCopy') ----- checkBasicClasses "Check that no indexes of instance vars have changed in certain classes. If you get an error in this method, an implementation of veryDeepCopyWith: needs to be updated. The idea is to catch a change while it is still in the system of the programmer who made it. DeepCopier new checkVariables " | str str2 objCls morphCls playerCls | str := '|veryDeepCopyWith: or veryDeepInner: is out of date.'. (objCls := self objInMemory: #Object) ifNotNil: [ objCls instSize = 0 ifFalse: [self error: 'Many implementers of veryDeepCopyWith: are out of date']]. (morphCls := self objInMemory: #Morph) ifNotNil: [ morphCls superclass == Object ifFalse: [self error: 'Morph', str]. (morphCls instVarNames copyFrom: 1 to: 6) = #('bounds' 'owner' 'submorphs' 'fullBounds' 'color' 'extension') ifFalse: [self error: 'Morph', str]]. "added ones are OK" str2 := 'Player|copyUniClassWith: and DeepCopier|mapUniClasses are out of date'. (playerCls := self objInMemory: #Player) ifNotNil: [ + playerCls class instVarNames = #('scripts' 'slotInfo' 'variableDocks') - playerCls class instVarNames = #('scripts' 'slotInfo') ifFalse: [self error: str2]]. !

1 0

The Trunk: Morphic-mt.1199.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1199.mcz ==================== Summary ==================== Name: Morphic-mt.1199 Author: mt Time: 28 July 2016, 10:29:17.521721 am UUID: c1d1bd2b-0884-f749-8b20-91ddd42be224 Ancestors: Morphic-mt.1198 Improve robustness for tricky debugging scenarios. =============== Diff against Morphic-mt.1198 =============== Item was changed: ----- Method: MorphicProject>>spawnNewProcessIfThisIsUI: (in category 'active process') ----- spawnNewProcessIfThisIsUI: suspendedProcess "Initialize a UI process if needed. Answer true if suspendedProcess was interrupted from a UI process." self uiProcess == suspendedProcess ifTrue: [ self spawnNewProcess. ^true ]. "Ensure that the UI process is running." + self uiProcess + ifNil: [self spawnNewProcess] + ifNotNil: [:p | p isSuspended ifTrue: [ + self restoreDisplay. + self uiProcess resume]]. - self uiProcess isSuspended ifTrue: [ - self restoreDisplay. - self uiProcess resume]. ^false "no new process was created" !

1 0

The Trunk: Tools-tfel.709.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Tim Felgentreff uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tfel.709.mcz ==================== Summary ==================== Name: Tools-tfel.709 Author: tfel Time: 28 July 2016, 10:19:54.053676 am UUID: 14f22a50-0418-2c43-9139-d5b28a9b9ea9 Ancestors: Tools-mt.708 Fix a small bug in FileList2. FileList>>itemsForFile: now needs a fully qualified path =============== Diff against Tools-mt.708 =============== Item was changed: ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') ----- endingSpecs "Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so." "FileList2 morphicViewGeneralLoaderInWorld: World" | categories specs rejects | rejects := #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn:). categories := #( ('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm')) ('Morphs' ('morph' 'morphs' 'sp')) ('Projects' ('extseg' 'project' 'pr')) ('MIDI' ('mid' 'midi')) ('Music' ('mp3')) ('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov')) ('Flash' ('swf')) ). "('Books' ('bo'))" "('Code' ('st' 'cs'))" "('TrueType' ('ttf'))" "('3ds' ('3ds'))" "('Tape' ('tape'))" "('Wonderland' ('wrl'))" "('HTML' ('htm' 'html'))" categories first at: 2 put: ImageReadWriter allTypicalFileExtensions. specs := OrderedCollection new. categories do: [ :cat | | catSpecs catServices okExtensions services | services := Dictionary new. catSpecs := Array new: 3. catServices := OrderedCollection new. okExtensions := Set new. + cat second do: [ :ext | (FileList itemsForFile: (FileDirectory default fullPathFor: ('fred.',ext))) do: [ :i | - cat second do: [ :ext | (FileList itemsForFile: 'fred.',ext) do: [ :i | (rejects includes: i selector) ifFalse: [ okExtensions add: ext. services at: i label put: i ]]]. services do: [ :svc | catServices add: svc ]. services isEmpty ifFalse: [ catSpecs at: 1 put: cat first; at: 2 put: okExtensions; at: 3 put: catServices. specs add: catSpecs ] ]. ^specs !

1 0

Daily Commit Log
by commits＠source.squeak.org 27 Jul '16

27 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068306.html Name: EToys-tfel.139 Ancestors: EToys-topa.138 push variableDocks from CardPlayer up to Player, to make older EToys examples work ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068307.html Name: Graphics-tfel.355 Ancestors: Graphics-tpr.354 small fix to allow creating Forms from hibernated bitmaps, like the Sugar icon library does =============================================

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
23
Older →

Jump to page: