494 ^ 'X11' "I don't know what ST-80 returns for X ..." |
494 ^ 'X11' "I don't know what ST-80 returns for X ..." |
495 |
495 |
496 "Modified: 26.5.1996 / 15:32:46 / cg" |
496 "Modified: 26.5.1996 / 15:32:46 / cg" |
497 ! ! |
497 ! ! |
498 |
498 |
|
499 !XWorkstation methodsFor:'Signal constants'! |
|
500 |
|
501 deviceErrorSignal |
|
502 "return the per-device signal, which is raised when some |
|
503 X-Error occurs." |
|
504 |
|
505 ^ deviceErrorSignal |
|
506 ! |
|
507 |
|
508 deviceIOrrorSignal |
|
509 "return the per-device signal, which is raised when a fatal |
|
510 IO error (i.e. broken connection) occurs." |
|
511 |
|
512 ^ deviceIOErrorSignal |
|
513 ! ! |
|
514 |
499 !XWorkstation methodsFor:'accessing & queries'! |
515 !XWorkstation methodsFor:'accessing & queries'! |
500 |
516 |
501 anyButtonMotionMask |
517 anyButtonMotionMask |
502 "return the state-mask for any button in motion events' state-field. |
518 "return the state-mask for any button in motion events' state-field. |
503 This is the devices mask." |
519 This is the devices mask." |
779 |
795 |
780 whitepixel |
796 whitepixel |
781 "return the colornumber of white" |
797 "return the colornumber of white" |
782 |
798 |
783 ^ whitepixel |
799 ^ whitepixel |
784 ! ! |
|
785 |
|
786 !XWorkstation methodsFor:'Signal constants'! |
|
787 |
|
788 deviceErrorSignal |
|
789 "return the per-device signal, which is raised when some |
|
790 X-Error occurs." |
|
791 |
|
792 ^ deviceErrorSignal |
|
793 ! |
|
794 |
|
795 deviceIOrrorSignal |
|
796 "return the per-device signal, which is raised when a fatal |
|
797 IO error (i.e. broken connection) occurs." |
|
798 |
|
799 ^ deviceIOErrorSignal |
|
800 ! ! |
800 ! ! |
801 |
801 |
802 !XWorkstation methodsFor:'accessing display capabilities'! |
802 !XWorkstation methodsFor:'accessing display capabilities'! |
803 |
803 |
804 hasDPS |
804 hasDPS |
2638 |
2638 |
2639 "Created: 6.4.1997 / 12:57:56 / cg" |
2639 "Created: 6.4.1997 / 12:57:56 / cg" |
2640 "Modified: 6.4.1997 / 13:38:52 / cg" |
2640 "Modified: 6.4.1997 / 13:38:52 / cg" |
2641 ! |
2641 ! |
2642 |
2642 |
2643 drop:dropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint |
2643 drop:aCollectionOfDropObjects inWindowID:destinationId position:destinationPoint rootPosition:rootPoint |
2644 "drop something in some alien view. |
2644 "drop something in some alien view. |
2645 Returns false, if the drop could not be performed." |
2645 Returns false, if the drop could not be performed." |
2646 |
2646 |
2647 "/ |
2647 "/ |
2648 "/ see, if the display supports the DND protocol ... |
2648 "/ see, if the display supports the DND protocol ... |
2649 "/ |
2649 "/ |
2650 (self atomIDOf:'DndProtocol') notNil ifTrue:[ |
2650 (self atomIDOf:'DndProtocol') notNil ifTrue:[ |
2651 ^ self |
2651 ^ self |
2652 dndDrop:dropObjects |
2652 dndDrop:aCollectionOfDropObjects |
2653 inWindowID:destinationId |
2653 inWindowID:destinationId |
2654 position:destinationPoint |
2654 position:destinationPoint |
2655 rootPosition:rootPoint |
2655 rootPosition:rootPoint |
2656 ]. |
2656 ]. |
2657 |
2657 |
2658 "/ add more drag&drop protocols here. |
2658 "/ add more drag&drop protocols here. |
2659 |
2659 |
2660 ^ false |
2660 ^ false |
2661 |
2661 |
2662 "Modified: 6.4.1997 / 13:40:37 / cg" |
2662 "Modified: 11.4.1997 / 12:44:50 / cg" |
2663 ! ! |
2663 ! ! |
2664 |
2664 |
2665 !XWorkstation methodsFor:'drawing'! |
2665 !XWorkstation methodsFor:'drawing'! |
2666 |
2666 |
2667 copyFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h |
2667 copyFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h |