hg/stx-libview: comparison XWorkstation.st

equal deleted inserted replaced

-:93bc49567a43
+:27bc058343f0
 |msgType dropColl dropCollSize anyFile anyDir anyText anyOther
 dropType dropTypeCode strings sz idx val|
 (msgType := self atomIDOf:#DndProtocol) notNil ifTrue:[
-	"/ DND can drop files, file, dir, links, dirLink and text
+"/ DND can drop files, file, dir, links, dirLink and text
-	"/ check for this.
+"/ check for this.
-	dropObjects isCollection ifFalse:[
+dropObjects isCollection ifFalse:[
-	    dropColl := Array with:dropObjects
+dropColl := Array with:dropObjects
-	] ifTrue:[
+] ifTrue:[
-	    dropColl := dropObjects
+dropColl := dropObjects
-	].
+].
-	anyFile := anyDir := anyText := anyOther := false.
+anyFile := anyDir := anyText := anyOther := false.
-	dropColl do:[:aDropObject |
+dropColl do:[:aDropObject |
-	    aDropObject isFileObject ifTrue:[
+aDropObject isFileObject ifTrue:[
-		aDropObject theObject isDirectory ifTrue:[
+aDropObject theObject isDirectory ifTrue:[
-		    anyDir := true
+anyDir := true
-		] ifFalse:[
+] ifFalse:[
-		    anyFile := true
+anyFile := true
-		]
+]
-	    ] ifFalse:[
+] ifFalse:[
-		aDropObject isTextObject ifTrue:[
+aDropObject isTextObject ifTrue:[
-		    anyText := true
+anyText := true
-		] ifFalse:[
+] ifFalse:[
-		    anyOther := true
+anyOther := true
-		]
+]
-	    ]
+]
-	].
+].
-	anyOther ifTrue:[
+anyOther ifTrue:[
-	    "/ DND does not support this ...
+"/ DND does not support this ...
-	    'XWorkstation [info]: DND can only drop files or text' infoPrintCR.
+'XWorkstation [info]: DND can only drop files or text' infoPrintCR.
-	    ^ false
+^ false
-	].
+].
-	anyText ifTrue:[
+anyText ifTrue:[
-	    (anyFile or:[anyDir]) ifTrue:[
+(anyFile or:[anyDir]) ifTrue:[
-		"/ DND does not support mixed types
+"/ DND does not support mixed types
-		'XWorkstation [info]: DND cannot drop both files and text' infoPrintCR.
+'XWorkstation [info]: DND cannot drop both files and text' infoPrintCR.
-		^ false
+^ false
-	    ]
+]
-	].
+].
-	dropCollSize := dropColl size.
+dropCollSize := dropColl size.
-	anyFile ifTrue:[
+anyFile ifTrue:[
-	    dropType := #DndFiles.
+dropType := #DndFiles.
-	    dropCollSize == 1 ifTrue:[
+dropCollSize == 1 ifTrue:[
-		dropType := #DndFile
+dropType := #DndFile
-	    ]
+]
-	] ifFalse:[
+] ifFalse:[
-	    anyDir ifTrue:[
+anyDir ifTrue:[
-		dropType := #DndFiles.
+dropType := #DndFiles.
-		dropCollSize == 1 ifTrue:[
+dropCollSize == 1 ifTrue:[
-		    dropType := #DndDir
+dropType := #DndDir
-		]
+]
-	    ] ifFalse:[
+] ifFalse:[
-		anyText ifTrue:[
+anyText ifTrue:[
-		    dropCollSize == 1 ifTrue:[
+dropCollSize == 1 ifTrue:[
-			dropType := #DndText
+dropType := #DndText
-		    ] ifFalse:[
+] ifFalse:[
-			"/ can only drop a single text object
+"/ can only drop a single text object
-			'XWorkstation [info]: DND can only drop a single text' infoPrintCR.
+'XWorkstation [info]: DND can only drop a single text' infoPrintCR.
-			^ false
+^ false
-		    ]
+]
-		] ifFalse:[
+] ifFalse:[
-		    "/ mhmh ...
+"/ mhmh ...
-		    'XWorkstation [info]: DND cannot drop this' infoPrintCR.
+'XWorkstation [info]: DND cannot drop this' infoPrintCR.
-		    ^ false
+^ false
-		]
+]
-	    ]
+]
-	].
+].
-	dropTypeCode := self dndDropTypes indexOf:dropType.
+dropTypeCode := self dndDropTypes indexOf:dropType.
-	dropTypeCode == 0 ifTrue:[
+dropTypeCode == 0 ifTrue:[
-	    'XWorkstation [info]: DND cannot drop this' infoPrintCR.
+'XWorkstation [info]: DND cannot drop this' infoPrintCR.
-	    ^ false
+^ false
-	].
+].
-	dropTypeCode := dropTypeCode - 1.
+dropTypeCode := dropTypeCode - 1.
-	"/ place the selection inTo the DndSelection property
+"/ place the selection inTo the DndSelection property
-	"/ of the rootView ...
+"/ of the rootView ...
-	"/ ... need a single string, with 0-terminated parts.
+"/ ... need a single string, with 0-terminated parts.
-	strings := OrderedCollection new.
+strings := OrderedCollection new.
-	sz := 0.
+sz := 0.
-	dropColl do:[:anObject |
+dropColl do:[:anObject |
-	    |s o|
+|s o|
-	    o := anObject theObject.
+o := anObject theObject.
-	    anObject isFileObject ifTrue:[
+anObject isFileObject ifTrue:[
-		o := o pathName
+o := o pathName
-	    ].
+].
-	    s := o asString.
+s := o asString.
-	    strings add:s.
+strings add:s.
-	    sz := sz + (s size) + 1.
+sz := sz + (s size) + 1.
-	].
+].
-	val := String new:sz.
+val := String new:sz.
-	idx := 1.
+idx := 1.
-	strings do:[:aString |
+strings do:[:aString |
-	    |sz|
+|sz|
-	    sz := aString size.
+sz := aString size.
-	    val replaceFrom:idx to:(idx + sz - 1) with:aString startingAt:1.
+val replaceFrom:idx to:(idx + sz - 1) with:aString startingAt:1.
-	    idx := idx + sz.
+idx := idx + sz.
-	    val at:idx put:(Character value:0).
+val at:idx put:(Character value:0).
-	    idx := idx + 1
+idx := idx + 1
-	].
+].
-	self
+self
-	    setProperty:(self atomIDOf:#DndSelection)
+setProperty:(self atomIDOf:#DndSelection)
-	    type:(self atomIDOf:#STRING)
+type:(self atomIDOf:#STRING)
-	    value:val
+value:val
-	    for:rootId.
+for:rootId.
-	^ self
+^ self
-	    sendClientEvent:msgType
+sendClientEvent:msgType
-	    format:32
+format:32
-	    to:destinationId
+to:destinationId
-	    data1:dropTypeCode
+propagate:true
-	    data2:0
+eventMask:nil
-	    data3:destinationId
+window:destinationId
-	    data4:nil
+data1:dropTypeCode
-	    data5:nil.
+data2:0
+data3:destinationId
+data4:nil
+data5:nil.
 ].
 ^ false
 "Created: 6.4.1997 / 13:39:37 / cg"
 else if (anEventSymbol == @symbol(visibilityChange)) m = VisibilityChangeMask;
 else if (anEventSymbol == @symbol(structureNotify)) m = StructureNotifyMask;
 else if (anEventSymbol == @symbol(resizeRedirect)) m = ResizeRedirectMask;
 else if (anEventSymbol == @symbol(propertyChange)) m = PropertyChangeMask;
 else if (anEventSymbol == @symbol(colormapChange)) m = ColormapChangeMask;
+else if (anEventSymbol == @symbol(substructureNotify)) m = SubstructureNotifyMask;
+else if (anEventSymbol == @symbol(substructureRedirect)) m = SubstructureRedirectMask;
 RETURN (__MKSMALLINT(m));
 %}
 !
 eventPending
 ! !
 !XWorkstation methodsFor:'event sending'!
-sendClientEvent:msgType format:msgFormat to:targetWindowID data1:d1 data2:d2 data3:d3 data4:d4 data5:d5
+sendClientEvent:msgType format:msgFormat to:targetWindowID propagate:propagate eventMask:eventMask window:windowID data1:d1 data2:d2 data3:d3 data4:d4 data5:d5
 "send a ClientMessage to some other (possibly: non-ST/X) view.
 The client message gets message_type and msgFormat as specified by
 the arguments. The additional data arguments specify up to
 5 longWords of user data; each may be an integer or nil.
 It is passed transparently in the events data field.
 "/ Event.xclient.type              = ClientMessage;
 "/ Event.xclient.display           = dpy;
 "/ Event.xclient.message_type      = msgType;
 "/ Event.xclient.format            = msgFormat;
-"/ Event.xclient.window            = targetWindowID;
+"/ Event.xclient.window            = windowID;
 "/ Event.xclient.data.l[0]         = d1
 "/ Event.xclient.data.l[1]         = d2
 "/ Event.xclient.data.l[2]         = d3
 "/ Event.xclient.data.l[3]         = d4
 "/ Event.xclient.data.l[4]         = d5
 "/
-"/ XSendEvent(dpy,DispatchWindow,True,NoEventMask,&Event);
+"/ XSendEvent(dpy, targetWindowID, propagate, eventMask, &Event);
 <context: #return>
 %{
 int type;
 int state;
+int __eventMask;
 if (ISCONNECTED
 && __isInteger(msgType)
 && __isInteger(msgFormat)
+&& (eventMask == nil || __isInteger(eventMask))
+&& (__isExternalAddress(windowID) || __isInteger(windowID))
 && (__isExternalAddress(targetWindowID) || __isInteger(targetWindowID))) {
-	Display *dpy = myDpy;
+Display *dpy = myDpy;
-	XEvent ev;
+XEvent ev;
-	Status result;
+Status result;
+Window targetWindow;
-	if (__isInteger(d1)) {
-	    ev.xclient.data.l[0] = __longIntVal(d1);
+if (__isInteger(d1)) {
-	} else {
+ev.xclient.data.l[0] = __longIntVal(d1);
-	    if (__isExternalAddress(d1)) {
+} else {
-		ev.xclient.data.l[0] = (INT)__externalAddressVal(d1);
+if (__isExternalAddress(d1)) {
-	    } else {
+ev.xclient.data.l[0] = (INT)__externalAddressVal(d1);
-		ev.xclient.data.l[0] = 0;
+} else {
-	    }
+ev.xclient.data.l[0] = 0;
-	}
+}
-	if (__isInteger(d2)) {
+}
-	    ev.xclient.data.l[1] = __longIntVal(d2);
+if (__isInteger(d2)) {
-	} else {
+ev.xclient.data.l[1] = __longIntVal(d2);
-	    if (__isExternalAddress(d2)) {
+} else {
-		ev.xclient.data.l[1] = (INT)__externalAddressVal(d2);
+if (__isExternalAddress(d2)) {
-	    } else {
+ev.xclient.data.l[1] = (INT)__externalAddressVal(d2);
-		ev.xclient.data.l[1] = 0;
+} else {
-	    }
+ev.xclient.data.l[1] = 0;
-	}
+}
-	if (__isInteger(d3)) {
+}
-	    ev.xclient.data.l[2] = __longIntVal(d3);
+if (__isInteger(d3)) {
-	} else {
+ev.xclient.data.l[2] = __longIntVal(d3);
-	    if (__isExternalAddress(d3)) {
+} else {
-		ev.xclient.data.l[2] = (INT)__externalAddressVal(d3);
+if (__isExternalAddress(d3)) {
-	    } else {
+ev.xclient.data.l[2] = (INT)__externalAddressVal(d3);
-		ev.xclient.data.l[2] = 0;
+} else {
-	    }
+ev.xclient.data.l[2] = 0;
-	}
+}
-	if (__isInteger(d4)) {
+}
-	    ev.xclient.data.l[3] = __longIntVal(d4);
+if (__isInteger(d4)) {
-	} else {
+ev.xclient.data.l[3] = __longIntVal(d4);
-	    if (__isExternalAddress(d4)) {
+} else {
-		ev.xclient.data.l[3] = (INT)__externalAddressVal(d4);
+if (__isExternalAddress(d4)) {
-	    } else {
+ev.xclient.data.l[3] = (INT)__externalAddressVal(d4);
-		ev.xclient.data.l[3] = 0;
+} else {
-	    }
+ev.xclient.data.l[3] = 0;
-	}
+}
-	if (__isInteger(d5)) {
+}
-	    ev.xclient.data.l[4] = __longIntVal(d5);
+if (__isInteger(d5)) {
-	} else {
+ev.xclient.data.l[4] = __longIntVal(d5);
-	    if (__isExternalAddress(d5)) {
+} else {
-		ev.xclient.data.l[4] = (INT)__externalAddressVal(d5);
+if (__isExternalAddress(d5)) {
-	    } else {
+ev.xclient.data.l[4] = (INT)__externalAddressVal(d5);
-		ev.xclient.data.l[4] = 0;
+} else {
-	    }
+ev.xclient.data.l[4] = 0;
-	}
+}
+}
-	if (__isExternalAddress(targetWindowID)) {
-	    ev.xclient.window = __WindowVal(targetWindowID);
+if (__isExternalAddress(windowID)) {
-	} else {
+ev.xclient.window = __WindowVal(windowID);
-	    ev.xclient.window = (Window)__longIntVal(targetWindowID);
+} else {
-	}
+ev.xclient.window = (Window)__longIntVal(windowID);
+}
-	ev.xclient.type              = ClientMessage;
-	ev.xclient.display           = dpy;
+if (__isExternalAddress(targetWindowID)) {
-	ev.xclient.message_type      = __longIntVal(msgType);
+targetWindow = __WindowVal(targetWindowID);
-	ev.xclient.format            = __longIntVal(msgFormat);
+} else {
+targetWindow = (Window)__longIntVal(targetWindowID);
-	ENTER_XLIB();
+}
-	result = XSendEvent(dpy, ev.xclient.window, True, NoEventMask , &ev);
-	LEAVE_XLIB();
+ev.xclient.type              = ClientMessage;
+ev.xclient.display           = dpy;
-	if ((result == BadValue) || (result == BadWindow)) {
+ev.xclient.message_type      = __longIntVal(msgType);
-	    DPRINTF(("bad status in sendClientEvent\n"));
+ev.xclient.format            = __longIntVal(msgFormat);
-	    RETURN ( false )
-	}
+if (eventMask == nil) {
-	RETURN (true)
+__eventMask = NoEventMask;
+} else {
+__eventMask = __longIntVal(eventMask);
+}
+ENTER_XLIB();
+result = XSendEvent(dpy, targetWindow, (propagate == true ? True : False), __eventMask , &ev);
+LEAVE_XLIB();
+if ((result == BadValue) || (result == BadWindow)) {
+DPRINTF(("bad status in sendClientEvent\n"));
+RETURN ( false )
+}
+RETURN (true)
 }
 %}.
 self primitiveFailedOrClosedConnection.
 ^ false
 !
 ! !
 !XWorkstation methodsFor:'resources'!
 atomIDOf:aStringOrSymbol
-"return an X11 atoms ID; dont create if not already present.
+"return an X11 atoms ID.
 This is highly X specific and only for local use (with selections).
 The default is to create the atom, if it does not exist, in order to
 speed up future lookups"
 ^ self atomIDOf:aStringOrSymbol create:true
 }
 %}.
 self primitiveFailedOrClosedConnection
 !
+setForegroundWindow:aWindowId
+"bring a window to front.
+Send a specific message to the WindowManager"
+|activeWindowAtom|
+self raiseWindow:aWindowId.
+activeWindowAtom := self atomIDOf:#'_NET_ACTIVE_WINDOW'.
+activeWindowAtom notNil ifTrue:[
+self
+sendClientEvent:activeWindowAtom
+format:32
+to:(self rootWindowId)
+propagate:false
+eventMask:((self eventMaskFor:#substructureNotify) bitOr:(self eventMaskFor:#substructureRedirect))
+window:aWindowId
+data1:2                 "activate request from pager. This is a trick: kwm ignores requests from applications (1)"
+data2:nil
+data3:nil
+data4:nil
+data5:nil.
+].
+!
 setIconName:aString in:aWindowId
 "define a windows iconname"
 <context: #return>
 %{
 ! !
 !XWorkstation class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.496 2008-03-15 17:17:21 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.497 2008-09-12 18:42:11 stefan Exp $'
 ! !
 XWorkstation initialize!

changeset 5033	27bc058343f0
parent 4928	4e457b74f5d2
child 5034	c2e7d8a07da8