Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

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

28 Jul '16

Tim Felgentreff uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tfel.356.mcz ==================== Summary ==================== Name: Graphics-tfel.356 Author: tfel Time: 28 July 2016, 5:07:03.284263 pm UUID: 563a9dfa-5c42-b44a-8122-dbb5f553f5c4 Ancestors: Graphics-tfel.355 add a preference for bigger cursors (from etoys) and fix fallback for CursorWithAlpha for systems that do not support 32-bit cursors with alpha =============== Diff against Graphics-tfel.355 =============== Item was changed: Form subclass: #Cursor instanceVariableNames: '' + classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TopLeftCursor TopRightCursor UpCursor UseBiggerCursors WaitCursor WebLinkCursor WriteCursor XeqCursor' - classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TopLeftCursor TopRightCursor UpCursor WaitCursor WebLinkCursor WriteCursor XeqCursor' poolDictionaries: '' category: 'Graphics-Display Objects'! !Cursor commentStamp: '<historical>' prior: 0! I am a Form that is a possible appearance for a mouse cursor. My size is always 16x16, ever since the original implementation on the Alto. There are many examples available in the "current cursor" category of class methods. For example, "Cursor normal" and "Cursor wait". For example: Cursor wait show ! Item was changed: ----- Method: Cursor class>>currentCursor: (in category 'current cursor') ----- currentCursor: aCursor "Make the instance of cursor, aCursor, be the current cursor. Display it. Create an error if the argument is not a Cursor." (aCursor isKindOf: self) ifTrue: [CurrentCursor := aCursor. + self useBiggerCursors + ifTrue: [[^ aCursor asBigCursor beCursor] + on: Error do: ["fall through"]]. aCursor beCursor] ifFalse: [self error: 'The new cursor must be an instance of class Cursor']! Item was added: + ----- Method: Cursor class>>useBiggerCursors (in category 'preferences') ----- + useBiggerCursors + + <preference: 'Use bigger mouse cursors' + category: 'mouse' + description: 'If true, mouse cursors are scaled up' + type: #Boolean> + ^ UseBiggerCursors ifNil: [false]! Item was added: + ----- Method: Cursor class>>useBiggerCursors: (in category 'preferences') ----- + useBiggerCursors: aBool + + UseBiggerCursors := aBool! Item was added: + ----- Method: Cursor>>asBigCursor (in category 'converting') ----- + asBigCursor + "Big cursors are 32 bits deep (ARGB premultiplied)" + depth = 32 + ifFalse: [^self enlargedBy: 2]. + ^self! Item was added: + ----- Method: Cursor>>enlargedBy: (in category 'converting') ----- + enlargedBy: scale + "Big cursors are 32 bits deep (ARGB premultiplied)" + | big | + scale = 1 ifTrue: [^self]. + big := CursorWithAlpha extent: self extent * scale depth: 32. + (self asCursorForm magnifyBy: scale) displayOn: big. + big offset: (self offset - 0.5 * scale min: 0@0 max: big extent negated) asIntegerPoint. + big fallback: self. + ^big! Item was added: + ----- Method: CursorWithAlpha>>beCursor (in category 'primitives') ----- + beCursor + <primitive: 101> + self fallback beCursor! Item was removed: - ----- Method: CursorWithAlpha>>primBeCursor (in category 'primitives') ----- - primBeCursor - <primitive: 101> - self fallback primBeCursor!

1 0

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

28 Jul '16

Tim Felgentreff uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.846.mcz ==================== Summary ==================== Name: System-tfel.846 Author: tfel Time: 28 July 2016, 4:52:57.324263 pm UUID: 7f191604-b02d-4e48-946a-9001cd9c6480 Ancestors: System-mt.845 various fixes for locale support =============== Diff against System-mt.845 =============== 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: 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]]]. - (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID] - ] ]. ]. ^ids! Item was changed: ----- Method: LocaleID class>>posixName: (in category 'instance creation') ----- posixName: aString ^ self + isoString: (aString copyReplaceAll: '_' with: '-')! - isoString: (aString copyReplaceAll: ':=' with: '-')! Item was changed: ----- Method: LocaleID>>displayName (in category 'accessing') ----- displayName "Answer a proper name to represent the receiver in GUI. The wording is provided by translations of the magic value '<language display name>'. 'English' -> 'English' 'German' -> 'Deutsch' " | magicPhrase translatedMagicPhrase | magicPhrase := '<language display name>'. + translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self. - translatedMagicPhrase := GetTextTranslator translateWithoutLoading: magicPhrase toLocaleID: self. ^ translatedMagicPhrase = magicPhrase ifTrue: [self displayLanguage] ifFalse: [translatedMagicPhrase]! Item was added: + ----- Method: LocaleID>>isoCountry: (in category 'accessing') ----- + isoCountry: aValue + + isoCountry := aValue! Item was changed: ----- Method: LocaleID>>parent (in category 'accessing') ----- parent + ^ (self class + isoLanguage: self isoLanguage) + isoCountry: nil; + yourself! - ^self class isoLanguage: self isoLanguage! Item was changed: ----- Method: LocaleID>>posixName (in category 'printing') ----- posixName "(LocaleID isoString: 'es-MX') posixName" "(LocaleID isoString: 'es') posixName" "language[_territory]" ^ self isoCountry ifNil: [self isoLanguage] + ifNotNil: [self isoLanguage , '_' , self isoCountry]! - ifNotNil: [self isoLanguage , ':=' , self isoCountry]! Item was changed: ----- Method: Object>>localeChanged (in category '*System-Localization-locales') ----- localeChanged + "Can react to changed locales"! - self shouldBeImplemented!

