Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.345.mcz
==================== Summary ====================
Name: MorphicExtras-mt.345 Author: mt Time: 10 March 2023, 10:33:01.192811 am UUID: 9d4c0247-b63a-f344-9ad4-2c97741d553b Ancestors: MorphicExtras-mt.344
Complement Morphic-mt.2096
=============== Diff against MorphicExtras-mt.344 ===============
Item was removed: - StringMorph subclass: #ClockMorph - instanceVariableNames: 'showSeconds show24hr' - classVariableNames: '' - poolDictionaries: '' - category: 'MorphicExtras-Demo'!
Item was removed: - ----- Method: ClockMorph class>>authoringPrototype (in category 'scripting') ----- - authoringPrototype - ^ super authoringPrototype contents: Time now printString!
Item was removed: - ----- Method: ClockMorph class>>descriptionForPartsBin (in category 'parts bin') ----- - descriptionForPartsBin - "Answer a description for use in parts bins." - - ^ self partName: 'Digital Clock' translatedNoop - categories: {'Just for Fun' translatedNoop} - documentation: 'A digital clock' translatedNoop!
Item was removed: - ----- Method: ClockMorph class>>initialize (in category 'class initialization') ----- - initialize - - self registerInFlapsRegistry. !
Item was removed: - ----- Method: ClockMorph class>>registerInFlapsRegistry (in category 'class initialization') ----- - registerInFlapsRegistry - "Register the receiver in the system's flaps registry" - self environment - at: #Flaps - ifPresent: [:cl | cl registerQuad: {#ClockMorph, #authoringPrototype. 'Clock' translatedNoop. 'A simple digital clock' translatedNoop} - forFlapNamed: 'Supplies'. - cl registerQuad: {#ClockMorph. #authoringPrototype. 'Clock' translatedNoop. 'A simple digital clock' translatedNoop} - forFlapNamed: 'PlugIn Supplies'.]!
Item was removed: - ----- Method: ClockMorph class>>unload (in category 'class initialization') ----- - unload - "Unload the receiver from global registries" - - self environment at: #Flaps ifPresent: [:cl | - cl unregisterQuadsWithReceiver: self] !
Item was removed: - ----- Method: ClockMorph>>addCustomMenuItems:hand: (in category 'menu') ----- - addCustomMenuItems: aCustomMenu hand: aHandMorph - "Add toggles for showing-seconds and display-24-hrs to the halo menu" - - "NB: intentionallyi no super call here!!" - - aCustomMenu add: 'change font' translated action: #changeFont. - - aCustomMenu addUpdating: #showingSecondsString action: #toggleShowingSeconds. - aCustomMenu addUpdating: #displaying24HourString action: #toggleShowing24hr!
Item was removed: - ----- Method: ClockMorph>>balloonText (in category 'accessing') ----- - balloonText - - ^ Date current weekday, ', ', Date current printString!
Item was removed: - ----- Method: ClockMorph>>initialize (in category 'initialization') ----- - initialize - "initialize the state of the receiver" - - super initialize. - - showSeconds := true. - show24hr := false. - self font: Preferences standardMenuFont emphasis: 1. - self step!
Item was removed: - ----- Method: ClockMorph>>initializeToStandAlone (in category 'parts bin') ----- - initializeToStandAlone - super initializeToStandAlone. - showSeconds := false. - self font: (Preferences standardMenuFont emphasized: 1). - self step!
Item was removed: - ----- Method: ClockMorph>>show24hr: (in category '24hr') ----- - show24hr: aBoolean - show24hr := aBoolean!
Item was removed: - ----- Method: ClockMorph>>showSeconds: (in category 'seconds') ----- - showSeconds: aBoolean - showSeconds := aBoolean!
Item was removed: - ----- Method: ClockMorph>>step (in category 'stepping and presenter') ----- - step - - | time | - super step. - time := String streamContents: [ :stream | - | t | - t := Time now. - t seconds: t asSeconds. "ignore nanoSeconds" - t - print24: (show24hr == true) - showSeconds: (showSeconds == true) - on: stream]. - self contents: time!
Item was removed: - ----- Method: ClockMorph>>stepTime (in category 'stepping and presenter') ----- - stepTime - "Answer the desired time between steps in milliseconds." - - ^999!
Item was removed: - ----- Method: ClockMorph>>toggleShowing24hr (in category '24hr') ----- - toggleShowing24hr - show24hr := (show24hr == true) not - !
Item was removed: - ----- Method: ClockMorph>>toggleShowingSeconds (in category 'seconds') ----- - toggleShowingSeconds - showSeconds := (showSeconds == true) not - !