Merge branch 'master' of git.liokor.com:KoroLion/FunctionImagingInPascal

.gitignore

@@ -1,3 +1,9 @@
+.DS_Store
+
+build/gui
+build/function_imaging
+build/multibrot_imaging
+
 *.o
 *.ppu
 *.exe

build.mac.sh

@@ -0,0 +1,17 @@
+rm ./build/multibrot_imaging
+rm ./build/function_imaging
+rm ./build/gui
+
+cd ./src
+fpc multibrot_imaging.pas
+mv multibrot_imaging ../build/
+fpc function_imaging.pas
+mv function_imaging ../build/
+rm *.o
+rm *.ppu
+
+cd ./gui
+fpc gui.pas -Fu/usr/local/Cellar/fpc/3.0.4_1/lib/fpc/3.0.4/units/x86_64-darwin/fv
+mv gui ../../build/
+rm *.o
+rm *.ppu

src/gui/gui.pas

@@ -315,10 +315,11 @@ begin
   r.a.y := r.b.y - 1;
   New(StatusLine, Init(r,
     NewStatusDef(0, $EFFF,
-      NewStatusKey('~Alt+X~ Exit', kbAltX, cmQuit,
-      NewStatusKey('~F3~ New', kbF3, cmMbNew,
+      NewStatusKey('~F2~ Exit', kbF2, cmQuit,
+      NewStatusKey('~F3~ New Mb', kbF3, cmMbNew,
+      NewStatusKey('~F4~ New Fn', kbF4, cmFnNew,
       nil
-    )), nil)
+    ))), nil)
   ));
 end;