hg/stx-projects-smalltalk: d_sun.rc@36927a04ace3 (annotated)

0 0cb137a77319 Initial revision claus parents: diff changeset	1	"*
609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 399 diff changeset	2	* Encoding: iso8859-1
f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 399 diff changeset	3	*
0 0cb137a77319 Initial revision claus parents: diff changeset	4	* $Header$
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 8 diff changeset	5	*
399 5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	6	* MIMEType: application/x-smalltalk-source
5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	7	*
209 22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 199 diff changeset	8	* ST/X startup configuration file:
0 0cb137a77319 Initial revision claus parents: diff changeset	9	* display configuration - sun
100 7d469db172b1 commentary Claus Gittinger <cg@exept.de> parents: 84 diff changeset	10	*
7d469db172b1 commentary Claus Gittinger <cg@exept.de> parents: 84 diff changeset	11	* If your display is the above, create a symbolic link
7d469db172b1 commentary Claus Gittinger <cg@exept.de> parents: 84 diff changeset	12	* d_<hostname-of-display>.rc -> d_sun.rc
7d469db172b1 commentary Claus Gittinger <cg@exept.de> parents: 84 diff changeset	13	*
0 0cb137a77319 Initial revision claus parents: diff changeset	14	*"
0cb137a77319 Initial revision claus parents: diff changeset	15
199 2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	16	"/
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	17	"/ the following helps to avoid the annoying click
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	18	"/ on newly opened windows ...
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	19	"/
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	20	StandardSystemView takeFocusWhenMapped:true.
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	21
2f1fb3201393 * empty log message * Claus Gittinger <cg@exept.de> parents: 100 diff changeset	22
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	23	"*
420e4af41733 * empty log message * claus parents: 3 diff changeset	24	* view style - uncomment the one you like
420e4af41733 * empty log message * claus parents: 3 diff changeset	25	*"
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	26
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	27	"/ actually, openwin-style is not finished yet
615 15f909642204 * empty log message * Claus Gittinger <cg@exept.de> parents: 609 diff changeset	28	"/ you may prefer #iris, #motif
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	29
715 529ebe47d1e9 Change default window style to #mswindowsXP Stefan Vogel <sv@exept.de> parents: 615 diff changeset	30	View defaultStyle:#mswindowsXP.
615 15f909642204 * empty log message * Claus Gittinger <cg@exept.de> parents: 609 diff changeset	31	"/ View defaultStyle:#openwin.
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	32	"/ View defaultStyle:#iris.
d82829c0d867 * empty log message * claus parents: 7 diff changeset	33	"/ View defaultStyle:#motif.
0 0cb137a77319 Initial revision claus parents: diff changeset	34	!
0cb137a77319 Initial revision claus parents: diff changeset	35
0cb137a77319 Initial revision claus parents: diff changeset	36	"
0cb137a77319 Initial revision claus parents: diff changeset	37	define suns left-function keys
0cb137a77319 Initial revision claus parents: diff changeset	38	(this really should be done by xmodmap/server)
0cb137a77319 Initial revision claus parents: diff changeset	39	"
0cb137a77319 Initial revision claus parents: diff changeset	40	\|map\|
0cb137a77319 Initial revision claus parents: diff changeset	41
0cb137a77319 Initial revision claus parents: diff changeset	42	map := Display keyboardMap.
0cb137a77319 Initial revision claus parents: diff changeset	43
0cb137a77319 Initial revision claus parents: diff changeset	44	map bindValue:#Find to:#F19.
0cb137a77319 Initial revision claus parents: diff changeset	45	map bindValue:#Cut to:#F20.
0cb137a77319 Initial revision claus parents: diff changeset	46	map bindValue:#Paste to:#F18.
0cb137a77319 Initial revision claus parents: diff changeset	47	map bindValue:#Open to:#F17.
0cb137a77319 Initial revision claus parents: diff changeset	48	map bindValue:#Copy to:#F16.
0cb137a77319 Initial revision claus parents: diff changeset	49	map bindValue:#Undo to:#F14.
0cb137a77319 Initial revision claus parents: diff changeset	50	map bindValue:#Props to:#F13.
0cb137a77319 Initial revision claus parents: diff changeset	51	map bindValue:#Again to:#F12.
0cb137a77319 Initial revision claus parents: diff changeset	52	map bindValue:#Prior to:#F29.
0cb137a77319 Initial revision claus parents: diff changeset	53	map bindValue:#Next to:#F35.
0cb137a77319 Initial revision claus parents: diff changeset	54	map bindValue:#Home to:#F27.
0cb137a77319 Initial revision claus parents: diff changeset	55	map bindValue:#End to:#R13.
356 4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	56
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	57	"/ a kludge: some Xservers send #Delete for both the backspace
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	58	"/ and the Delete key. In this case, we use the Backspace function
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	59	"/ for both keys. If your Xserver does not do this (it should not)
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	60	"/ remove or comment the following 'bindValue:#BackSpace'-line:
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	61	"/
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	62
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	63	map bindValue:#BackSpace to:#Delete.
4275f251cb37 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	64
0 0cb137a77319 Initial revision claus parents: diff changeset	65	!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 11 Jun 2018 11:15:47 +0100
branch	jv
changeset 1558	36927a04ace3
parent 715	529ebe47d1e9
permissions	-rw-r--r--