shnarazk / learn-cuis Goto Github PK

TaskbarMorph >> screenSizeChanged
self morphPosition: 0@0

 'From Cuis 6.0 [latest update: #5202] on 30 May 2022 at 8:44:24 am'!

  !TaskbarMorph methodsFor: 'initialization' stamp: 'shnarazk 5/30/2022 08:43:59'!
  initialize
      super initialize.
      viewBox _ LayoutMorph newRow color: self defaultColor.
      self
          addMorph: (clock _ LabelMorph contents: '  ')
          layoutSpec: (LayoutSpec morphWidthProportionalHeight: 0.5).
      self
          addMorph: (clock _ UpdatingLabelMorph initializedInstance)
          layoutSpec: (LayoutSpec morphWidthProportionalHeight: 0.5).
      self
          addMorph: viewBox
          layoutSpec:
              (LayoutSpec
                  proportionalWidth: 1.0
                  proportionalHeight: 1.0
                  offAxisEdgeWeight: #rightOrBottom).
      viewBox separation: self defaultHeight // 8.! !

assert: expected equals: actual
	^ self
		assert: expected = actual
		description: [ self comparingStringBetween: expected and: actual ]

assert: expected equals: actual

	^ self
		assert: expected
		equals: actual
		description: nil

assert: actual equals: expected

	"This method raises an AssertionFailure if actual is different (using #= message) from expected.
	 Else it does nothing and execution continues.
	"

	^ self
		  assert: actual = expected
		  description: [ self comparingStringBetween: actual and: expected ]

self runningWorld backgroundImageData: '/PATH/TO/bg.jpg' asFileEntry binaryContents.