1028 xlibTimeoutForWindowCreation:seconds |
1029 xlibTimeoutForWindowCreation:seconds |
1029 xlibTimeoutForWindowCreation := seconds |
1030 xlibTimeoutForWindowCreation := seconds |
1030 ! ! |
1031 ! ! |
1031 |
1032 |
1032 !XWorkstation methodsFor:'accessing-display capabilities'! |
1033 !XWorkstation methodsFor:'accessing-display capabilities'! |
|
1034 |
|
1035 extentOfResizeHandle |
|
1036 "if the window system needs any area for a window resize handle (such as on MACOS-X), |
|
1037 this area's extent is returned here. It is assumed, that this handle is located at the lower-right |
|
1038 of the window. |
|
1039 0@0 is returned for systems which locate the resize handles outside the client area. |
|
1040 This may be used by the UI painter or programmatically to reserve some client area. |
|
1041 This method must be redefined for displays which need it (i.e. X11 on osx)" |
|
1042 |
|
1043 OperatingSystem getOSType == #osx ifTrue:[ |
|
1044 "/ should check for local display here - sigh, osx's Xserver does not give |
|
1045 "/ us a hint through the server vendor... |
|
1046 ^ 16@16 |
|
1047 ]. |
|
1048 ^ 0@0 |
|
1049 ! |
1033 |
1050 |
1034 hasDPS |
1051 hasDPS |
1035 "return true, if this workstation supports display postscript. |
1052 "return true, if this workstation supports display postscript. |
1036 Both the server must support it, and the feature must have been |
1053 Both the server must support it, and the feature must have been |
1037 enabled in the smalltalk system, for true to be returned." |
1054 enabled in the smalltalk system, for true to be returned." |
10446 selection := SelectionFetcher |
10463 selection := SelectionFetcher |
10447 requestSelection:clipboardAtom |
10464 requestSelection:clipboardAtom |
10448 type:(self atomIDOf:#'ST_OBJECT') |
10465 type:(self atomIDOf:#'ST_OBJECT') |
10449 onDevice:self for:drawableId. |
10466 onDevice:self for:drawableId. |
10450 |
10467 |
10451 selection isNil ifTrue:[ |
10468 selection isEmptyOrNil ifTrue:[ |
10452 selection := SelectionFetcher |
10469 selection := SelectionFetcher |
10453 requestSelection:clipboardAtom |
10470 requestSelection:clipboardAtom |
10454 type:(self atomIDOf:#'UTF8_STRING') |
10471 type:(self atomIDOf:#'UTF8_STRING') |
10455 onDevice:self for:drawableId. |
10472 onDevice:self for:drawableId. |
10456 ]. |
10473 ]. |
10457 ]. |
10474 ]. |
|
10475 selection isEmptyOrNil ifTrue:[ ^ copyBuffer ]. |
10458 |
10476 |
10459 ^ selection. |
10477 ^ selection. |
10460 |
10478 |
10461 " |
10479 " |
10462 Display getClipboardObjectFor:Transcript id |
10480 Display getClipboardObjectFor:Transcript id |