System primitive failed in HostPrinter>>primListFontNames

I'm trying to use the RequestingPrinter in the Windows Goodies.  It
throws an exception as detailed in the stack dump below.  Here is the
code which I try which fails.  It gets to self startPrintJobNamed:
'temp.postscript' and blows up.  Any ideas?  Thanks!  -Carl

example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: 'temp.postscript'].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]



Unhandled exception: a primitive has failed
RequestingHostPrinter(Object)>>error:
RequestingHostPrinter(Object)>>primitiveFailed
RequestingHostPrinter(HostPrinter)>>primListFontNames
RequestingHostPrinter(HostGraphicsDevice)>>listFontNames
RequestingHostPrinter(HostPrinter)>>listFontNames
RequestingHostPrinter(GraphicsDevice)>>fontNameListsDo:
FontPolicy>>initializeAvailableFontsFor:
FontPolicy>>initializeFor:
FontPolicy class>>on:
RequestingHostPrinter(GraphicsDevice)>>installFontPolicy
RequestingHostPrinter(HostGraphicsDevice)>>installFontPolicy
RequestingHostPrinter(GraphicsDevice)>>initialize
RequestingHostPrinter(HostGraphicsDevice)>>initialize
optimized [] in HostGraphicsDevice>>handleValue:
BlockClosure>>ifCurtailed:
RequestingHostPrinter(HostGraphicsDevice)>>handleValue:
RequestingHostPrinter>>privateOpen
RequestingHostPrinter(HostPrinter)>>startPrintJobNamed:
RequestingPrinter class(Printer class)>>startPrintJobNamed:
optimized [] in RequestingPrinter class>>example1
PrintCancelledError class(GenericException class)>>handle:do:
RequestingPrinter class>>example1
RequestingPrinter class>>unboundMethod
RequestingPrinter class(Object)>>performMethod:arguments:
RequestingPrinter class(Object)>>performMethod:
HighlightingTextEditorController(ParagraphEditor)>>evaluateCompiled:
optimized [] in ParagraphEditor>>evaluateSelection
BlockClosure>>ensure:
Cursor>>showWhile:
HighlightingTextEditorController(ParagraphEditor)>>evaluateSelection
optimized [] in ParagraphEditor>>doIt
BlockClosure>>on:do:
HighlightingTextEditorController(ParagraphEditor)>>doIt
HighlightingTextEditorController(ParagraphEditor)>>performCommand:
HighlightingTextEditorController(ParagraphEditor)>>doItKey:
HighlightingTextEditorController(ParagraphEditor)>>doItOrDisplayDateKey:
optimized [] in TextEditorController>>processKeyboardEvent:
DispatchTable>>add:do:
HighlightingTextEditorController(TextEditorController)>>processKeyboardEvent:
HighlightingTextEditorController(Controller)>>keyPressedEvent:
KeyPressedEvent>>dispatchTo:
HighlightingTextEditorController(ControllerWithMenu)>>handleEvent:
optimized [] in KeyboardProcessor>>processKeyboardEvent:
BlockClosure>>cull:
HighlightingTextEditorController(Object)>>ifNotNil:
KeyboardProcessor>>processKeyboardEvent:
KeyboardProcessor>>processKeyboardEvent:for:
EventDispatcher>>dispatchEvent:
KeyPressedEvent(Event)>>dispatch
KeyPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
RequestingHostPrinter(Object)>>error:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Arguments:
        aStringOrMessage = an UserMessage('a primitive has failed',
#errPrimitiveFailed, #dialogs)
Context PC = 6

----------------------------------------------------------------------
RequestingHostPrinter(Object)>>primitiveFailed
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 10

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>primListFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 8

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>listFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 4

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>listFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 8

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>fontNameListsDo:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Arguments:
        aBlock = BlockClosure [] in FontPolicy>>initializeAvailableFontsFor:
Context PC = 5

----------------------------------------------------------------------
FontPolicy>>initializeAvailableFontsFor:
Receiver:
        a FontPolicy
Instance Variables:
        availableFonts = an OrderedCollection[0]
        device = a RequestingHostPrinter
        fontClass = MSWindowsFont
        defaultFont = nil
        fontCache = a Dictionary[0]
        tolerance = 9
        nameWeight = 10
        familyWeight = 5
        manufacturerWeight = 1
        encodingWeight = 10
        pixelSizeWeight = 3
        boldnessWeight = 2
        italicWeight = 2
        serifWeight = 1
        fixedWidthWeight = 3
        setWidthWeight = 1
        verticalWeight = 10
        fdCache = nil
        dfCache = nil
        noFontBlock = nil
Arguments:
        aDevice = a RequestingHostPrinter
Context PC = 10

----------------------------------------------------------------------
FontPolicy>>initializeFor:
Receiver:
        a FontPolicy
Instance Variables:
        availableFonts = an OrderedCollection[0]
        device = a RequestingHostPrinter
        fontClass = MSWindowsFont
        defaultFont = nil
        fontCache = a Dictionary[0]
        tolerance = 9
        nameWeight = 10
        familyWeight = 5
        manufacturerWeight = 1
        encodingWeight = 10
        pixelSizeWeight = 3
        boldnessWeight = 2
        italicWeight = 2
        serifWeight = 1
        fixedWidthWeight = 3
        setWidthWeight = 1
        verticalWeight = 10
        fdCache = nil
        dfCache = nil
        noFontBlock = nil
Arguments:
        aDevice = a RequestingHostPrinter
Context PC = 53

----------------------------------------------------------------------
FontPolicy class>>on:
Receiver:
        a FontPolicy class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[60]
        format = 16404
        subclasses = nil
        instanceVariables = an Array[20]
        organization = ('initialize-release' #initializeAvailableFontsFor:
#initializeDefault #initializeFor:)
('accessing' #availableFonts #defaultFont #flushFonts #fontClass
#graphicsDevice #noFontBlock #noFontBlock: #preferredFontSize)
('testing' #allowsScalableFonts)
('accessing weights' #boldnessWeight #encodingWeight #familyWeight
#fixedWidthWeight #italicWeight #manufacturerWeight #nameWeight
#pixelSizeWeight #serifWeight #setWidthWeight #tolerance
#verticalWeight)
('modifying weights' #boldnessWeight: #encodingWeight: #familyWeight:
#fixedWidthWeight: #italicWeight: #manufacturerWeight: #nameWeight:
#pixelSizeWeight: #serifWeight: #setWidthWeight: #tolerance:
#verticalWeight:)
('utilities' #decorateFont:with: #findBestFont:
#findBestFont:allowance: #findFont: #resetFontCache #searchForFont:
#searchForFont:allowance: #usablePlatformFonts)
('private' #bestFont:allowance: #compareSizeOf:to:
#distanceFrom:to:test:value:weight:
#equalityFrom:to:test:value:weight: #isUniversalEncoding:
#matchFont:allowance: #measureDistancesFrom:to:stopAt:)
('private - matching' #boldnessDistanceFrom:to:weight:
#encodingMatchFrom:to:weight: #fixedWidthMatchFrom:to:weight:
#italicMatchFrom:to:weight:
#mappableStringMatchFrom:to:test:value:weight:map:
#serifMatchFrom:to:weight: #setWidthDistanceFrom:to:weight:
#stringMatchFrom:to:test:value:weight: #verticalMatchFrom:to:weight:)

        name = #FontPolicy
        classPool = a NameSpaceOfClass[1]
        environment = a NameSpace[161]
Arguments:
        aGraphicsDevice = a RequestingHostPrinter
Context PC = 6

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>installFontPolicy
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 5

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>installFontPolicy
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 17

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>initialize
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 10

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>initialize
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 8

----------------------------------------------------------------------
optimized [] in HostGraphicsDevice>>handleValue:
Receiver:
        an UndefinedObject
Temporaries:
        .self = a RequestingHostPrinter
        .aBlock = BlockClosure [] in RequestingHostPrinter>>privateOpen
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>ifCurtailed:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in HostGraphicsDevice>>handleValue:
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        terminationBlock = BlockClosure [] in HostGraphicsDevice>>handleValue:
Context PC = 4

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>handleValue:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Arguments:
        aBlock = BlockClosure [] in RequestingHostPrinter>>privateOpen
Context PC = 17

----------------------------------------------------------------------
RequestingHostPrinter>>privateOpen
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Temporaries:
        byteArray = a GraphicsHandle(0)
        dialogStructure = a CCompositePointer {00353C30} (struct tagPDA * )
Context PC = 38

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>startPrintJobNamed:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA * )
Arguments:
        aString = 'temp.postscript'
Context PC = 8

----------------------------------------------------------------------
RequestingPrinter class(Printer class)>>startPrintJobNamed:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        aString = 'temp.postscript'
Context PC = 8

----------------------------------------------------------------------
optimized [] in RequestingPrinter class>>example1
Receiver:
        an UndefinedObject
Temporaries:
        .self = RequestingPrinter
Context PC = 7

----------------------------------------------------------------------
PrintCancelledError class(GenericException class)>>handle:do:
Receiver:
        a PrintCancelledError class
Instance Variables:
        superclass = Error
        methodDict = a MethodDictionary[0]
        format = 16394
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #PrintCancelledError
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[110]
        notifierString = nil
Arguments:
        anExceptionBlock = BlockClosure [] in RequestingPrinter class>>example1
        aProtectedBlock = BlockClosure [] in RequestingPrinter class>>example1
Context PC = 3

----------------------------------------------------------------------
RequestingPrinter class>>example1
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Temporaries:
        ps = nil
        cmp = a ReComposingComposite
        c = an ApplicationStandardSystemController
Context PC = 19

----------------------------------------------------------------------
RequestingPrinter class>>unboundMethod
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Context PC = 3

----------------------------------------------------------------------
RequestingPrinter class(Object)>>performMethod:arguments:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        method = AnnotatedMethod RequestingPrinter class>>unboundMethod
        args = an Array[0]
Context PC = 5

----------------------------------------------------------------------
RequestingPrinter class(Object)>>performMethod:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        method = AnnotatedMethod RequestingPrinter class>>unboundMethod
Context PC = 5

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>evaluateCompiled:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aMethod = AnnotatedMethod RequestingPrinter class>>unboundMethod
Temporaries:
        context = nil
Context PC = 13

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>evaluateSelection
Receiver:
        an UndefinedObject
Temporaries:
        .self = a HighlightingTextEditorController
        .code = AnnotatedMethod RequestingPrinter class>>unboundMethod
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ParagraphEditor>>evaluateSelection
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 4
        image = Depth1Image(extent: 16 @ 16 depth: 1)
        mask = Depth1Image(extent: 16 @ 16 depth: 1)
        hotSpot = 1 @ 1
        name = 'xeq'
Arguments:
        aBlock = BlockClosure [] in ParagraphEditor>>evaluateSelection
Temporaries:
        oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>evaluateSelection
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Temporaries:
        code = AnnotatedMethod RequestingPrinter class>>unboundMethod
        result = nil
Context PC = 14

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>doIt
Receiver:
        an UndefinedObject
Temporaries:
        .self = a HighlightingTextEditorController
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ParagraphEditor>>doIt
        outerContext = nil
        copiedValues = a HighlightingTextEditorController
Arguments:
        anExceptionSelector = CompilationError
        handlerBlock = BlockClosure [] in ParagraphEditor>>doIt
Context PC = 18

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doIt
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Context PC = 20

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>performCommand:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aSelector = #doIt
Context PC = 10

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doItKey:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aCharEvent = a KeyPressedEvent
Context PC = 5

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doItOrDisplayDateKey:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aKeyboardEvent = a KeyPressedEvent
Context PC = 13

----------------------------------------------------------------------
optimized [] in TextEditorController>>processKeyboardEvent:
Receiver:
        an UndefinedObject
Arguments:
        charEvent = a KeyPressedEvent
        sel = #doItOrDisplayDateKey:
Temporaries:
        .self = a HighlightingTextEditorController
        .taStream = a WriteStream
        .taString = '
_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Which Release are you using ?

-----Original Message-----
From: [hidden email] [mailto:[hidden email]] On
Behalf Of Carl Gundel
Sent: Friday, 3 February 2012 3:44 PM
To: VWNC
Subject: [vwnc] System primitive failed in
HostPrinter>>primListFontNames

I'm trying to use the RequestingPrinter in the Windows Goodies.  It
throws an exception as detailed in the stack dump below.  Here is the
code which I try which fails.  It gets to self startPrintJobNamed:
'temp.postscript' and blows up.  Any ideas?  Thanks!  -Carl

example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: 'temp.postscript'].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]



Unhandled exception: a primitive has failed
RequestingHostPrinter(Object)>>error:
RequestingHostPrinter(Object)>>primitiveFailed
RequestingHostPrinter(HostPrinter)>>primListFontNames
RequestingHostPrinter(HostGraphicsDevice)>>listFontNames
RequestingHostPrinter(HostPrinter)>>listFontNames
RequestingHostPrinter(GraphicsDevice)>>fontNameListsDo:
FontPolicy>>initializeAvailableFontsFor:
FontPolicy>>initializeFor:
FontPolicy class>>on:
RequestingHostPrinter(GraphicsDevice)>>installFontPolicy
RequestingHostPrinter(HostGraphicsDevice)>>installFontPolicy
RequestingHostPrinter(GraphicsDevice)>>initialize
RequestingHostPrinter(HostGraphicsDevice)>>initialize
optimized [] in HostGraphicsDevice>>handleValue:
BlockClosure>>ifCurtailed:
RequestingHostPrinter(HostGraphicsDevice)>>handleValue:
RequestingHostPrinter>>privateOpen
RequestingHostPrinter(HostPrinter)>>startPrintJobNamed:
RequestingPrinter class(Printer class)>>startPrintJobNamed:
optimized [] in RequestingPrinter class>>example1 PrintCancelledError
class(GenericException class)>>handle:do:
RequestingPrinter class>>example1
RequestingPrinter class>>unboundMethod
RequestingPrinter class(Object)>>performMethod:arguments:
RequestingPrinter class(Object)>>performMethod:
HighlightingTextEditorController(ParagraphEditor)>>evaluateCompiled:
optimized [] in ParagraphEditor>>evaluateSelection
BlockClosure>>ensure:
Cursor>>showWhile:
HighlightingTextEditorController(ParagraphEditor)>>evaluateSelection
optimized [] in ParagraphEditor>>doIt
BlockClosure>>on:do:
HighlightingTextEditorController(ParagraphEditor)>>doIt
HighlightingTextEditorController(ParagraphEditor)>>performCommand:
HighlightingTextEditorController(ParagraphEditor)>>doItKey:
HighlightingTextEditorController(ParagraphEditor)>>doItOrDisplayDateKey:
optimized [] in TextEditorController>>processKeyboardEvent:
DispatchTable>>add:do:
HighlightingTextEditorController(TextEditorController)>>processKeyboardE
vent:
HighlightingTextEditorController(Controller)>>keyPressedEvent:
KeyPressedEvent>>dispatchTo:
HighlightingTextEditorController(ControllerWithMenu)>>handleEvent:
optimized [] in KeyboardProcessor>>processKeyboardEvent:
BlockClosure>>cull:
HighlightingTextEditorController(Object)>>ifNotNil:
KeyboardProcessor>>processKeyboardEvent:
KeyboardProcessor>>processKeyboardEvent:for:
EventDispatcher>>dispatchEvent:
KeyPressedEvent(Event)>>dispatch
KeyPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
RequestingHostPrinter(Object)>>error:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* )
Arguments:
        aStringOrMessage = an UserMessage('a primitive has failed',
#errPrimitiveFailed, #dialogs) Context PC = 6

----------------------------------------------------------------------
RequestingHostPrinter(Object)>>primitiveFailed
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 10

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>primListFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 8

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>listFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 4

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>listFontNames
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 8

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>fontNameListsDo:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* )
Arguments:
        aBlock = BlockClosure [] in
FontPolicy>>initializeAvailableFontsFor:
Context PC = 5

----------------------------------------------------------------------
FontPolicy>>initializeAvailableFontsFor:
Receiver:
        a FontPolicy
Instance Variables:
        availableFonts = an OrderedCollection[0]
        device = a RequestingHostPrinter
        fontClass = MSWindowsFont
        defaultFont = nil
        fontCache = a Dictionary[0]
        tolerance = 9
        nameWeight = 10
        familyWeight = 5
        manufacturerWeight = 1
        encodingWeight = 10
        pixelSizeWeight = 3
        boldnessWeight = 2
        italicWeight = 2
        serifWeight = 1
        fixedWidthWeight = 3
        setWidthWeight = 1
        verticalWeight = 10
        fdCache = nil
        dfCache = nil
        noFontBlock = nil
Arguments:
        aDevice = a RequestingHostPrinter
Context PC = 10

----------------------------------------------------------------------
FontPolicy>>initializeFor:
Receiver:
        a FontPolicy
Instance Variables:
        availableFonts = an OrderedCollection[0]
        device = a RequestingHostPrinter
        fontClass = MSWindowsFont
        defaultFont = nil
        fontCache = a Dictionary[0]
        tolerance = 9
        nameWeight = 10
        familyWeight = 5
        manufacturerWeight = 1
        encodingWeight = 10
        pixelSizeWeight = 3
        boldnessWeight = 2
        italicWeight = 2
        serifWeight = 1
        fixedWidthWeight = 3
        setWidthWeight = 1
        verticalWeight = 10
        fdCache = nil
        dfCache = nil
        noFontBlock = nil
Arguments:
        aDevice = a RequestingHostPrinter
Context PC = 53

----------------------------------------------------------------------
FontPolicy class>>on:
Receiver:
        a FontPolicy class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[60]
        format = 16404
        subclasses = nil
        instanceVariables = an Array[20]
        organization = ('initialize-release'
#initializeAvailableFontsFor:
#initializeDefault #initializeFor:)
('accessing' #availableFonts #defaultFont #flushFonts #fontClass
#graphicsDevice #noFontBlock #noFontBlock: #preferredFontSize)
('testing' #allowsScalableFonts) ('accessing weights' #boldnessWeight
#encodingWeight #familyWeight #fixedWidthWeight #italicWeight
#manufacturerWeight #nameWeight #pixelSizeWeight #serifWeight
#setWidthWeight #tolerance
#verticalWeight)
('modifying weights' #boldnessWeight: #encodingWeight: #familyWeight:
#fixedWidthWeight: #italicWeight: #manufacturerWeight: #nameWeight:
#pixelSizeWeight: #serifWeight: #setWidthWeight: #tolerance:
#verticalWeight:)
('utilities' #decorateFont:with: #findBestFont:
#findBestFont:allowance: #findFont: #resetFontCache #searchForFont:
#searchForFont:allowance: #usablePlatformFonts) ('private'
#bestFont:allowance: #compareSizeOf:to:
#distanceFrom:to:test:value:weight:
#equalityFrom:to:test:value:weight: #isUniversalEncoding:
#matchFont:allowance: #measureDistancesFrom:to:stopAt:) ('private -
matching' #boldnessDistanceFrom:to:weight:
#encodingMatchFrom:to:weight: #fixedWidthMatchFrom:to:weight:
#italicMatchFrom:to:weight:
#mappableStringMatchFrom:to:test:value:weight:map:
#serifMatchFrom:to:weight: #setWidthDistanceFrom:to:weight:
#stringMatchFrom:to:test:value:weight: #verticalMatchFrom:to:weight:)

        name = #FontPolicy
        classPool = a NameSpaceOfClass[1]
        environment = a NameSpace[161]
Arguments:
        aGraphicsDevice = a RequestingHostPrinter Context PC = 6

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>installFontPolicy
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 5

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>installFontPolicy
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 17

----------------------------------------------------------------------
RequestingHostPrinter(GraphicsDevice)>>initialize
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 10

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>initialize
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 8

----------------------------------------------------------------------
optimized [] in HostGraphicsDevice>>handleValue:
Receiver:
        an UndefinedObject
Temporaries:
        .self = a RequestingHostPrinter
        .aBlock = BlockClosure [] in RequestingHostPrinter>>privateOpen
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>ifCurtailed:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in HostGraphicsDevice>>handleValue:
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        terminationBlock = BlockClosure [] in
HostGraphicsDevice>>handleValue:
Context PC = 4

----------------------------------------------------------------------
RequestingHostPrinter(HostGraphicsDevice)>>handleValue:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* )
Arguments:
        aBlock = BlockClosure [] in RequestingHostPrinter>>privateOpen
Context PC = 17

----------------------------------------------------------------------
RequestingHostPrinter>>privateOpen
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* )
Temporaries:
        byteArray = a GraphicsHandle(0)
        dialogStructure = a CCompositePointer {00353C30} (struct tagPDA
* ) Context PC = 38

----------------------------------------------------------------------
RequestingHostPrinter(HostPrinter)>>startPrintJobNamed:
Receiver:
        a RequestingHostPrinter
Instance Variables:
        handle = a GraphicsHandle(0)
        colorPalette = a FixedPalette[16777216]
        coveragePalette = a CoveragePalette[2]
        defaultFontPolicy = nil
        defaultColorPolicy = a PaintPolicy
        defaultCoveragePolicy = a PaintPolicy
        defaultWidgetPolicy = nil
        defaultPaintPreferences = nil
        colorDepth = 0
        colorBitsPerPixel = 0
        coverageDepth = 1
        coverageBitsPerPixel = 1
        openFonts = a HandleRegistry[0]
        platName = 'MS-Windows'
        availableFontNames = nil
        externalResource = a CCompositePointer {00353C30} (struct tagPDA
* )
Arguments:
        aString = 'temp.postscript'
Context PC = 8

----------------------------------------------------------------------
RequestingPrinter class(Printer class)>>startPrintJobNamed:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        aString = 'temp.postscript'
Context PC = 8

----------------------------------------------------------------------
optimized [] in RequestingPrinter class>>example1
Receiver:
        an UndefinedObject
Temporaries:
        .self = RequestingPrinter
Context PC = 7

----------------------------------------------------------------------
PrintCancelledError class(GenericException class)>>handle:do:
Receiver:
        a PrintCancelledError class
Instance Variables:
        superclass = Error
        methodDict = a MethodDictionary[0]
        format = 16394
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #PrintCancelledError
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[110]
        notifierString = nil
Arguments:
        anExceptionBlock = BlockClosure [] in RequestingPrinter
class>>example1
        aProtectedBlock = BlockClosure [] in RequestingPrinter
class>>example1 Context PC = 3

----------------------------------------------------------------------
RequestingPrinter class>>example1
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Temporaries:
        ps = nil
        cmp = a ReComposingComposite
        c = an ApplicationStandardSystemController
Context PC = 19

----------------------------------------------------------------------
RequestingPrinter class>>unboundMethod
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Context PC = 3

----------------------------------------------------------------------
RequestingPrinter class(Object)>>performMethod:arguments:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        method = AnnotatedMethod RequestingPrinter class>>unboundMethod
        args = an Array[0]
Context PC = 5

----------------------------------------------------------------------
RequestingPrinter class(Object)>>performMethod:
Receiver:
        a RequestingPrinter class
Instance Variables:
        superclass = Printer
        methodDict = a MethodDictionary[0]
        format = 16392
        subclasses = nil
        instanceVariables = an Array[0]
        organization =
        name = #RequestingPrinter
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[161]
Arguments:
        method = AnnotatedMethod RequestingPrinter class>>unboundMethod
Context PC = 5

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>evaluateCompiled:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aMethod = AnnotatedMethod RequestingPrinter class>>unboundMethod
Temporaries:
        context = nil
Context PC = 13

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>evaluateSelection
Receiver:
        an UndefinedObject
Temporaries:
        .self = a HighlightingTextEditorController
        .code = AnnotatedMethod RequestingPrinter class>>unboundMethod
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ParagraphEditor>>evaluateSelection
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 4
        image = Depth1Image(extent: 16 @ 16 depth: 1)
        mask = Depth1Image(extent: 16 @ 16 depth: 1)
        hotSpot = 1 @ 1
        name = 'xeq'
Arguments:
        aBlock = BlockClosure [] in ParagraphEditor>>evaluateSelection
Temporaries:
        oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>evaluateSelection
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Temporaries:
        code = AnnotatedMethod RequestingPrinter class>>unboundMethod
        result = nil
Context PC = 14

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>doIt
Receiver:
        an UndefinedObject
Temporaries:
        .self = a HighlightingTextEditorController Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ParagraphEditor>>doIt
        outerContext = nil
        copiedValues = a HighlightingTextEditorController
Arguments:
        anExceptionSelector = CompilationError
        handlerBlock = BlockClosure [] in ParagraphEditor>>doIt Context
PC = 18

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doIt
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1] Context PC = 20

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>performCommand:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aSelector = #doIt
Context PC = 10

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doItKey:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aCharEvent = a KeyPressedEvent
Context PC = 5

----------------------------------------------------------------------
HighlightingTextEditorController(ParagraphEditor)>>doItOrDisplayDateKey:
Receiver:
        a HighlightingTextEditorController
Instance Variables:
        model = a ValueHolder on: Text for 'example1
        "RequestingPrinter example1"

        | ps cmp c |
        c := (ScheduledControllers activeController).
        cmp := c view component.
        ps := RequestingHostPrinter userCanceledSignal
                handle: [:ex | nil]
                do: [self startPrintJobNamed: ''temp.postscript''].
        ps isNil ifTrue: [^nil].
        ps setLandscape: true.
        [(MockMedium on: ((ScalingWrapper on: cmp) scale: 0.96)
                        in: (36@36 extent: ps width-72@500)
                        for: ps)
                newGraphicsDevice: ps graphicsDevice;
                display]
                ensure:
                        [c view component: cmp; extentEvent: c view
bounds extent.
                        c view flushCaches.
                        ps print]'
        view = a TextEditorView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a Refactory.Browser.BrowserCodeTool
        beginTypeInIndex = nil
        anchorIndex = 12
        emphasisHere = nil
        dispatchTable = a DispatchTable
        charComposer = a CharacterComposer
        textHasChanged = false
        feelPolicy = a Win95FeelPolicy
        supportCodeEditingFeels = true
        localMenuItems = an Array[20]
        extendingDown = true
        keyboardHook = nil
        readOnly = false
        accepted = true
        autoAccept = false
        continuousAccept = false
        tabMeansNextField = true
        tabRequiresControl = true
        dispatcher = an UIDispatcher
        selectable = true
        maxChars = nil
        highlightingProcess = a Process in nil
        highlighters = an IdentityDictionary[1]
Arguments:
        aKeyboardEvent = a KeyPressedEvent
Context PC = 13

----------------------------------------------------------------------
optimized [] in TextEditorController>>processKeyboardEvent:
Receiver:
        an UndefinedObject
Arguments:
        charEvent = a KeyPressedEvent
        sel = #doItOrDisplayDateKey:
Temporaries:
        .self = a HighlightingTextEditorController
        .taStream = a WriteStream
        .taString = '
_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Carl, if it's 7.8 you need to ask support for an updated Windows Goodies parcel.

-Boris

On 2012-02-02, at 23:45, "Carl Gundel" <[hidden email]> wrote:

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc