equal
deleted
inserted
replaced
563 old ~~ aDevice ifTrue:[ |
563 old ~~ aDevice ifTrue:[ |
564 DisplayRootView initialize. |
564 DisplayRootView initialize. |
565 ]. |
565 ]. |
566 ! ! |
566 ! ! |
567 |
567 |
|
568 !DeviceWorkstation class methodsFor:'clipboard support'! |
|
569 |
|
570 bufferAsString:aBuffer |
|
571 "aBuffer (my current selection) as a string" |
|
572 |
|
573 aBuffer isString ifTrue:[ |
|
574 ^ aBuffer string. |
|
575 ]. |
|
576 |
|
577 aBuffer isNil ifTrue:[ |
|
578 ^ '' |
|
579 ]. |
|
580 |
|
581 aBuffer isStringCollection ifTrue:[ |
|
582 ^ aBuffer |
|
583 from:1 |
|
584 to:aBuffer size |
|
585 asStringWith:Character cr |
|
586 compressTabs:false |
|
587 final:nil |
|
588 withEmphasis:false. |
|
589 ]. |
|
590 |
|
591 RecursiveStoreError handle:[:ex | |
|
592 ^ '' |
|
593 ] do:[ |
|
594 ^ aBuffer storeString |
|
595 ] |
|
596 |
|
597 "Created: / 13.2.1997 / 13:10:30 / cg" |
|
598 "Modified: / 20.1.1998 / 14:11:01 / stefan" |
|
599 ! ! |
|
600 |
568 !DeviceWorkstation class methodsFor:'defaults'! |
601 !DeviceWorkstation class methodsFor:'defaults'! |
569 |
602 |
570 defaultButtonPressTimeForMenu |
603 defaultButtonPressTimeForMenu |
571 ^ DefaultButtonPressTimeForMenu ? 1 |
604 ^ DefaultButtonPressTimeForMenu ? 1 |
572 ! |
605 ! |
3110 ! |
3143 ! |
3111 |
3144 |
3112 copyBufferAsString |
3145 copyBufferAsString |
3113 "return my current selection as a string" |
3146 "return my current selection as a string" |
3114 |
3147 |
3115 |o| |
3148 ^ self class bufferAsString:self getCopyBuffer. |
3116 |
|
3117 o := self getCopyBuffer. |
|
3118 o isString ifTrue:[ |
|
3119 ^ o string. |
|
3120 ]. |
|
3121 |
|
3122 o isNil ifTrue:[ |
|
3123 ^ '' |
|
3124 ]. |
|
3125 |
|
3126 o isStringCollection ifTrue:[ |
|
3127 ^ o from:1 |
|
3128 to:o size |
|
3129 asStringWith:Character cr |
|
3130 compressTabs:false |
|
3131 final:nil |
|
3132 withEmphasis:false. |
|
3133 ]. |
|
3134 |
|
3135 RecursiveStoreError handle:[:ex | |
|
3136 ^ '' |
|
3137 ] do:[ |
|
3138 ^ o storeString |
|
3139 ] |
|
3140 |
|
3141 "Created: / 13.2.1997 / 13:10:30 / cg" |
|
3142 "Modified: / 20.1.1998 / 14:11:01 / stefan" |
|
3143 ! |
3149 ! |
3144 |
3150 |
3145 getClipboardObjectFor:drawableId |
3151 getClipboardObjectFor:drawableId |
3146 "Retrieve the common per-display selection object. |
3152 "Retrieve the common per-display selection object. |
3147 For clipBoard mechanisms to work (into ST/X), |
3153 For clipBoard mechanisms to work (into ST/X), |
8140 ! ! |
8146 ! ! |
8141 |
8147 |
8142 !DeviceWorkstation class methodsFor:'documentation'! |
8148 !DeviceWorkstation class methodsFor:'documentation'! |
8143 |
8149 |
8144 version |
8150 version |
8145 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.568 2012-07-12 16:43:32 cg Exp $' |
8151 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $' |
8146 ! |
8152 ! |
8147 |
8153 |
8148 version_CVS |
8154 version_CVS |
8149 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.568 2012-07-12 16:43:32 cg Exp $' |
8155 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $' |
8150 ! ! |
8156 ! ! |
8151 |
8157 |
8152 DeviceWorkstation initialize! |
8158 DeviceWorkstation initialize! |