From f3414007fade13d9aa42888b62750f68e6b1c8d7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 31 Mar 2003 21:44:40 +0000
Subject: [PATCH] fixed key description and added create_fpc_deb.sh

git-svn-id: trunk@3991 -
---
 .gitattributes                  |  1 +
 ide/keymapping.pp               | 20 ++++----
 tools/install/create_fpc_deb.sh | 85 +++++++++++++++++++++++++++++++++
 3 files changed, 96 insertions(+), 10 deletions(-)
 create mode 100644 tools/install/create_fpc_deb.sh

diff --git a/.gitattributes b/.gitattributes
index 4ab0cdd274..0bcadcfc70 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -833,6 +833,7 @@ packager/ufrmaddcomponent.lrs svneol=native#text/pascal
 packager/ufrmaddcomponent.pas svneol=native#text/pascal
 tools/apiwizz/apiwizard.pp svneol=native#text/pascal
 tools/apiwizz/apiwizz.pp svneol=native#text/pascal
+tools/install/create_fpc_deb.sh -text svneol=native#application/x-sh
 tools/install/create_fpc_export_tgz.sh -text svneol=native#application/x-sh
 tools/install/create_fpc_rpm.sh -text svneol=native#application/x-sh
 tools/install/create_fpc_tgz_from_local_dir.sh -text svneol=native#application/x-sh
diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index 9728defe9c..242f30db3b 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -499,7 +499,7 @@ begin
     ecMoveEditorLeft        : Result:= srkmecMoveEditorLeft;
     ecMoveEditorRight       : Result:= srkmecMoveEditorRight;
     ecGotoEditor1..
-    ecGotoEditor0           : Format(srkmecGotoEditor,[cmd-ecGotoEditor1]);
+    ecGotoEditor0           : Result:= Format(srkmecGotoEditor,[cmd-ecGotoEditor1]);
 
     // file menu
     ecNew                   : Result:= srkmecNew;
@@ -1368,15 +1368,15 @@ begin
   C:=Categories[AddCategory('SourceNotebook',srkmCatSrcNoteBook,caAll)];
   Add(C,'Go to next editor',ecNextEditor, VK_TAB, [ssCtrl], VK_UNKNOWN, []);
   Add(C,'Go to prior editor',ecPrevEditor, VK_TAB, [ssShift,ssCtrl], VK_UNKNOWN, []);
-  Add(C,'Go to source editor 1',ecGotoEditor0,VK_1,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 2',ecGotoEditor0,VK_2,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 3',ecGotoEditor0,VK_3,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 4',ecGotoEditor0,VK_4,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 5',ecGotoEditor0,VK_5,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 6',ecGotoEditor0,VK_6,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 7',ecGotoEditor0,VK_7,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 8',ecGotoEditor0,VK_8,[ssAlt],VK_UNKNOWN,[]);
-  Add(C,'Go to source editor 9',ecGotoEditor0,VK_9,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 1',ecGotoEditor1,VK_1,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 2',ecGotoEditor2,VK_2,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 3',ecGotoEditor3,VK_3,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 4',ecGotoEditor4,VK_4,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 5',ecGotoEditor5,VK_5,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 6',ecGotoEditor6,VK_6,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 7',ecGotoEditor7,VK_7,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 8',ecGotoEditor8,VK_8,[ssAlt],VK_UNKNOWN,[]);
+  Add(C,'Go to source editor 9',ecGotoEditor9,VK_9,[ssAlt],VK_UNKNOWN,[]);
   Add(C,'Go to source editor 10',ecGotoEditor0,VK_0,[ssAlt],VK_UNKNOWN,[]);
   Add(C,'Move editor left',ecMoveEditorLeft, VK_UNKNOWN, [], VK_UNKNOWN, []);
   Add(C,'Move editor right',ecMoveEditorLeft, VK_UNKNOWN, [], VK_UNKNOWN, []);
diff --git a/tools/install/create_fpc_deb.sh b/tools/install/create_fpc_deb.sh
new file mode 100644
index 0000000000..44e36ec9f6
--- /dev/null
+++ b/tools/install/create_fpc_deb.sh
@@ -0,0 +1,85 @@
+#!/bin/bash
+
+set -x
+set -e
+
+Usage="Usage: $0 devel or stable"
+
+FPCVersion=$1
+
+FPCVersionOk=no
+for ver in devel stable; do
+  if [ "x$FPCVersion" = "x$ver" ]; then
+    FPCVersionOk=yes
+  fi
+done
+if [ "x$FPCVersionOk" = "xno" ]; then
+  echo $Usage
+  exit -1
+fi
+
+
+# set here the fpc cvs dates for the various versions
+if [ "x$FPCVersion" = "xdevel" ]; then
+  Year=02
+  Month=12
+  Day=25
+  LazVersion=1.1
+fi
+if [ "x$FPCVersion" = "xstable" ]; then
+  Year=03
+  Month=03
+  Day=01
+  LazVersion=1.0.7
+fi
+
+
+Date=20$Year$Month$Day
+LazRelease=laz.$Date
+SrcTGZ=fpcsrc-$LazVersion-$LazRelease.tgz
+TmpDir=/tmp/fpc$LazVersion
+DebianRulezDir=$TmpDir/fpc/install/debian/
+
+# download fpc cvs if necessary
+if [ ! -f $SrcTGZ ]; then
+  ./create_fpc_export_tgz.sh $SrcTGZ $FPCVersion $Month/$Day/$Year
+fi
+
+# unpack source into temporary directory
+rm -rf $TmpDir
+mkdir -p $TmpDir
+cp $SrcTGZ $TmpDir/
+cd $TmpDir
+tar xzf $SrcTGZ
+cd -
+
+# change debian files
+
+# prepend changelog information
+cd $DebianRulezDir
+File=changelog
+OldFile=changelog.old.fpc
+cp $File $OldFile
+echo "fpc ($LazVersion-$LazRelease) unstable; urgency=low" > $File
+echo '  * Unoffical snapshot build for lazarus' >> $File
+echo ' -- Mattias Gaertner <mattias@freepascal.org>  Mon,  31 Mar 2003 11:01:50 +0100' >> $File
+echo "" >> $File
+cat $OldFile >> $File 
+rm $OldFile
+cd -
+
+
+# compile
+cd $TmpDir/fpc
+make rtl
+make compiler
+make deb
+cd -
+
+
+echo
+#echo building fpcsrc deb ...
+
+
+# end.
+