Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

Start a nNew thread

source.squeak.org - 502 bad gateway
by Michael Haupt 30 Jan '10

30 Jan '10

Hi, is this only me, or does the server have a problem? Best, Michael

9 16

generalizedYellowButtonMenu
by Elöd Kironský 14 Jan '10

14 Jan '10

Hi! Can someone please explain what is the preference "generalizedYellowButtonMenu" for? It is by default enabled in Squeak and it breaks the yellowButtonPressed event in mouseDown: methods. I've tried to Google it, but the only thing I found, that it makes problems in other packages too. Am I missing something? This was introduced somewhere in 3.9 I think, but I'm not sure where and why. Does someone know? Thanks in advance, Elod

4 8

Problem installing Alien
by Casimiro de Almeida Barreto 30 Nov '09

30 Nov '09

When installing Alien (after last upgrades in trunk) I have the following error: MessageNotUnderstood: TempVariableNode>>doesNotUnderstand: #code It happens in AlienInstaller>>install MessageNotUnderstood: TempVariableNode>>code: TempVariableNode(Object)>>doesNotUnderstand: #code: EncoderForV3PlusClosures(Encoder)>>fixTemp: BytecodeAgnosticMethodNode>>generate: Alien class(Behavior)>>recompile:from: Alien class(Behavior)>>recompile: [] in AlienInstaller class>>install [] in [] in Array(SequenceableCollection)>>do:displayingProgress: Array(SequenceableCollection)>>withIndexDo: [] in Array(SequenceableCollection)>>do:displayingProgress: [] in [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: install | repository | repository := (Installer repository: 'http://www.squeaksource.com/') project: 'Alien'. #( 'Alien-Core-First' 'Alien-Core' 'Alien-Examples' 'Alien-LibC' 'Alien-CoreTest' 'Alien-Last-Class-Initialize' ) do: [ :p | repository install: p ] displayingProgress: 'Installing Alien packages ...'. (PackageInfo named: 'Alien') methods do: [:ea | ea actualClass recompile: ea methodSymbol] displayingProgress: 'Recompiling...'

2 4

Re: [squeak-dev] Clamato
by Avi Bryant 20 Nov '09

20 Nov '09

On Thu, Sep 3, 2009 at 9:19 PM, Dan Ingalls<Dan(a)squeakland.org> wrote: > Here's what I project from what I'm hearing... > > 1. You like Smalltalk, so you want a language that is as much like it as possible... except for things you don't like, of course. This also fits in with your "shop" that does a lot of other real Smalltalk work. > > 2. You want to take advantage of engines like V8 that offer (a) ubiquity in browsers, and (b) escalating performance paid for by the few remaining profitable companies. > > 3. This implies a very close mapping onto JavaScript semantics, but really only onto the subset that you need for the job. Dead on. > What have you left out on purpose because you don't like it? > What have you left out that you would rather not leave out? > What have you changed that you would rather not? It's easier for me to answer these by listing the major changes and how I feel about each of them. One change that I am happy with is getting rid of #subclass:instanceVariableNames:... style class definitions. A Clamato program can be represented entirely as a set of method definitions, which is great from a tools perspective. This required a #superclass method on the class side (which you override to inherit from anything other than Object), and the @ syntax for instance variables. I don't love the @ syntax, but it has at least two advantages. One is that, by essentially moving instance variable declarations into the methods, you can easily add instance variables to classes in other packages - Squeak has never had a good way to do this. The other is that methods can be parsed and compiled with no context - unlike in Smalltalk, can identify instance variables vs. temps vs. globals without knowing anything about the class you are compiling the method for. OTOH it's kind of ugly. I *think* I like having left out explicit returns and implicitly returning self, in favor of implcitly returning the value of the last statement. It unifies methods and blocks in a way I find pleasing. However, my hand was somewhat forced here by Javascript semantics. The only way to implement them (that I can think of) would be to throw an exception, which would get caught and rethrown at every level up the stack frame until it found the right one. I don't want to do this to the poor VM. I've provided a "self return: [:returnBlock | ...]" primitive that provides this when you really need it, but I've found it's rarely used. I tried to leave out the cascade syntax, but found it was too useful and had to put it back. I dislike not having a proper metaclass hierarchy (class side methods don't get inherited by subclasses), but I'm not sure I want to blindly copy ST80 here either. Newspeak has some interesting around constructors but they're a tad heavyweight for my taste. Using 0 based indexing keeps tripping me up. That may go away. There are currently no array literals. This is obviously a bad thing, I'm just not sure what form they would take. Allowing JSON literals is kinda appealing, and {} isn't doing too much yet. There's no doesNotUnderstand:, which is a shame, but it's not worth the performance hit to allow it. > What would you still like to change? I'm very intrigued by Newspeak's "no static state", and the way it approaches namespaces. I haven't felt any pain yet which I would need that to resolve, but maybe that will come. Mostly, though, I'm trying not to get sucked into large-scale language design, and instead am looking for the smallest reasonable set of changes I can make to Smalltalk that will let it thrive on top of Javascript. So if I haven't already needed to make a change to get this far, I probably won't make it. I'm taking a more radical approach to the tooling. I really, really like the Caesar browser we've developed which treats each type of browser (senders, implementor, hierarchy, etc) as simply a search that returns a list of methods, and lifts its overall design (tabs + location bar + forward/back buttons) from the web browser. (It's also been amazing to work with our web designer, Luke Andrews, on this, especially as he's been learning Smalltalk to do it). Avi

