--- a/WinWorkstation.st Thu Sep 16 17:19:12 2004 +0200
+++ b/WinWorkstation.st Thu Sep 16 17:26:20 2004 +0200
@@ -15,7 +15,7 @@
DeviceWorkstation subclass:#WinWorkstation
instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed
eventTrace eventBuffer isWin95 isWinXP'
- classVariableNames:'BeepDuration NativeDialogs NativeWindows NativeWindowClassTable
+ classVariableNames:'BeepDuration NativeDialogs NativeWidgets NativeWidgetClassTable
StandardColorValues IgnoreSysColorChanges IgnoreFontChanges
SystemColorValues ClipBoardObject'
poolDictionaries:''
@@ -5085,7 +5085,7 @@
self initializeStandardColorNames.
- NativeWindows := NativeDialogs := false.
+ NativeWidgets := NativeDialogs := false.
BeepDuration := 200. "milliseconds"
@@ -5099,18 +5099,18 @@
"/ translation table from ST/X windowType symbol (system-independent)
"/ to Windows windowClass (windows-specific).
- NativeWindowClassTable := IdentityDictionary new.
- NativeWindowClassTable at:#ScrollBar put:'SCROLLBAR'.
- NativeWindowClassTable at:#HorizontalScrollBar put:'SCROLLBAR'.
- NativeWindowClassTable at:#VerticalScrollBar put:'SCROLLBAR'.
- NativeWindowClassTable at:#CheckBox put:'BUTTON'.
- NativeWindowClassTable at:#RadioButton put:'BUTTON'.
- NativeWindowClassTable at:#Button put:'BUTTON'.
- NativeWindowClassTable at:#DefaultButton put:'BUTTON'.
- NativeWindowClassTable at:#OwnerDrawButton put:'BUTTON'.
- NativeWindowClassTable at:#ComboBox put:'COMBOBOX'.
- NativeWindowClassTable at:#EditField put:'EDIT'.
- NativeWindowClassTable at:#ListBox put:'LISTBOX'.
+ NativeWidgetClassTable := IdentityDictionary new.
+ NativeWidgetClassTable at:#ScrollBar put:'SCROLLBAR'.
+ NativeWidgetClassTable at:#HorizontalScrollBar put:'SCROLLBAR'.
+ NativeWidgetClassTable at:#VerticalScrollBar put:'SCROLLBAR'.
+ NativeWidgetClassTable at:#CheckBox put:'BUTTON'.
+ NativeWidgetClassTable at:#RadioButton put:'BUTTON'.
+ NativeWidgetClassTable at:#Button put:'BUTTON'.
+ NativeWidgetClassTable at:#DefaultButton put:'BUTTON'.
+ NativeWidgetClassTable at:#OwnerDrawButton put:'BUTTON'.
+ NativeWidgetClassTable at:#ComboBox put:'COMBOBOX'.
+ NativeWidgetClassTable at:#EditField put:'EDIT'.
+ NativeWidgetClassTable at:#ListBox put:'LISTBOX'.
!
initializeStandardColorNames
@@ -7371,13 +7371,13 @@
"/ ].
weventMask := aView eventMask.
- NativeWindows ifTrue:[
+ NativeWidgets ifTrue:[
windowType := aView nativeWindowType.
windowType notNil ifTrue:[
"/ must be a symbol and is used
"/ as a key into the nativeClass translation map.
- windowClass := NativeWindowClassTable at:windowType ifAbsent:windowType.
+ windowClass := NativeWidgetClassTable at:windowType ifAbsent:windowType.
aView beNativeWidget.
self class debugNative ifTrue:[
'WinWorkstation [info]: windowType: ' infoPrint. windowType infoPrint.
@@ -14204,20 +14204,20 @@
"
!
-nativeWindows
- ^ NativeWindows ? false
-!
-
-nativeWindows:aBoolean
- "enable / disable use of native windows (widgets).
+nativeWidgets
+ ^ NativeWidgets ? false
+!
+
+nativeWidgets:aBoolean
+ "enable / disable use of native widgets.
This is an experimental, unfinished, unsupported feature.
For now, this only affects some widgets."
- NativeWindows := aBoolean
-
- "
- Screen current nativeWindows:true
- Screen current nativeWindows:false
+ NativeWidgets := aBoolean
+
+ "
+ Screen current nativeWidgets:true
+ Screen current nativeWidgets:false
"
!
@@ -16338,7 +16338,7 @@
!WinWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.285 2004-09-15 16:21:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.286 2004-09-16 15:26:20 ca Exp $'
! !
WinWorkstation initialize!