Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 8cc0a20f26
Fetching contributors…

Cannot retrieve contributors at this time

file 81 lines (57 sloc) 3.203 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
 '$Revision: 30.1 $'
 '
Copyright 1992-2006 Sun Microsystems, Inc. and Stanford University.
See the LICENSE file for license information.
'


 '-- Module body'

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot'
        
         quartzHosts = bootstrap define: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () ToBe: bootstrap addSlotsTo: (
             bootstrap remove: 'directory' From:
             bootstrap remove: 'fileInTimeString' From:
             bootstrap remove: 'myComment' From:
             bootstrap remove: 'postFileIn' From:
             bootstrap remove: 'revision' From:
             bootstrap remove: 'subpartNames' From:
             globals modules init copy ) From: bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( |
             {} = 'ModuleInfo: Creator: globals modules quartzHosts.

CopyDowns:
globals modules init. copy
SlotsToOmit: directory fileInTimeString myComment postFileIn revision subpartNames.

\x7fIsComplete: '.
            | ) .
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot\x7fVisibility: public'
        
         directory <- 'core'.
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: InitializeToExpression: (_CurrentTimeString)\x7fVisibility: public'
        
         fileInTimeString <- _CurrentTimeString.
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot'
        
         myComment <- ''.
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot'
        
         postFileIn = ( |
            | resend.postFileIn).
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot\x7fVisibility: public'
        
         revision <- '$Revision: 30.1 $'.
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'quartzHosts' -> () From: ( | {
         'ModuleInfo: Module: quartzHosts InitialContents: FollowSlot\x7fVisibility: private'
        
         subpartNames <- ''.
        } | )

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> () From: ( | {
         'Category: platform dependencies\x7fCategory: graphics\x7fModuleInfo: Module: quartzHosts InitialContents: FollowSlot\x7fVisibility: public'
        
         quartzGlobals = bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'quartzGlobals' -> () From: ( |
             {} = 'ModuleInfo: Creator: globals quartzGlobals.
'.
            | ) .
        } | )



 '-- Side effects'

 globals modules quartzHosts postFileIn
Something went wrong with that request. Please try again.