4 4

MVC scheduling broken in trunk
by David T. Lewis 01 Nov '09

01 Nov '09

Something is out of whack with MVC control scheduling in Squeak trunk. I am guessing that it may be something related to some earlier process scheduling changes, but I can't spot what is going wrong. Here are a couple of scenarios that illustrate the problem. Can anyone point me in the right direction to find the cause? Scenario 1: From an MVC project, evaluate: ProjectView open: MVCProject new. No window opens, and the image will not respond. Now do an <alt><period>, and Squeak exits with "scheduler could not find a runnable process" on the console. Scenario 2: In an MVC project, do <alt><period>. No debugger window opens. Do another <alt><period>, and Squeak exits with "scheduler could not find a runnable process" on the console. I first noticed this issue some time ago when I was checking low space interrupt handling (which is broken for the same reason I guess). Today I was looking at a problem in the MVC open->mvc project menu and see the same sort of symptoms, so I think this is an issue that has been in trunk for a while, most likely prior to any of the recent Project refactorings to separate MVC and Morphic. Thanks, Dave

2 2

Daily Commit Log
by commits＠source.squeak.org 01 Nov '09

01 Nov '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-October/001704.ht… Name: Traits-nice.242 Ancestors: Traits-nice.241 minor refactoring rename #becomeEmpty -> #removeAll (also proposed to pharo) Rationale: no reason to have multiple selectors for the same feature Moreover, becomeEmpty had only 1 implementor and 1 sender ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001705.ht… Name: Graphics-nice.86 Ancestors: Graphics-nice.85 while at arcTan: fix 2 ULP in Float theta Note that Float theta is in [0,2*pi[ while arcTan: is in [-pi,pi] (0 at 0) theta leads to pi/2 instead of 0 for new version of arcTan: (pi for old version) #arcTan: does handle case of negativeZero, #theta doesn't ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001706.ht… Name: Collections-ar.176 Ancestors: Collections-nice.175, Collections-ul.175 Merging Name: Collections-ul.175 - reimplemented Set >> #rehashAllSets, it sends the new #rehashAllInstances to self and all subclasses. - deprecated #quickRehashAllSets, because it didn't rehash all subinstances of Set and #rehashAllSets is fast enough with Kernel-ul.283, it also sends #rehashAllSets instead of the old implementation (no senders in trunk). use it with Kernel-ul.283, load order doesn't matter ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001707.ht… Name: Kernel-ar.284 Ancestors: Kernel-nice.283, Kernel-ul.283 Merging Kernel-ul.283: Updated MethodDictionary - added MethodDictionary class >> #rehashAllInstances which rehashes all instances and changes the identities in one shot. Much faster than single #become: sends. - removed - #add: - same implementation in superclass - #at:putNoBecome:, #fullCheckNoBecome, #growNoBecome, #removeKeyNoBecome: - old methods with no senders (not even in 3.8 full), no comment stating their usefulness - modified several methods which have cleaner code and/or better performance assuming the following invariant: (self basicAt: index) isNil = (array at: index) isNil - added a line about the invariant to the class comment ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001708.ht… Name: Monticello-nice.330 Ancestors: Monticello-nice.329 Add a protection in order to be able to evaluate (MCDefinition classPool at: #Instances) inspect. While at it, changed some and: [] and: [] into and: [ and: []] I do not see what the former brings but downspeed. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001709.ht… Name: Kernel-nice.285 Ancestors: Kernel-ar.284 store a Float exactly so it can be interpreted back unchanged - according to my solution proposed at http://bugs.squeak.org/view.php?id=1631 Note that SqNumberParser SHOULD be used for interpreting the Number exactly. Previous Number>>readFrom: accumulate roundoff errors ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001710.ht… Name: Collections-nice.177 Ancestors: Collections-ar.176 Patch to make literal Array store Float exactly ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001711.ht… Name: Morphic-dtl.218 Ancestors: Morphic-MarcoSchmidt.217 Move docking bars support from Project to MorphicProject, with some cosmetic changes and spelling corrections. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001712.ht… Name: System-dtl.159 Ancestors: System-nice.158 Move docking bars support from Project to MorphicProject. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001713.ht… Name: Morphic-dtl.219 Ancestors: Morphic-dtl.218 Move flaps support from Project to MorphicProject. Remove 3 #isMorphic: sends, fix spelling error and comment example. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001714.ht… Name: System-dtl.160 Ancestors: System-dtl.159 Move flaps support from Project to MorphicProject. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001715.ht… Name: Multilingual-ar.58 Ancestors: Multilingual-ar.57 Undeclared cleanup. Declare acceptEncodings in CompoundTextConverter. ==== ERROR === Error: subscript is out of bounds: 0 31 October 2009 8:04:15 pm VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: nil hereChar: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]} Previous message: [Pkg] The Trunk: System-dtl.160.mcz Next message: [Pkg] The Trunk: ST80-dtl.61.mcz Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] More information about the Packages mailing list ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001716.ht… Name: ST80-dtl.61 Ancestors: ST80-ar.60 Add #defaultBackgroundColor (moved from Project to MVCProject) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001717.ht… Name: Morphic-ar.220 Ancestors: Morphic-dtl.219 Undeclared cleanup. Declare DefaultFill in MorphicProject and promote isSafeToServe into Morph to remove FlashMorph reference (requires companion change in Nebraska). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001718.ht… Name: Nebraska-ar.22 Ancestors: Nebraska-ul.21 Companion change to Morphic-ar.220: Check all morphs of the world to be shared whether it's safe to serve them or not. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001719.ht… Name: Morphic-dtl.220 Ancestors: Morphic-dtl.219 Add #defaultBackgroundColor (moved from Project to MorphicProject). Move #initMorphic and #InstallPasteUpAsWorld: from Project. Flag #initMorphic for removal (but check if Etoys uses it). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001720.ht… Name: System-dtl.161 Ancestors: System-dtl.160 Move 5 methods from Project (initialization category) to MVCProject and MorphicProject. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001721.ht… Name: Morphic-ar.221 Ancestors: Morphic-ar.220, Morphic-dtl.220 Merging Morphic-dtl.220: Add #defaultBackgroundColor (moved from Project to MorphicProject). Move #initMorphic and #InstallPasteUpAsWorld: from Project. Flag #initMorphic for removal (but check if Etoys uses it). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001722.ht… Name: Kernel-nice.286 Ancestors: Kernel-nice.285 My last fix conflicted with http://bugs.squeak.org/view.php?id=6695 Float storeStringBase: does not store the radix Merge the two fixes =============================================

