--- a/display.rc Fri Aug 14 11:15:02 1998 +0200
+++ b/display.rc Thu Aug 27 16:23:22 1998 +0200
@@ -1,35 +1,38 @@
"*
* $Header$
*
- * ST/X startup configuration file:
+ * ST/X startup display configuration file:
*
* DONT add site specific things here - use your own d_xxx.rc file instead
* where xxx stands for your displays hostname(s)
*
* display related configuration:
- * first do some common setup, then try to find a
+ * first do some common setup, then try to figure out
+ * the kind of display and find a
* display specific initialization file.
*"
"*
* mouse-button translation
*
- * (allowed are #select #menu and #paste)
+ * (currently, allowed are 1 2 and #paste)
+ * 1 - button1; used to select (i.e. left button)
+ * 2 - button2; pops up a menu (i.e. middle button)
+ * #paste - paste the clipBoard contents
*
* the following line puts paste onto the right button (as in xterm):
*"
-"/ Screen buttonTranslation:#(select #menu #paste).
+Screen buttonTranslation:#(1 2 #paste).
"*
* while that one puts the pop-up menu both on the middle and right buttons:
*"
-"/ Screen buttonTranslation:#(select #menu #menu).
Screen buttonTranslation:#(1 2 2).
"*
* lefthanders can use:
*"
-"/ Screen buttonTranslation:#(#menu #menu #select).
+"/ Screen buttonTranslation:#(2 2 1).
!
"*
@@ -138,7 +141,7 @@
MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr.
].
- "/ experimanetal and not yet delivered
+ "/ experimanetal and not yet finished / delivered
"/ rdr := Smalltalk at:#PNGReader ifAbsent:nil.
"/ rdr notNil ifTrue:[
@@ -155,7 +158,7 @@
"/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr.
"/ ].
- "/ movie formats - experimanetal and not yet complete
+ "/ movie formats - experimanetal and not yet complete / finished / delivered
"/ rdr := Smalltalk at:#FLIReader ifAbsent:nil.
"/ rdr notNil ifTrue:[
@@ -282,25 +285,20 @@
just an example - stuff can also be hardwired here ...
"
display notNil ifTrue:[
- (display startsWith:'clam') ifTrue:[
- displayType := 'next'
- ].
- (display startsWith:'porty') ifTrue:[
- displayType := 'portable'
- ].
- (display startsWith:'blue') ifTrue:[
- displayType := 'iris'
- ].
- (display startsWith:'sun') ifTrue:[
- displayType := 'sun'
- ].
- (display startsWith:'hp') ifTrue:[
- displayType := 'hpux'
- ].
+ "
+ if, in your organization, all displays are of the
+ same type,
+ use something like:
+ "
+"/ OperatingSystem getDomainName = '<yourDomain>.de' ifTrue:[
+"/ displayType := 'myDisplayType'
+"/ ].
+
"
if, in your organization, the display type can
be deduced from the hostname,
use something like:
+ (take the exept code below as a guide ...)
"
"/ (display startsWith:'slsv') ifTrue:[
"/ "all those machines at SEL are suns"
@@ -314,6 +312,27 @@
"/ "all those machines at AEG are linux boxes with olwm"
"/ displayType := 'linux_olwm'
"/ ].
+
+ OperatingSystem getDomainName = 'exept.de' ifTrue:[
+ (display startsWith:'clam') ifTrue:[
+ displayType := 'next'
+ ].
+ (display startsWith:'porty') ifTrue:[
+ displayType := 'portable'
+ ].
+ (display startsWith:'blue') ifTrue:[
+ displayType := 'iris'
+ ].
+ (display startsWith:'sun') ifTrue:[
+ displayType := 'sun'
+ ].
+ (display startsWith:'sol') ifTrue:[
+ displayType := 'sun'
+ ].
+ (display startsWith:'hp') ifTrue:[
+ displayType := 'hpux'
+ ].
+ ].
].
].
].
@@ -446,6 +465,9 @@
View defaultStyle:#'mswindows'
]
].
+
+ "/ final fallBack ...
+
View defaultStyle isNil ifTrue:[
Display hasGreyscales ifTrue:[
View defaultStyle:#iris