[VW 7.4] [XP] [Bug] Default cursors used when switching look back from Mac OS X

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

[VW 7.4] [XP] [Bug] Default cursors used when switching look back from Mac OS X

Stew MacLean

Hi,

 

When I switch to the Mac OS X look, and then back to XP, the default cursors are used.

 

The problem appears to be within:

 

MacLookPolicy class>>deinstallCursors

            "De-install the Mac-like cursor versions in class Cursor and retract interest for

            any changes on the UIBuilder defaultPolicyModel.

            Only do this, if the new policy is realy a different one.

 

            Override to use platform cursors, otherwise the defaults are used. 05/03/07 SIM."

 

            UIBuilder defaultPolicyModel value == self ifTrue: [^self].

            UIBuilder defaultPolicyModel retractInterestsFor: self.

            [ObjectMemory dependents includes: MacWidgetPolicy] whileTrue:

                        [ObjectMemory removeDependent: MacWidgetPolicy].

            ('Mac*'  match: UIBuilder defaultPolicyModel value name) ifTrue:[^self].

            Cursor initialize.

            Cursor primEnableHostCursor: true "false"

 

Using true as the argument for primEnableHostCursor: does the trick.

 

Cheers,

 

Stewart

Reply | Threaded
Open this post in threaded view
|

Re: [VW 7.4] [XP] [Bug] Default cursors used when switching look back from Mac OS X

Alan Knight-2
Thanks. I've created AR 52130 for this.

At 03:36 AM 3/5/2007, Stewart MacLean wrote:
Hi,
 
When I switch to the Mac OS X look, and then back to XP, the default cursors are used.
 
The problem appears to be within:
 
MacLookPolicy class>>deinstallCursors
            "De-install the Mac-like cursor versions in class Cursor and retract interest for
            any changes on the UIBuilder defaultPolicyModel.
            Only do this, if the new policy is realy a different one.
 
            Override to use platform cursors, otherwise the defaults are used. 05/03/07 SIM."
 
            UIBuilder defaultPolicyModel value == self ifTrue: [^self].
            UIBuilder defaultPolicyModel retractInterestsFor: self.
            [ObjectMemory dependents includes: MacWidgetPolicy] whileTrue:
                        [ObjectMemory removeDependent: MacWidgetPolicy].
            ('Mac*'  match: UIBuilder defaultPolicyModel value name) ifTrue:[^self].
            Cursor initialize.
            Cursor primEnableHostCursor: true "false"
 
Using true as the argument for primEnableHostCursor: does the trick.
 
Cheers,
 
Stewart

--
Alan Knight [|], Cincom Smalltalk Development

"The Static Typing Philosophy: Make it fast. Make it right. Make it run." - Niall Ross