welder looks better on mac (application name, menu bar); provide impl…

…ementation of hashCode for proxy interface implementations in arc

src/arc/lib/midi/midi.arc

@@ -263,6 +263,18 @@
              (cons (+ semitones car.n) cdr.n))
     (fn (note) (note-apply f note))))
 
+(mac three-note-sequence args
+  (let f (fn (seq2)
+             (list (mksym 's seq2.0 '/ seq2.1)
+                   '(note v1 (o v2 mf) (o length 1))
+                   `(mono (note v1 length) 
+                          ((note 'transpose ,seq2.0) v2 length)
+                          ((note 'transpose ,seq2.1) v2 length))))
+    `(defs ,@(mappend f (tuples args 2)))))
+
+(three-note-sequence
+  -5 -8  -4 -2   2  4   3  1    4  2    5  2)
+
 (mac four-note-sequence args
   (let f (fn (seq3)
              (list (mksym 's seq3.0 '/ seq3.1 '/ seq3.2)

src/arc/rainbow.sh

@@ -1,3 +1,3 @@
 CP=`echo rainbow/java-lib/* | sed 's/ /\:/g'`
-java -Xmx1G -Dswing.aatext=true -server -cp rainbow.jar:$CP rainbow.Console  $*
+java -Xmx1G -Xdock:name=Rainbow -Dswing.aatext=true -server -cp rainbow.jar:$CP rainbow.Console  $*
 

src/arc/rainbow/welder.arc

@@ -721,7 +721,16 @@
 
 (assign open-welders (table))
 
+(java-imports javax.swing UIManager)
+(java-imports java.lang System)
+
+(def welder-first-time ()
+  (UIManager 'setLookAndFeel UIManager.getSystemLookAndFeelClassName)
+  (System 'setProperty "apple.laf.useScreenMenuBar" "true")
+  (assign welder-first-time nilfn))
+
 (def welder ((o file) (o txt))
+  (welder-first-time)
   (let wname (if file canonical-path.file
                  txt  "*scratch(#((len open-welders)))*"
                       "*scratch*")

src/java/rainbow/types/JavaProxy.java

@@ -54,6 +54,8 @@ public Object invoke2(Object target, Method method, Object[] arguments) throws T
       }
       if (method.getName().equals("toString")) {
         return "Arc implementation of " + interfaces + " : " + functions.toString();
+      } else if (method.getName().equals("hashCode")) {
+        return this.hashCode();
       } else {
         if (strict) {
           throw new ArcError("No implementation provided for " + method + "; implementations include " + functions);