1 0

The Trunk: Kernel-nice.286.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.286.mcz ==================== Summary ==================== Name: Kernel-nice.286 Author: nice Time: 31 October 2009, 11:49:19 am UUID: 8990ba20-7244-49e7-b79e-12e397b4a962 Ancestors: Kernel-nice.285 My last fix conflicted with http://bugs.squeak.org/view.php?id=6695 Float storeStringBase: does not store the radix Merge the two fixes =============== Diff against Kernel-nice.285 =============== Item was changed: ----- Method: Float>>storeOn:base: (in category 'printing') ----- storeOn: aStream base: base "Print the Number exactly so it can be interpreted back unchanged" self isFinite + ifTrue: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. + base = 10 ifFalse: [aStream print: base; nextPut: $r]. + self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self abs absPrintExactlyOn: aStream base: base]] - ifTrue: [self > 0 - ifTrue: [self absPrintExactlyOn: aStream base: base] - ifFalse: [self sign = -1 - ifTrue: [aStream nextPutAll: '-']. - self = 0.0 - ifTrue: [aStream nextPutAll: '0.0'] - ifFalse: [self negated absPrintExactlyOn: aStream base: base]]] ifFalse: [self isNaN ifTrue: [aStream nextPutAll: 'Float nan'] ifFalse: [self > 0.0 ifTrue: [aStream nextPutAll: 'Float infinity'] ifFalse: [aStream nextPutAll: 'Float infinity negated']]]!

