equal
deleted
inserted
replaced
9586 "answer a collection of symbols with the supported clipboards. |
9586 "answer a collection of symbols with the supported clipboards. |
9587 X11 additionaly supports a buffer containing the currently selected text |
9587 X11 additionaly supports a buffer containing the currently selected text |
9588 (in xterm) - the PRIMARY selection" |
9588 (in xterm) - the PRIMARY selection" |
9589 |
9589 |
9590 ^ #(clipboard selection) |
9590 ^ #(clipboard selection) |
|
9591 ! |
|
9592 |
|
9593 supportsUTF8WindowLabels |
|
9594 "answer true, if window labels are to be utf-8 encoded" |
|
9595 |
|
9596 ^ false |
9591 ! ! |
9597 ! ! |
9592 |
9598 |
9593 !XWorkstation methodsFor:'resources'! |
9599 !XWorkstation methodsFor:'resources'! |
9594 |
9600 |
9595 atomIDOf:aStringOrSymbol |
9601 atomIDOf:aStringOrSymbol |
10787 id := Transcript device parentWindowIdOf:(Transcript id). |
10793 id := Transcript device parentWindowIdOf:(Transcript id). |
10788 self assert: ( Transcript container id = id ). |
10794 self assert: ( Transcript container id = id ). |
10789 " |
10795 " |
10790 ! |
10796 ! |
10791 |
10797 |
|
10798 primSetWindowName:aString in:aWindowId |
|
10799 "define a windows name" |
|
10800 |
|
10801 <context: #return> |
|
10802 %{ |
|
10803 |
|
10804 if (ISCONNECTED |
|
10805 && __isNonNilObject(aString) |
|
10806 && (__qIsString(aString) || __qIsSymbol(aString)) |
|
10807 && __isExternalAddress(aWindowId)) { |
|
10808 ENTER_XLIB(); |
|
10809 XStoreName(myDpy, __WindowVal(aWindowId), (char *) __stringVal(aString)); |
|
10810 LEAVE_XLIB(); |
|
10811 RETURN ( self ); |
|
10812 } |
|
10813 %}. |
|
10814 self primitiveFailedOrClosedConnection |
|
10815 ! |
|
10816 |
10792 raiseWindow:aWindowId |
10817 raiseWindow:aWindowId |
10793 "bring a window to front" |
10818 "bring a window to front" |
10794 |
10819 |
10795 <context: #return> |
10820 <context: #return> |
10796 %{ |
10821 %{ |
11359 ! |
11384 ! |
11360 |
11385 |
11361 setWindowName:aString in:aWindowId |
11386 setWindowName:aString in:aWindowId |
11362 "define a windows name" |
11387 "define a windows name" |
11363 |
11388 |
11364 <context: #return> |
11389 |stringUsed| |
11365 %{ |
11390 |
11366 |
11391 stringUsed := aString. |
11367 if (ISCONNECTED |
11392 self supportsUTF8WindowLabels ifTrue:[ |
11368 && __isNonNilObject(aString) |
11393 stringUsed := aString utf8Encoded. |
11369 && (__qIsString(aString) || __qIsSymbol(aString)) |
11394 ] ifFalse:[ |
11370 && __isExternalAddress(aWindowId)) { |
11395 aString bitsPerCharacter > 8 ifTrue:[ |
11371 ENTER_XLIB(); |
11396 stringUsed := aString utf8Encoded. |
11372 XStoreName(myDpy, __WindowVal(aWindowId), (char *) __stringVal(aString)); |
11397 ]. |
11373 LEAVE_XLIB(); |
11398 ]. |
11374 RETURN ( self ); |
11399 |
11375 } |
11400 self primSetWindowName:stringUsed in:aWindowId |
11376 %}. |
|
11377 self primitiveFailedOrClosedConnection |
|
11378 ! |
11401 ! |
11379 |
11402 |
11380 setWindowShape:aPixmapId in:aWindowId |
11403 setWindowShape:aPixmapId in:aWindowId |
11381 "set the windows shape. |
11404 "set the windows shape. |
11382 Returns false, if the display does not support the |
11405 Returns false, if the display does not support the |
11468 ! ! |
11491 ! ! |
11469 |
11492 |
11470 !XWorkstation class methodsFor:'documentation'! |
11493 !XWorkstation class methodsFor:'documentation'! |
11471 |
11494 |
11472 version |
11495 version |
11473 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.456 2004-03-20 15:35:39 stefan Exp $' |
11496 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.457 2004-03-30 13:59:06 mb Exp $' |
11474 ! ! |
11497 ! ! |
11475 |
11498 |
11476 XWorkstation initialize! |
11499 XWorkstation initialize! |