|
|
- 'From etoys5.0 of 1 July 2012 [latest update: #2409] on 28 July 2012 at 4:03:37 pm'!
!CalendarMorph methodsFor: 'building' stamp: 'bf 6/24/2012 18:06'!
dayInitialsRow
| newRow |
newRow := self newRow.
Week dayNames
do: [:dayName|
newRow addMorphBack: (TextMorph new
contentsWrapped: dayName translated first asString;
textColor: self labelsDefaultColor;
autoFit: false;
width: 30;
centered;
lock)]
separatedBy: [newRow addMorphBack: AlignmentMorph newVariableTransparentSpacer].
^newRow ! !
!ChronologyConstants class methodsFor: 'class initialization' stamp: 'bf 6/24/2012 17:26'!
initialize
"ChronologyConstants initialize" SqueakEpoch _ 2415386. "Julian day number of 1 Jan 1901"
SecondsInDay _ 86400.
SecondsInHour _ 3600.
SecondsInMinute _ 60.
NanosInSecond _ 10 raisedTo: 9.
NanosInMillisecond _ 10 raisedTo: 6.
DayNames _ #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday) translatedNoop.
MonthNames _ #(January February March April May June July
August September October November December) translatedNoop.
DaysInMonth _ #(31 28 31 30 31 30 31 31 30 31 30 31).
! !
!ColorTileMorph methodsFor: 'event handling' stamp: 'sw 4/25/2012 00:46'!
mouseDownPriority
"Answer the mouseDown priority."
^ 75! !
!CompoundTileMorph methodsFor: '*etoys-debugger' stamp: 'Richo 3/28/2012 13:02'!
evaluateTestPart
| condition |
condition := testPart tiles at: 1 ifAbsent: [^ true].
^ Compiler evaluate: condition codeString
for: (condition associatedPlayer
ifNil: [condition topEditor playerScripted])
logged: false! !
!EToyListenerMorph class methodsFor: 'parts bin' stamp: 'bf 7/26/2012 09:46'!
descriptionForPartsBin
^ self partName: 'Listener' translatedNoop
categories: #()
documentation: 'A tool for receiving things from other Squeak users' translatedNoop! !
!EtoysDebugger methodsFor: 'initialization' stamp: 'sw 6/1/2012 16:55'!
delete
"If there is a highlighter associated with this debugger, delete it."
highlighter ifNotNil:
[:h |
h stopStepping.
h delete]! !
!EtoysDebugger methodsFor: 'evaluating' stamp: 'Richo 3/28/2012 13:03'!
evaluateTest: test
| tile |
test testPart tiles isEmpty
ifTrue: [next := test yesPart tiles at: 1 ifAbsent: [test nextTile].
next = test
ifTrue: [^ self]
ifFalse: [^ self evaluateNextTile]].
self highlight: test testPart.
tile := test evaluateTestPart
ifTrue: [test yesPart]
ifFalse: [test noPart].
next := tile tiles at: 1 ifAbsent: [test nextTile]! !
!ExternalDropHandler class methodsFor: 'class initialization' stamp: 'sw 6/11/2012 17:09'!
initialize
"Class initialization: initialize the table of registered handlers."
"ExternalDropHandler initialize"
self resetRegisteredHandlers.
self
registerHandler: self defaultImageHandler;
registerHandler: self defaultGZipHandler;
registerHandler: self defaultProjectHandler;
registerHandler: self defaultMidiHandler;
registerHandler: self defaultMorphHandler.! !
!GetTextExporter methodsFor: 'private' stamp: 'bf 6/24/2012 22:22'!
createExtraInformation
| extras |
extras := OrderedCollection new.
#(
'ATTENTION TRANSLATORS!! This should be the name of your language as you would like it to appear in the Languages menu, e.g. "Español" or "English"' 'Language-Name'
'ATTENTION TRANSLATORS!! Put in the directionality of your language, that is "LTR" for left-to-right or "RTL" for right-to-left' 'Language-Direction'
) pairsDo: [:first :second |
extras add: (Array with: '' with: first with: second).
].
^ extras! !
!Morph methodsFor: 'menus' stamp: 'bf 6/24/2012 20:39'!
addToggleItemsToHaloMenu: aMenu
"Add standard true/false-checkbox items to the memu"
#(
(resistsRemovalString toggleResistsRemoval 'whether I should be resistant to easy deletion via the pink X handle')
(stickinessString toggleStickiness 'whether I should be resistant to a drag done by mousing down on me')
(lockedString lockUnlockMorph 'when "locked", I am inert to all user interactions')
(hasClipSubmorphsString changeClipSubmorphs 'whether the parts of objects with
|