1 0

printing literals exactly (was isSelfEvaluating)
by Nicolas Cellier 31 Oct '09

31 Oct '09

2009/10/31 Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com>: > 2009/10/31 Stéphane Rollandin <lecteur(a)zogotounga.net>: >>>> If the meaning of #isLiteral is to indicate that what is printed can be >>>> read back (i.e. will be correctly parsed) then I think it is a very useful >>>> message that we should keep. >>> >>> #isLiteral mainly indicates which objects can be created at compile time. >>> They are literally inserted in the compiled method. This must match the >>> syntax definition of Squeak. There is no question about not keeping it. >> >> now I'm confused. are all objects anwering true to #isLiteral also have a >> printed form that can be read back ? should they ? >> >> Stef >> > > I think this is used as a feature at least in Decompiler. > > But can they all be read back ? > Float can't always with the current implementation (they don't print exactly). > > (Compiler evaluate: Float halfPi printString) = Float halfPi > > Nicolas > By the way, there is a workaround in CompiledMethod>>#= self isFloat ifTrue: [...] The #halt: in there sounds like calling for a better fix. For example, the workaround does not work with a literal Array of Float... Nor does it deal with infinity: (Float class compile: (Float class >> #initialize) decompileString classified: nil notifying: requestor trailer: Float class defaultMethodTrailer ifFail: [^nil]) method = (Float class >> #initialize) We have an excellent absPrintExactlyOn:base: that avoids extra digits when unnecessary... ...but it is 3x to 10x slower and nobody dared generalizing its usage. {0.0. Float pi. Float pi * 1.0e200. Float pi * 1.0e-200 . 10.0 . 0.1 . 237.128} collect: [:e | [String streamContents: [:s | e absPrintExactlyOn: s base: 10]] bench ->[String streamContents: [:s | e printOn: s base: 10]] bench] {'12131.77364527095 per second.'->'63358.65653738505 per second.'. '1535.292941411718 per second.'->'6756.64867026595 per second.'. '653.669266146771 per second.'->'6667.066586682664 per second.'. '1004.199160167966 per second.'->'5857.82843431314 per second.'. '8732.85342931414 per second.'->'26025.3949210158 per second.'. '8635.87282543491 per second.'->'19715.45690861827 per second.'. '2666.26674665067 per second.'->'13040.99180163967 per second.'} Nicolas

