--- a/keyboard.rc	Fri Oct 14 14:50:06 2016 +0200
+++ b/keyboard.rc	Fri Oct 14 18:37:04 2016 +0200
@@ -46,6 +46,7 @@
 #(
     #Cmd     #Alt
     #Cmd     #Menu
+"/    #Cmd     #Mode_switch
     #Menu    #Appl
     #Menu    #CtrlAppl
     #Menu    #CmdAppl
@@ -153,10 +154,13 @@
     #SelectToEnd              #CtrlE    "that is ctrl-shift-e"
     #SelectFromBeginning      #CtrlA    "that is ctrl-shift-a"
     #ExpandSelectionByLine    #Cmdl     "try multiple Cmd-l's ..."
-    #ExpandSelectionByWord    #CmdW     "try multiple Cmd-shift-w's ..."
+    #ExpandSelectionByWord    #CmdW     "try multiple Cmd-w's ..."
+"/    #ExpandSelectionByWord    #CtrlW    "that is ctrl-shift-w"
 
-    #ZoomIn    #'Ctrl+'
+    #ZoomIn     #'Ctrl+'
     #ZoomOut    #'Ctrl-'
+    #ZoomInAll  #'Ctrl*'
+    #ZoomOutAll #'Ctrlunderscore'
 
     "Notice:
       Cmd-CursorLeft/Right and Alt-CursorLeft/Right
@@ -456,24 +460,33 @@
 "/  xlate characters .... on others, it does and you may remove/comment
 "/  the following.)
 "/
-map bindValue:$[ to:#'Alt['.
-map bindValue:$] to:#'Alt]'.
-map bindValue:$| to:#'Alt|'.
-map bindValue:${ to:#'Alt{'.
-map bindValue:$} to:#'Alt}'.
-map bindValue:$\ to:#'Alt\'.
-map bindValue:$~ to:#'Alt~'.
-map bindValue:$@ to:#'Alt@'.
+OperatingSystem isOSXlike ifFalse:[
+"/    map bindValue:$º to:#'Alt0'.
+"/    map bindValue:$¹ to:#'Alt1'.
+"/    map bindValue:$² to:#'Alt2'.
+"/    map bindValue:$³ to:#'Alt3'.
+"/    map bindValue:$± to:#'Alt+'.
+"/    map bindValue:$° to:#'Altd'. "/ degrees
 
-map bindValue:$[ to:#'Cmd['.
-map bindValue:$] to:#'Cmd]'.
-map bindValue:$| to:#'Cmd|'.
-map bindValue:${ to:#'Cmd{'.
-map bindValue:$} to:#'Cmd}'.
-map bindValue:$\ to:#'Cmd\'.
-map bindValue:$~ to:#'Cmd~'.
-map bindValue:$@ to:#'Cmd@'.
-map bindValue:$# to:#'Cmd#'.
+    map bindValue:$[ to:#'Alt['.
+    map bindValue:$] to:#'Alt]'.
+    map bindValue:$| to:#'Alt|'.
+    map bindValue:${ to:#'Alt{'.
+    map bindValue:$} to:#'Alt}'.
+    map bindValue:$\ to:#'Alt\'.
+    map bindValue:$~ to:#'Alt~'.
+    map bindValue:$@ to:#'Alt@'.
+
+    map bindValue:$[ to:#'Cmd['.
+    map bindValue:$] to:#'Cmd]'.
+    map bindValue:$| to:#'Cmd|'.
+    map bindValue:${ to:#'Cmd{'.
+    map bindValue:$} to:#'Cmd}'.
+    map bindValue:$\ to:#'Cmd\'.
+    map bindValue:$~ to:#'Cmd~'.
+    map bindValue:$@ to:#'Cmd@'.
+    map bindValue:$# to:#'Cmd#'.
+].
 
 map bindValue:#UserInterrupt to:#'Cmd.' .     "/ for squeak compatibility
 map bindValue:#UserInterrupt to:#'Ctrl.' .    "/ for vw compatibility