1 0

The Trunk: System-mt.845.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.845.mcz ==================== Summary ==================== Name: System-mt.845 Author: mt Time: 28 July 2016, 3:40:31.153087 pm UUID: 0a96d066-bdea-2845-abeb-2adcc248dd29 Ancestors: System-mt.844 Also add the generic hook to avoid display updates to all project kinds. =============== Diff against System-mt.844 =============== Item was added: + ----- Method: Project>>noDisplayDuring: (in category 'displaying') ----- + noDisplayDuring: block + "Projects can provide means to bypass screen updates so that graphics code can be updated safely."!

1 0

The Trunk: Morphic-mt.1205.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.1205.mcz ==================== Summary ==================== Name: Morphic-mt.1205 Author: mt Time: 28 July 2016, 3:39:20.355087 pm UUID: aa6ba894-8f4a-344e-8506-25c7e6418266 Ancestors: Morphic-mt.1204 Provide a simple interface to avoid display updates. For example, if you change a bunch of things in, say, the PluggableButtonMorph and you happen to have one visible on the screen, transcripts or system progress bars will trigger visual updates at a time when code is in an inconsistent state. =============== Diff against Morphic-mt.1204 =============== Item was added: + ----- Method: MorphicProject>>noDisplayDuring: (in category 'display') ----- + noDisplayDuring: block + + self world noDisplayDuring: block.! Item was changed: ----- Method: PasteUpMorph>>displayWorld (in category 'world state') ----- displayWorld + (self valueOfProperty: #shouldDisplayWorld ifAbsent: [true]) + ifTrue: [worldState displayWorld: self submorphs: submorphs].! - worldState displayWorld: self submorphs: submorphs.! Item was added: + ----- Method: PasteUpMorph>>noDisplayDuring: (in category 'world state') ----- + noDisplayDuring: block + "Some morphs insist on updating the display like the system progress bar does. However, some code might be in an inconsistent state. For this, you can use this method to be safe." + + self + setProperty: #shouldDisplayWorld + toValue: false. + + block ensure: [self removeProperty: #shouldDisplayWorld].! Item was changed: ----- Method: PasteUpMorph>>restoreMorphicDisplay (in category 'world state') ----- restoreMorphicDisplay + self removeProperty: #shouldDisplayWorld. - ThumbnailMorph recursionReset. + ThumbnailMorph recursionReset. + self extent: Display extent; viewBox: Display boundingBox; handsDo: [:h | h visible: true; showTemporaryCursor: nil]; restoreFlapsDisplay; restoreMainDockingBarDisplay; fullRepaintNeeded. WorldState addDeferredUIMessage: [Cursor normal show]. !

1 0

The Trunk: Morphic-mt.1204.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.1204.mcz ==================== Summary ==================== Name: Morphic-mt.1204 Author: mt Time: 28 July 2016, 1:15:31.997105 pm UUID: 3969d0bd-e244-6d44-94e2-da5263abe41a Ancestors: Morphic-mt.1203 Fixes some code that is used when refreshing the window colors after a preference change. =============== Diff against Morphic-mt.1203 =============== Item was changed: ----- Method: SystemWindow>>refreshWindowColor (in category 'colors') ----- refreshWindowColor "For changing the underlying model's default window color" self setProperty: #paneColor toValue: nil. self setWindowColor: self paneColor. + self isLookingFocused + ifTrue: [self lookUnfocused; lookFocused] + ifFalse: [self lookFocused; lookUnfocused].! - "Reset colors if we are not active." - self isKeyWindow ifFalse: [ - self paneColorToUseWhenNotActive in: [:c | - self - setStripeColorsFrom: c; - adoptPaneColor: c]].!

1 0

The Trunk: Morphic-mt.1203.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.1203.mcz ==================== Summary ==================== Name: Morphic-mt.1203 Author: mt Time: 28 July 2016, 1:13:25.393105 pm UUID: c1d37e3b-d0d3-8542-88d3-1d50d513eb9d Ancestors: Morphic-mt.1202 Cleans up window refreshing code. Fixes a bug that recreated the close box for windows that where uncloseable. =============== Diff against Morphic-mt.1202 =============== Item was changed: ----- Method: SystemWindow class>>clickOnLabelToEdit: (in category 'preferences') ----- clickOnLabelToEdit: aBoolean ClickOnLabelToEdit := aBoolean. + self refreshAllWindows.! - self rebuildAllWindowLabels.! Item was changed: ----- Method: SystemWindow class>>doubleClickOnLabelToExpand: (in category 'preferences') ----- doubleClickOnLabelToExpand: aBoolean DoubleClickOnLabelToExpand := aBoolean. + self refreshAllWindows. - self rebuildAllWindowLabels. ! Item was changed: ----- Method: SystemWindow class>>moveMenuButtonRight: (in category 'preferences') ----- moveMenuButtonRight: aBoolean | absLeftOffset | absLeftOffset := ((self hideExpandButton and: [aBoolean]) ifTrue: [absLeftOffset := self boxExtent x * 2] ifFalse: [absLeftOffset := self boxExtent x]) + 3. self menuBoxFrame leftOffset: (aBoolean ifTrue: [absLeftOffset negated] ifFalse: [absLeftOffset]). + self refreshAllWindows.! - self rebuildAllWindowLabels.! Item was removed: - ----- Method: SystemWindow class>>rebuildAllWindowLabels (in category 'private') ----- - rebuildAllWindowLabels - - self withAllSubclasses do: [:c | c allInstances do: [:w | w replaceBoxes]].! Item was changed: ----- Method: SystemWindow class>>refreshAllWindows (in category 'initializing') ----- refreshAllWindows "If there is some prominent UI change, use this method to update all open windows." SystemWindow allSubInstances do: [:w | w + replaceBoxes; setDefaultParameters; refreshWindowColor].! Item was changed: ----- Method: SystemWindow>>addCloseBox (in category 'initialization') ----- addCloseBox "If I have a labelArea, add a close box to it" + labelArea ifNil: [^ self]. + mustNotClose == true ifTrue: [^ self]. - labelArea - ifNil: [^ self]. closeBox ifNotNil: [closeBox delete]. closeBox := self createCloseBox. closeBox layoutFrame: self class closeBoxFrame. labelArea addMorphFront: closeBox!

1 0

The Trunk: System-mt.844.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.844.mcz ==================== Summary ==================== Name: System-mt.844 Author: mt Time: 28 July 2016, 11:59:33.417147 am UUID: 4f0b53df-2cca-de41-8e79-958da96f21ce Ancestors: System-mt.843 Remove old-style preference for gradient scroll bars. =============== Diff against System-mt.843 =============== 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) (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>>gradientScrollBars (in category 'standard queries') ----- - gradientScrollBars - ^ self - valueOfFlag: #gradientScrollBars - ifAbsent: [ true ]! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences removePreference: #roundedWindowCorners. + Preferences removePreference: #gradientScrollBars.'! - (PackageInfo named: 'System') postscript: 'Preferences removePreference: #roundedWindowCorners.'!

1 0

The Trunk: ReleaseBuilder-mt.137.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.137.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.137 Author: mt Time: 28 July 2016, 11:58:36.903147 am UUID: e71c47ca-4f2f-994b-9c92-f720cc2c0eb5 Ancestors: ReleaseBuilder-mt.136 Use pragma-style preference for gradient scroll bars. =============== Diff against ReleaseBuilder-mt.136 =============== 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. PluggableButtonMorph roundedButtonCorners: false. FillInTheBlankMorph roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." + ScrollBar gradientScrollBar: false. - 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: Morphic-mt.1202.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.1202.mcz ==================== Summary ==================== Name: Morphic-mt.1202 Author: mt Time: 28 July 2016, 11:57:51.049147 am UUID: e61b0d9d-ba29-b74a-a3ac-aaf3d1be624a Ancestors: Morphic-mt.1201 Add and use pragma-style preference for gradient scroll bars. =============== Diff against Morphic-mt.1201 =============== Item was changed: Slider subclass: #ScrollBar instanceVariableNames: 'menuButton upButton downButton pagingArea scrollDelta pageDelta interval menuSelector timeOfMouseDown timeOfLastScroll nextPageDirection currentScrollDelay' + classVariableNames: 'ArrowImagesCache BoxesImagesCache GradientScrollBar RoundedScrollBarLook ScrollBarsWithoutArrowButtons ScrollBarsWithoutMenuButton UpArrow UpArrow8Bit' - classVariableNames: 'ArrowImagesCache BoxesImagesCache RoundedScrollBarLook ScrollBarsWithoutArrowButtons ScrollBarsWithoutMenuButton UpArrow UpArrow8Bit' poolDictionaries: '' category: 'Morphic-Windows'! !ScrollBar commentStamp: '<historical>' prior: 0! Inspired by an oiginal design of Hans-Martin Mosner, this ScrollBar is intended to exercise the handling of input events in Morphic. With sufficient flexibility in this area, all particular behavior can be concentrated in this single class with no need to specialize any other morphs to achieve button, slider and menu-button behavior. Once we have this working, put in logic for horizontal operation as well. CachedImages was added to reduce the number of forms created and thrown away. This will be helpful for Nebraska and others as well.! Item was changed: ----- Method: ScrollBar class>>createArrowOfDirection:size:color: (in category 'images') ----- createArrowOfDirection: aSymbolDirection size: finalSizeInteger color: aColor "PRIVATE - create an arrow with aSymbolDirectionDirection, finalSizeInteger and aColor aSymbolDirectionDirection = #top, #bottom. #left or #right Try with: (ScrollBar createArrowOfDirection: #top size: 32 color: Color lightGreen) asMorph openInHand. " | resizeFactor outerBox arrow resizedForm gradient | resizeFactor := 4. outerBox := RectangleMorph new extent: finalSizeInteger asPoint * resizeFactor; borderWidth: 0; color: aColor. + self gradientScrollBar ifTrue: [ - Preferences gradientScrollBars ifTrue: [ gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.95). 0.49 -> (Color gray: 0.9). 0.5 -> (Color gray: 0.87). 1 -> (Color gray: 0.93). }. gradient origin: outerBox topLeft. (aSymbolDirection == #left or:[aSymbolDirection == #right]) ifTrue:[gradient direction: 0@ outerBox height] ifFalse:[gradient direction: outerBox width @ 0]. outerBox fillStyle: gradient]. outerBox borderStyle: (BorderStyle width: 4 color: Color lightGray). "" arrow := self createArrowOfDirection: aSymbolDirection in: (outerBox bounds expandBy: -4). self updateScrollBarButtonAspect: arrow color: aColor muchDarker. outerBox addMorphCentered: arrow. "" resizedForm := outerBox imageForm magnify: outerBox imageForm boundingBox by: 1 / resizeFactor smoothing: 4. "" ^ (resizedForm replaceColor: aColor withColor: Color transparent) trimBordersOfColor: Color transparent! Item was changed: ----- Method: ScrollBar class>>createBoxOfSize:color: (in category 'images') ----- createBoxOfSize: finalSizeInteger color: aColor "PRIVATE - create a box with finalSizeInteger and aColor Try with: (ScrollBar createBoxOfSize: 32 color: Color lightGreen) asMorph openInHand. " | resizeFactor outerBox innerBox resizedForm gradient | resizeFactor := 4. outerBox := RectangleMorph new extent: finalSizeInteger asPoint * resizeFactor; borderWidth: 0; color: aColor. + self gradientScrollBar ifTrue: [ - Preferences gradientScrollBars ifTrue: [ gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.95). 0.49 -> (Color gray: 0.9). 0.5 -> (Color gray: 0.87). 1 -> (Color gray: 0.93). }. gradient origin: outerBox topLeft. gradient direction: outerBox width @ 0. outerBox fillStyle: gradient]. outerBox borderStyle: (BorderStyle width: 4 color: Color lightGray). "" innerBox := self createBoxIn: (outerBox bounds expandBy: -4). self updateScrollBarButtonAspect: innerBox color: aColor muchDarker. outerBox addMorphCentered: innerBox. "" resizedForm := outerBox imageForm magnify: outerBox imageForm boundingBox by: 1 / resizeFactor smoothing: 4. "" ^ (resizedForm replaceColor: aColor withColor: Color transparent) trimBordersOfColor: Color transparent! Item was added: + ----- Method: ScrollBar class>>gradientScrollBar (in category 'preferences') ----- + gradientScrollBar + + <preference: 'gradientScrollBar' + categoryList: #(windows scrolling) + description: 'If true, scroll bars will have a gradient look.' + type: #Boolean> + ^ GradientScrollBar ifNil: [false]! Item was added: + ----- Method: ScrollBar class>>gradientScrollBar: (in category 'preferences') ----- + gradientScrollBar: aBoolean + + GradientScrollBar = aBoolean ifTrue: [^ self]. + GradientScrollBar := aBoolean. + + ScrollBar allSubInstancesDo: [:ea | ea updateSliderColor].! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category 'coloring morphs') ----- updateScrollBarButtonAspect: aMorph color: aColor "update aMorph with aColor" | fill direction | aMorph isNil ifTrue: [^ self]. "" aMorph color: aColor. + self gradientScrollBar - Preferences gradientScrollBars ifFalse: [^ self]. "" fill := GradientFillStyle ramp: { 0.0 -> aColor twiceLighter twiceLighter. 1.0 -> aColor twiceDarker}. "" direction := ((aMorph width min: aMorph height) + ((aMorph width - aMorph height) abs * 0.3)) rounded. "" fill origin: aMorph topLeft + (direction // 8). fill direction: direction @ direction. fill radial: true. "" aMorph fillStyle: fill! Item was changed: ----- Method: ScrollBar>>initializePagingArea (in category 'initialize') ----- initializePagingArea "Appearance" pagingArea := RectangleMorph newBounds: self totalSliderArea color: (self class roundedScrollBarLook ifTrue: [Color gray: 0.9] ifFalse: [Color r: 0.6 g: 0.6 b: 0.8]). + self class gradientScrollBar - Preferences gradientScrollBars ifTrue: [pagingArea setBorderWidth: 1 borderColor: (Color lightGray alpha: 0.5)] ifFalse: [pagingArea borderWidth: 0]. self addMorphBack: pagingArea. "Interactions" pagingArea on: #mouseDown send: #scrollPageInit: to: self. pagingArea on: #mouseUp send: #finishedScrolling to: self. ! Item was added: + ----- Method: ScrollBar>>updateSliderColor (in category 'access') ----- + updateSliderColor + + self updateSliderColor: self sliderColor.! Item was changed: ----- Method: ScrollBar>>updateSliderColor: (in category 'access') ----- updateSliderColor: aColor | gradient | + self class gradientScrollBar ifFalse: [ - Preferences gradientScrollBars ifFalse: [ slider borderColor: (aColor adjustBrightness: -0.3); color: aColor. pagingArea borderColor: (aColor muchDarker alpha: pagingArea borderStyle color alpha); color: (aColor darker alpha: 0.35). ^ self]. slider borderStyle: (BorderStyle width: 1 color: Color lightGray). "Fill the slider." gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.95). 0.49 -> (Color gray: 0.9). 0.5 -> (Color gray: 0.87). 1 -> (Color gray: 0.93). }. gradient origin: slider topLeft. gradient direction: (self orientation == #horizontal ifTrue:[0@slider height] ifFalse:[slider width@0]). slider fillStyle: gradient. "Fill the paging area." gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.65). 0.6 -> (Color gray: 0.82). 1 -> (Color gray: 0.88). }. gradient origin: self topLeft. gradient direction: (self orientation == #horizontal ifTrue:[0@self height] ifFalse:[self width@0]). pagingArea fillStyle: gradient.!

1 0

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

28 Jul '16

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.27.mcz ==================== Summary ==================== Name: SystemReporter-mt.27 Author: mt Time: 28 July 2016, 11:32:24.083845 am UUID: afe89257-ac5a-814d-9bc7-b9f991c3f9aa Ancestors: SystemReporter-mt.26 The System Reporter tool is created via tool builder and hence should be a model like all other tools created via tool builder. Note that Model does also have a more efficient management for dependents compared to Object. =============== Diff against SystemReporter-mt.26 =============== Item was changed: + Model subclass: #SystemReporter - Object subclass: #SystemReporter instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner spaceAnalysisResult' classVariableNames: '' poolDictionaries: '' category: 'SystemReporter'! !SystemReporter commentStamp: 'laza 1/18/2011 12:04' prior: 0! SystemReporter offers a window where information about the system is gathered. This can be easily copied to the clipboard and be attached to a bug report for better identification of the context the bug occured in. To extend the SystemReporter: - add a method reportXYZ: aStream to the reporting category - insert a line add: #XYZ method: #reportXYZ to the initialize method !

1 0

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

Jump to page: