vw7.8 OpenGL problem

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
4 messages Options
Reply | Threaded
Open this post in threaded view
|

vw7.8 OpenGL problem

askoh
Administrator
I started a virgin 7.8 image in Win XP. Loaded OpenGL parcels and tried:
OpenGL.Lessons.Lesson00RenderContext new demo
VisualWorks just froze and had to be terminated with End Task from Windows XP.

How can I get OpenGL to work with VW?

All the best,
Aik-Siong Koh
Reply | Threaded
Open this post in threaded view
|

Re: vw7.8 OpenGL problem

Michael Lucas-Smith-2
7.8 and OpenGL runs fine for me in Windows7; may be something about Win XP is the problem. But regardless, what kind of card, what version of your display drivers, what version of opengl? Do you have any debug information? a stack dump?

Michael

On May 24, 2011, at 6:31 PM, askoh wrote:

> I started a virgin 7.8 image in Win XP. Loaded OpenGL parcels and tried:
> OpenGL.Lessons.Lesson00RenderContext new demo
> VisualWorks just froze and had to be terminated with End Task from Windows
> XP.
>
> How can I get OpenGL to work with VW?
>
> All the best,
> Aik-Siong Koh
>
> --
> View this message in context: http://forum.world.st/vw7-8-OpenGL-problem-tp3548703p3548703.html
> Sent from the VisualWorks mailing list archive at Nabble.com.
> _______________________________________________
> 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
Reply | Threaded
Open this post in threaded view
|

Re: vw7.8 OpenGL problem

askoh
Administrator
Thanks.

Window Rendering:
        Vendor: ATI Technologies Inc.
        Renderer: RADEON XPRESS 200M Series SW TCL x86/MMX/3DNow!/SSE2
        Version: 1.4.5524 WinXP Release
        VSync Enabled: false

Last line to get freeze:
        success := xif SetPixelFormat: hdc with: iFormat with: pfd.

Debug It
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializePixelFormat
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializeContext
WGL.RenderContextWin32Image(OpenGL.RenderContext)>>initialize:
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initialize:
WGL.RenderContextWin32Image>>initialize:
OpenGL.RenderContext class>>on:
OpenGL.Lessons.Lesson00RenderContext>>demo
OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:arguments:
OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:
optimized [] in ParagraphEditor>>debug:
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializePixelFormat
Receiver:
        a WGL.RenderContextWin32Image
Instance Variables:
        interface = nil
        view = Depth32Image(extent: 1 @ 1 depth: 32)
        vendor = nil
        renderer = nil
        version = nil
        program = nil
        textures = nil
        texturesHistory = nil
        extensions = nil
        xif = a WGL.WGLInterface
        hdc = 352393002
        hglrc = nil
        old_hdc = nil
        old_hglrc = nil
        hiddenWindow = a Window 112
        hwnd = 2689088
        framebuffer = nil
Temporaries:
        pfd = a CCompositePointer {00CFA098} (struct tagPIXELFORMATDESCRIPTOR * )
        iFormat = 1
        success = nil
Context PC = 27

----------------------------------------------------------------------
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializeContext
Receiver:
        a WGL.RenderContextWin32Image
Instance Variables:
        interface = nil
        view = Depth32Image(extent: 1 @ 1 depth: 32)
        vendor = nil
        renderer = nil
        version = nil
        program = nil
        textures = nil
        texturesHistory = nil
        extensions = nil
        xif = a WGL.WGLInterface
        hdc = 352393002
        hglrc = nil
        old_hdc = nil
        old_hglrc = nil
        hiddenWindow = a Window 112
        hwnd = 2689088
        framebuffer = nil
Context PC = 7

----------------------------------------------------------------------
WGL.RenderContextWin32Image(OpenGL.RenderContext)>>initialize:
Receiver:
        a WGL.RenderContextWin32Image
Instance Variables:
        interface = nil
        view = Depth32Image(extent: 1 @ 1 depth: 32)
        vendor = nil
        renderer = nil
        version = nil
        program = nil
        textures = nil
        texturesHistory = nil
        extensions = nil
        xif = a WGL.WGLInterface
        hdc = 352393002
        hglrc = nil
        old_hdc = nil
        old_hglrc = nil
        hiddenWindow = a Window 112
        hwnd = 2689088
        framebuffer = nil
Arguments:
        aView = Depth32Image(extent: 1 @ 1 depth: 32)
Context PC = 6

----------------------------------------------------------------------
WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initialize:
Receiver:
        a WGL.RenderContextWin32Image
Instance Variables:
        interface = nil
        view = Depth32Image(extent: 1 @ 1 depth: 32)
        vendor = nil
        renderer = nil
        version = nil
        program = nil
        textures = nil
        texturesHistory = nil
        extensions = nil
        xif = a WGL.WGLInterface
        hdc = 352393002
        hglrc = nil
        old_hdc = nil
        old_hglrc = nil
        hiddenWindow = a Window 112
        hwnd = 2689088
        framebuffer = nil
Arguments:
        aView = Depth32Image(extent: 1 @ 1 depth: 32)
Context PC = 10

----------------------------------------------------------------------
WGL.RenderContextWin32Image>>initialize:
Receiver:
        a WGL.RenderContextWin32Image
Instance Variables:
        interface = nil
        view = Depth32Image(extent: 1 @ 1 depth: 32)
        vendor = nil
        renderer = nil
        version = nil
        program = nil
        textures = nil
        texturesHistory = nil
        extensions = nil
        xif = a WGL.WGLInterface
        hdc = 352393002
        hglrc = nil
        old_hdc = nil
        old_hglrc = nil
        hiddenWindow = a Window 112
        hwnd = 2689088
        framebuffer = nil
Arguments:
        aView = Depth32Image(extent: 1 @ 1 depth: 32)
Context PC = 6

----------------------------------------------------------------------
OpenGL.RenderContext class>>on:
Receiver:
        a OpenGL.RenderContext class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[24]
        format = 16393
        subclasses = an Array[3]
        instanceVariables = an Array[9]
        organization = ('accessing' #bounds #extensions #program #program: #renderer #vendor #version #view)
('private' #activateContext #assignTextureUnitTo: #deactivateContext #leastUsedTextureUnit #resetProgram #resetTextures)
('initialize-release' #initialize: #initializeContext #initializeInterface #initializeParameters #on:)
('api' #activate #deactivate #flush #resize #whileCurrentDo:)

        name = #RenderContext
        classPool = a NameSpaceOfClass[1]
        environment = a NameSpace[34]
Arguments:
        aView = Depth32Image(extent: 1 @ 1 depth: 32)
Context PC = 8

----------------------------------------------------------------------
OpenGL.Lessons.Lesson00RenderContext>>demo
Receiver:
        a OpenGL.Lessons.Lesson00RenderContext
Instance Variables:
        isRunning = nil
        window = a ScheduledWindow nil
        context = a WGL.RenderContextWin32Window
        renderJob = nil
        resizeJob = nil
        idleJob = nil
Temporaries:
        pixmap = nil
        image = Depth32Image(extent: 1 @ 1 depth: 32)
Context PC = 44

----------------------------------------------------------------------
OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
Receiver:
        a OpenGL.Lessons.Lesson00RenderContext class
Instance Variables:
        superclass = OpenGL.Lessons.Lesson
        methodDict = a MethodDictionary[1]
        format = 16390
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('rendering' #demo)

        name = #Lesson00RenderContext
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[24]
Context PC = 4

----------------------------------------------------------------------
OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:arguments:
Receiver:
        a OpenGL.Lessons.Lesson00RenderContext class
Instance Variables:
        superclass = OpenGL.Lessons.Lesson
        methodDict = a MethodDictionary[1]
        format = 16390
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('rendering' #demo)

        name = #Lesson00RenderContext
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[24]
Arguments:
        method = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
        args = an Array[0]
Context PC = 5

----------------------------------------------------------------------
OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:
Receiver:
        a OpenGL.Lessons.Lesson00RenderContext class
Instance Variables:
        superclass = OpenGL.Lessons.Lesson
        methodDict = a MethodDictionary[1]
        format = 16390
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('rendering' #demo)

        name = #Lesson00RenderContext
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[24]
Arguments:
        method = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
Context PC = 5

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>debug:
Receiver:
        an UndefinedObject
Temporaries:
        .doItReceiver = OpenGL.Lessons.Lesson00RenderContext
        .aCompiledMethod = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ParagraphEditor>>debug:
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        anExceptionSelector = TerminateException
        handlerBlock = BlockClosure [] in [] in Process class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in ParagraphEditor>>debug:
Context PC = 9
Reply | Threaded
Open this post in threaded view
|

Re: vw7.8 OpenGL problem

Michael Lucas-Smith-2
Hey askoh,

The OpenGL interface won't work for anything below OpenGL 2.x -- here you've got a mobile graphics card running OpenGL 1.4; which can only do fixed-rendering. Your options are to get a better graphics card (not necessarily an option for everyone) or use the much older interface in Jun.

Michael

On May 25, 2011, at 5:30 PM, askoh wrote:

> Thanks.
>
> Window Rendering:
> Vendor: ATI Technologies Inc.
> Renderer: RADEON XPRESS 200M Series SW TCL x86/MMX/3DNow!/SSE2
> Version: 1.4.5524 WinXP Release
> VSync Enabled: false
>
> Last line to get freeze:
> success := xif SetPixelFormat: hdc with: iFormat with: pfd.
>
> Debug It
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializePixelFormat
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializeContext
> WGL.RenderContextWin32Image(OpenGL.RenderContext)>>initialize:
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initialize:
> WGL.RenderContextWin32Image>>initialize:
> OpenGL.RenderContext class>>on:
> OpenGL.Lessons.Lesson00RenderContext>>demo
> OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
> OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:arguments:
> OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:
> optimized [] in ParagraphEditor>>debug:
> BlockClosure>>on:do:
> optimized [] in Process class>>forBlock:priority:
>
> ----------------------------------------------------------------------
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializePixelFormat
> Receiver:
> a WGL.RenderContextWin32Image
> Instance Variables:
> interface = nil
> view = Depth32Image(extent: 1 @ 1 depth: 32)
> vendor = nil
> renderer = nil
> version = nil
> program = nil
> textures = nil
> texturesHistory = nil
> extensions = nil
> xif = a WGL.WGLInterface
> hdc = 352393002
> hglrc = nil
> old_hdc = nil
> old_hglrc = nil
> hiddenWindow = a Window 112
> hwnd = 2689088
> framebuffer = nil
> Temporaries:
> pfd = a CCompositePointer {00CFA098} (struct tagPIXELFORMATDESCRIPTOR * )
> iFormat = 1
> success = nil
> Context PC = 27
>
> ----------------------------------------------------------------------
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initializeContext
> Receiver:
> a WGL.RenderContextWin32Image
> Instance Variables:
> interface = nil
> view = Depth32Image(extent: 1 @ 1 depth: 32)
> vendor = nil
> renderer = nil
> version = nil
> program = nil
> textures = nil
> texturesHistory = nil
> extensions = nil
> xif = a WGL.WGLInterface
> hdc = 352393002
> hglrc = nil
> old_hdc = nil
> old_hglrc = nil
> hiddenWindow = a Window 112
> hwnd = 2689088
> framebuffer = nil
> Context PC = 7
>
> ----------------------------------------------------------------------
> WGL.RenderContextWin32Image(OpenGL.RenderContext)>>initialize:
> Receiver:
> a WGL.RenderContextWin32Image
> Instance Variables:
> interface = nil
> view = Depth32Image(extent: 1 @ 1 depth: 32)
> vendor = nil
> renderer = nil
> version = nil
> program = nil
> textures = nil
> texturesHistory = nil
> extensions = nil
> xif = a WGL.WGLInterface
> hdc = 352393002
> hglrc = nil
> old_hdc = nil
> old_hglrc = nil
> hiddenWindow = a Window 112
> hwnd = 2689088
> framebuffer = nil
> Arguments:
> aView = Depth32Image(extent: 1 @ 1 depth: 32)
> Context PC = 6
>
> ----------------------------------------------------------------------
> WGL.RenderContextWin32Image(WGL.RenderContextWin32)>>initialize:
> Receiver:
> a WGL.RenderContextWin32Image
> Instance Variables:
> interface = nil
> view = Depth32Image(extent: 1 @ 1 depth: 32)
> vendor = nil
> renderer = nil
> version = nil
> program = nil
> textures = nil
> texturesHistory = nil
> extensions = nil
> xif = a WGL.WGLInterface
> hdc = 352393002
> hglrc = nil
> old_hdc = nil
> old_hglrc = nil
> hiddenWindow = a Window 112
> hwnd = 2689088
> framebuffer = nil
> Arguments:
> aView = Depth32Image(extent: 1 @ 1 depth: 32)
> Context PC = 10
>
> ----------------------------------------------------------------------
> WGL.RenderContextWin32Image>>initialize:
> Receiver:
> a WGL.RenderContextWin32Image
> Instance Variables:
> interface = nil
> view = Depth32Image(extent: 1 @ 1 depth: 32)
> vendor = nil
> renderer = nil
> version = nil
> program = nil
> textures = nil
> texturesHistory = nil
> extensions = nil
> xif = a WGL.WGLInterface
> hdc = 352393002
> hglrc = nil
> old_hdc = nil
> old_hglrc = nil
> hiddenWindow = a Window 112
> hwnd = 2689088
> framebuffer = nil
> Arguments:
> aView = Depth32Image(extent: 1 @ 1 depth: 32)
> Context PC = 6
>
> ----------------------------------------------------------------------
> OpenGL.RenderContext class>>on:
> Receiver:
> a OpenGL.RenderContext class
> Instance Variables:
> superclass = Object
> methodDict = a MethodDictionary[24]
> format = 16393
> subclasses = an Array[3]
> instanceVariables = an Array[9]
> organization = ('accessing' #bounds #extensions #program #program:
> #renderer #vendor #version #view)
> ('private' #activateContext #assignTextureUnitTo: #deactivateContext
> #leastUsedTextureUnit #resetProgram #resetTextures)
> ('initialize-release' #initialize: #initializeContext #initializeInterface
> #initializeParameters #on:)
> ('api' #activate #deactivate #flush #resize #whileCurrentDo:)
>
> name = #RenderContext
> classPool = a NameSpaceOfClass[1]
> environment = a NameSpace[34]
> Arguments:
> aView = Depth32Image(extent: 1 @ 1 depth: 32)
> Context PC = 8
>
> ----------------------------------------------------------------------
> OpenGL.Lessons.Lesson00RenderContext>>demo
> Receiver:
> a OpenGL.Lessons.Lesson00RenderContext
> Instance Variables:
> isRunning = nil
> window = a ScheduledWindow nil
> context = a WGL.RenderContextWin32Window
> renderJob = nil
> resizeJob = nil
> idleJob = nil
> Temporaries:
> pixmap = nil
> image = Depth32Image(extent: 1 @ 1 depth: 32)
> Context PC = 44
>
> ----------------------------------------------------------------------
> OpenGL.Lessons.Lesson00RenderContext class>>unboundMethod
> Receiver:
> a OpenGL.Lessons.Lesson00RenderContext class
> Instance Variables:
> superclass = OpenGL.Lessons.Lesson
> methodDict = a MethodDictionary[1]
> format = 16390
> subclasses = nil
> instanceVariables = an Array[0]
> organization = ('rendering' #demo)
>
> name = #Lesson00RenderContext
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[24]
> Context PC = 4
>
> ----------------------------------------------------------------------
> OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:arguments:
> Receiver:
> a OpenGL.Lessons.Lesson00RenderContext class
> Instance Variables:
> superclass = OpenGL.Lessons.Lesson
> methodDict = a MethodDictionary[1]
> format = 16390
> subclasses = nil
> instanceVariables = an Array[0]
> organization = ('rendering' #demo)
>
> name = #Lesson00RenderContext
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[24]
> Arguments:
> method = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext
> class>>unboundMethod
> args = an Array[0]
> Context PC = 5
>
> ----------------------------------------------------------------------
> OpenGL.Lessons.Lesson00RenderContext class(Object)>>performMethod:
> Receiver:
> a OpenGL.Lessons.Lesson00RenderContext class
> Instance Variables:
> superclass = OpenGL.Lessons.Lesson
> methodDict = a MethodDictionary[1]
> format = 16390
> subclasses = nil
> instanceVariables = an Array[0]
> organization = ('rendering' #demo)
>
> name = #Lesson00RenderContext
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[24]
> Arguments:
> method = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext
> class>>unboundMethod
> Context PC = 5
>
> ----------------------------------------------------------------------
> optimized [] in ParagraphEditor>>debug:
> Receiver:
> an UndefinedObject
> Temporaries:
> .doItReceiver = OpenGL.Lessons.Lesson00RenderContext
> .aCompiledMethod = AnnotatedMethod OpenGL.Lessons.Lesson00RenderContext
> class>>unboundMethod
> Context PC = 6
>
> ----------------------------------------------------------------------
> BlockClosure>>on:do:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in ParagraphEditor>>debug:
> outerContext = nil
> copiedValues = an Array[2]
> Arguments:
> anExceptionSelector = TerminateException
> handlerBlock = BlockClosure [] in [] in Process class>>forBlock:priority:
> Context PC = 18
>
> ----------------------------------------------------------------------
> optimized [] in Process class>>forBlock:priority:
> Receiver:
> an UndefinedObject
> Temporaries:
> .aBlock = BlockClosure [] in ParagraphEditor>>debug:
> Context PC = 9
>
>
> --
> View this message in context: http://forum.world.st/vw7-8-OpenGL-problem-tp3548703p3551351.html
> Sent from the VisualWorks mailing list archive at Nabble.com.
> _______________________________________________
> 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