4 8

The Trunk: Morphic-ar.221.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.221.mcz ==================== Summary ==================== Name: Morphic-ar.221 Author: ar Time: 31 October 2009, 1:49:25 am UUID: 76bd9f2c-a50d-3b4d-9f34-5e02e3a9a6ef Ancestors: Morphic-ar.220, Morphic-dtl.220 Merging Morphic-dtl.220: Add #defaultBackgroundColor (moved from Project to MorphicProject). Move #initMorphic and #InstallPasteUpAsWorld: from Project. Flag #initMorphic for removal (but check if Etoys uses it). =============== Diff against Morphic-ar.220 =============== Item was added: + ----- Method: MorphicProject>>initMorphic (in category 'initialize') ----- + initMorphic + "Written so that Morphic can still be removed. Note that #initialize is never actually called for a morphic project -- see the senders of this method." + + self flag: #toRemove. "check if this method still used by Etoys" + Smalltalk verifyMorphicAvailability ifFalse: [^ nil]. + changeSet := ChangeSet new. + transcript := TranscriptStream new. + displayDepth := Display depth. + parentProject := CurrentProject. + isolatedHead := false. + world := PasteUpMorph newWorldForProject: self. + Locale switchToID: CurrentProject localeID. + self initializeProjectPreferences. "Do this *after* a world is installed so that the project will be recognized as a morphic one." + Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]! Item was added: + ----- Method: MorphicProject>>defaultBackgroundColor (in category 'initialize') ----- + defaultBackgroundColor + ^ Preferences defaultWorldColor! Item was added: + ----- Method: MorphicProject>>installPasteUpAsWorld: (in category 'initialize') ----- + installPasteUpAsWorld: pasteUpMorph + "(ProjectViewMorph newMorphicProjectOn: aPasteUpMorph) openInWorld." + + world := pasteUpMorph beWorldForProject: self!

1 0

The Trunk: System-dtl.161.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.161.mcz ==================== Summary ==================== Name: System-dtl.161 Author: dtl Time: 31 October 2009, 4:11:28 am UUID: b2ac36a5-cfa1-47d7-b4fb-d87231823876 Ancestors: System-dtl.160 Move 5 methods from Project (initialization category) to MVCProject and MorphicProject. =============== Diff against System-dtl.160 =============== Item was changed: ----- Method: Project>>defaultBackgroundColor (in category 'initialization') ----- defaultBackgroundColor + ^ self subclassResponsibility! - ^ self isMorphic - ifTrue: [self backgroundColorForMorphicProject] - ifFalse: [self backgroundColorForMvcProject]! Item was removed: - ----- Method: Project>>installPasteUpAsWorld: (in category 'initialization') ----- - installPasteUpAsWorld: pasteUpMorph - "(ProjectViewMorph newMorphicProjectOn: aPasteUpMorph) openInWorld." - - world := pasteUpMorph beWorldForProject: self! Item was removed: - ----- Method: Project>>initMorphic (in category 'initialization') ----- - initMorphic - "Written so that Morphic can still be removed. Note that #initialize is never actually called for a morphic project -- see the senders of this method." - - Smalltalk verifyMorphicAvailability ifFalse: [^ nil]. - changeSet := ChangeSet new. - transcript := TranscriptStream new. - displayDepth := Display depth. - parentProject := CurrentProject. - isolatedHead := false. - world := PasteUpMorph newWorldForProject: self. - Locale switchToID: CurrentProject localeID. - self initializeProjectPreferences. "Do this *after* a world is installed so that the project will be recognized as a morphic one." - Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]! Item was removed: - ----- Method: Project>>backgroundColorForMorphicProject (in category 'initialization') ----- - backgroundColorForMorphicProject - ^ Preferences defaultWorldColor! Item was removed: - ----- Method: Project>>backgroundColorForMvcProject (in category 'initialization') ----- - backgroundColorForMvcProject - ^ Color r: 1.0 g: 1.0 b: 0.065!

1 0

Jump to page: