because of bail I the editor unindents now on pressing }. have fun!

editor/editor2/UnitFunc.pas

@@ -585,6 +585,11 @@ begin
     exit;
   end;
 
+  for i := 0 to frmSaveDialog.lstFiles.Items.Count -1 do begin
+    if Pos('&', frmSaveDialog.lstFiles.Items[i]) = 1 then
+      frmSaveDialog.lstFiles.Items[i] := Copy(frmSaveDialog.lstFiles.Items[i], 2, Length(frmSaveDialog.lstFiles.Items[i]));
+  end;
+
   if frmSaveDialog.ShowModal = mrOk then begin
     for i := 0 to frmSaveDialog.lstFiles.Items.Count -1 do begin
       if frmSaveDialog.lstFiles.Checked[i] then begin

editor/editor2/UnitfrmExceptionHandler.dfm

@@ -0,0 +1,99 @@
+object ExceptionDialog: TExceptionDialog
+  Left = 363
+  Top = 284
+  ActiveControl = OkBtn
+  AutoScroll = False
+  BorderIcons = [biSystemMenu]
+  Caption = 'Exception-Handler ONLY FOR DESIGN'
+  ClientHeight = 255
+  ClientWidth = 432
+  Color = clBtnFace
+  Constraints.MinWidth = 200
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  ShowHint = True
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnPaint = FormPaint
+  OnResize = FormResize
+  OnShow = FormShow
+  DesignSize = (
+    432
+    255)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Bevel1: TBevel
+    Left = 3
+    Top = 91
+    Width = 428
+    Height = 9
+    Anchors = [akLeft, akTop, akRight]
+    Shape = bsTopLine
+  end
+  object OkBtn: TButton
+    Left = 352
+    Top = 4
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '&OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 1
+  end
+  object DetailsMemo: TMemo
+    Left = 4
+    Top = 101
+    Width = 424
+    Height = 150
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentColor = True
+    ParentFont = False
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 3
+    WantReturns = False
+    WordWrap = False
+  end
+  object DetailsBtn: TButton
+    Left = 352
+    Top = 60
+    Width = 75
+    Height = 25
+    Hint = 'Show or hide additional information|'
+    Anchors = [akTop, akRight]
+    Caption = '&Details'
+    Enabled = False
+    TabOrder = 2
+    OnClick = DetailsBtnClick
+  end
+  object TextLabel: TMemo
+    Left = 56
+    Top = 8
+    Width = 281
+    Height = 75
+    Hint = 'Use Ctrl+C to copy the report to the clipboard'
+    Anchors = [akLeft, akTop, akRight]
+    BorderStyle = bsNone
+    Ctl3D = True
+    Lines.Strings = (
+      'TextLabel')
+    ParentColor = True
+    ParentCtl3D = False
+    ReadOnly = True
+    TabOrder = 0
+    WantReturns = False
+  end
+end

editor/editor2/UnitfrmExceptionHandler.pas

@@ -0,0 +1,742 @@
+{**************************************************************************************************}
+{                                                                                                  }
+{ Project JEDI Code Library (JCL)                                                                  }
+{                                                                                                  }
+{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
+{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
+{ License at http://www.mozilla.org/MPL/                                                           }
+{                                                                                                  }
+{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
+{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
+{ and limitations under the License.                                                               }
+{                                                                                                  }
+{ The Original Code is ExceptDlg.pas.                                                              }
+{                                                                                                  }
+{ The Initial Developer of the Original Code is documented in the accompanying                     }
+{ help file JCL.chm. Portions created by these individuals are Copyright (C) of these individuals. }
+{                                                                                                  }
+{**************************************************************************************************}
+{                                                                                                  }
+{ Sample Application exception dialog replacement                                                  }
+{                                                                                                  }
+{ Last modified: April 1, 2003                                                                     }
+{                                                                                                  }
+{**************************************************************************************************}
+
+unit UnitfrmExceptionHandler;
+
+{$I jcl.inc}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, ExtCtrls, JclDebug;
+
+const
+  UM_CREATEDETAILS = WM_USER + $100;
+
+  ReportToLogEnabled   = $00000001; // TExceptionDialog.Tag property
+  DisableTextScrollbar = $00000002; // TExceptionDialog.Tag property
+
+type
+  TSimpleExceptionLog = class (TObject)
+  private
+    FLogFileHandle: THandle;
+    FLogFileName: string;
+    FLogWasEmpty: Boolean;
+    function GetLogOpen: Boolean;
+  protected
+    function CreateDefaultFileName: string;
+  public
+    constructor Create(const ALogFileName: string = '');
+    destructor Destroy; override;
+    procedure CloseLog;
+    procedure OpenLog;
+    procedure Write(const Text: string; Indent: Integer = 0); overload;
+    procedure Write(Strings: TStrings; Indent: Integer = 0); overload;
+    procedure WriteStamp(SeparatorLen: Integer = 0);
+    property LogFileName: string read FLogFileName;
+    property LogOpen: Boolean read GetLogOpen;
+  end;
+
+  TExcDialogSystemInfo = (siStackList, siOsInfo, siModuleList, siActiveControls);
+  TExcDialogSystemInfos = set of TExcDialogSystemInfo;
+
+  TExceptionDialog = class(TForm)
+    OkBtn: TButton;
+    DetailsMemo: TMemo;
+    DetailsBtn: TButton;
+    Bevel1: TBevel;
+    TextLabel: TMemo;
+    procedure FormPaint(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure DetailsBtnClick(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+  private
+    FDetailsVisible: Boolean;
+    FIsMainThead: Boolean;
+    FLastActiveControl: TWinControl;
+    FNonDetailsHeight: Integer;
+    FFullHeight: Integer;
+    FSimpleLog: TSimpleExceptionLog;
+    procedure CreateDetails;
+    function GetReportAsText: string;
+    procedure ReportToLog;
+    procedure SetDetailsVisible(const Value: Boolean);
+    procedure UMCreateDetails(var Message: TMessage); message UM_CREATEDETAILS;
+  protected
+    procedure AfterCreateDetails; dynamic;
+    procedure BeforeCreateDetails; dynamic;
+    procedure CreateDetailInfo; dynamic;
+    procedure CreateReport(const SystemInfo: TExcDialogSystemInfos);
+    function ReportMaxColumns: Integer; virtual;
+    function ReportNewBlockDelimiterChar: Char; virtual;
+    procedure NextDetailBlock;
+    procedure UpdateTextLabelScrollbars;
+  public
+    procedure CopyReportToClipboard;
+    class procedure ExceptionHandler(Sender: TObject; E: Exception);
+    class procedure ExceptionThreadHandler(Thread: TJclDebugThread);
+    class procedure ShowException(E: Exception; Thread: TJclDebugThread);
+    property DetailsVisible: Boolean read FDetailsVisible write SetDetailsVisible;
+    property ReportAsText: string read GetReportAsText;
+    property SimpleLog: TSimpleExceptionLog read FSimpleLog;
+  end;
+
+  TExceptionDialogClass = class of TExceptionDialog;
+
+var
+  ExceptionDialogClass: TExceptionDialogClass = TExceptionDialog;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  ClipBrd, Math,
+  JclBase, JclFileUtils, JclHookExcept, JclPeImage, JclStrings, JclSysInfo, JclSysUtils;
+
+resourcestring
+  RsAppError = '%s - application error';
+  RsExceptionClass = 'Exception class: %s';
+  RsExceptionAddr = 'Exception address: %p';
+  RsStackList = 'Stack list, generated %s';
+  RsModulesList = 'List of loaded modules:';
+  RsOSVersion = 'System   : %s %s, Version: %d.%d, Build: %x, "%s"';
+  RsProcessor = 'Processor: %s, %s, %d MHz %s%s';
+  RsScreenRes = 'Display  : %dx%d pixels, %d bpp';
+  RsActiveControl = 'Active Controls hierarchy:';
+  RsThread = 'Thread: %s';
+  RsMissingVersionInfo = '(no version info)';
+
+var
+  ExceptionDialog: TExceptionDialog;
+
+//==================================================================================================
+// Helper routines
+//==================================================================================================
+
+function GetBPP: Integer;
+var
+  DC: HDC;
+begin
+  DC := GetDC(0);
+  Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
+  ReleaseDC(0, DC);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function SortModulesListByAddressCompare(List: TStringList; Index1, Index2: Integer): Integer;
+begin
+  Result := Integer(List.Objects[Index1]) - Integer(List.Objects[Index2]);
+end;
+
+//==================================================================================================
+// TApplication.HandleException method code hooking for exceptions from DLLs
+//==================================================================================================
+
+// We need to catch the last line of TApplication.HandleException method:
+// [...]
+//   end else
+//    SysUtils.ShowException(ExceptObject, ExceptAddr);
+// end;
+
+procedure HookShowException(ExceptObject: TObject; ExceptAddr: Pointer);
+begin
+  if JclValidateModuleAddress(ExceptAddr) and (ExceptObject.InstanceSize >= Exception.InstanceSize) then
+    TExceptionDialog.ExceptionHandler(nil, Exception(ExceptObject))
+  else
+    SysUtils.ShowException(ExceptObject, ExceptAddr);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function HookTApplicationHandleException: Boolean;
+const
+  CallOffset      = $86;
+  CallOffsetDebug = $94;
+type
+  PCALLInstruction = ^TCALLInstruction;
+  TCALLInstruction = packed record
+    Call: Byte;
+    Address: Integer;
+  end;
+var
+  TApplicationHandleExceptionAddr, SysUtilsShowExceptionAddr: Pointer;
+  CALLInstruction: TCALLInstruction;
+  CallAddress: Pointer;
+  NW: DWORD;
+
+  function CheckAddressForOffset(Offset: Cardinal): Boolean;
+  begin
+    try
+      CallAddress := Pointer(Cardinal(TApplicationHandleExceptionAddr) + Offset);
+      CALLInstruction.Call := $E8;
+      Result := PCALLInstruction(CallAddress)^.Call = CALLInstruction.Call;
+      if Result then
+      begin
+        if IsCompiledWithPackages then
+          Result := PeMapImgResolvePackageThunk(Pointer(Integer(CallAddress) + Integer(PCALLInstruction(CallAddress)^.Address) + SizeOf(CALLInstruction))) = SysUtilsShowExceptionAddr
+        else
+          Result := PCALLInstruction(CallAddress)^.Address = Integer(SysUtilsShowExceptionAddr) - Integer(CallAddress) - SizeOf(CALLInstruction);
+      end;
+    except
+      Result := False;
+    end;    
+  end;
+
+begin
+  TApplicationHandleExceptionAddr := PeMapImgResolvePackageThunk(@TApplication.HandleException);
+  SysUtilsShowExceptionAddr := PeMapImgResolvePackageThunk(@SysUtils.ShowException);
+  Result := CheckAddressForOffset(CallOffset) or CheckAddressForOffset(CallOffsetDebug);
+  if Result then
+  begin
+    CALLInstruction.Address := Integer(@HookShowException) - Integer(CallAddress) - SizeOf(CALLInstruction);
+    Result := WriteProcessMemory(GetCurrentProcess, CallAddress, @CALLInstruction, SizeOf(CALLInstruction), NW);
+    if Result then
+      FlushInstructionCache(GetCurrentProcess, CallAddress, SizeOf(CALLInstruction));
+  end;
+end;
+
+//==================================================================================================
+// TSimpleExceptionLog
+//==================================================================================================
+
+procedure TSimpleExceptionLog.CloseLog;
+begin
+  if LogOpen then
+  begin
+    CloseHandle(FLogFileHandle);
+    FLogFileHandle := INVALID_HANDLE_VALUE;
+    FLogWasEmpty := False;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+constructor TSimpleExceptionLog.Create(const ALogFileName: string);
+begin
+  if ALogFileName = '' then
+    FLogFileName := CreateDefaultFileName
+  else
+    FLogFileName := ALogFileName;
+  FLogFileHandle := INVALID_HANDLE_VALUE;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function TSimpleExceptionLog.CreateDefaultFileName: string;
+begin
+  Result := PathExtractFileDirFixed(ParamStr(0)) + PathExtractFileNameNoExt(ParamStr(0)) + '_Err.log';
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+destructor TSimpleExceptionLog.Destroy;
+begin
+  CloseLog;
+  inherited;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function TSimpleExceptionLog.GetLogOpen: Boolean;
+begin
+  Result := FLogFileHandle <> INVALID_HANDLE_VALUE;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TSimpleExceptionLog.OpenLog;
+begin
+  if not LogOpen then
+  begin
+    FLogFileHandle := CreateFile(PChar(FLogFileName), GENERIC_WRITE, FILE_SHARE_READ, nil,
+      OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
+    if LogOpen then
+      FLogWasEmpty := SetFilePointer(FLogFileHandle, 0, nil, FILE_END) = 0;
+  end
+  else
+    FLogWasEmpty := False;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TSimpleExceptionLog.Write(const Text: string; Indent: Integer);
+var
+  S: string;
+  SL: TStringList;
+  I: Integer;
+begin
+  if LogOpen then
+  begin
+    SL := TStringList.Create;
+    try
+      SL.Text := Text;
+      for I := 0 to SL.Count - 1 do
+      begin
+        S := StringOfChar(' ', Indent) + StrEnsureSuffix(AnsiCrLf, TrimRight(SL[I]));
+        FileWrite(Integer(FLogFileHandle), Pointer(S)^, Length(S));
+      end;
+    finally
+      SL.Free;
+    end;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TSimpleExceptionLog.Write(Strings: TStrings; Indent: Integer);
+var
+  I: Integer;
+begin
+  for I := 0 to Strings.Count - 1 do
+    Write(Strings[I], Indent);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TSimpleExceptionLog.WriteStamp(SeparatorLen: Integer);
+begin
+  if SeparatorLen = 0 then
+    SeparatorLen := 100;
+  SeparatorLen := Max(SeparatorLen, 20);  
+  OpenLog;
+  if not FLogWasEmpty then
+    Write(AnsiCrLf);
+  Write(StrRepeat('=', SeparatorLen));
+  Write(Format('= %-*s =', [SeparatorLen - 4, DateTimeToStr(Now)]));
+  Write(StrRepeat('=', SeparatorLen));
+end;
+
+//==================================================================================================
+// Exception dialog
+//==================================================================================================
+
+var
+  ExceptionShowing: Boolean;
+
+{ TExceptionDialog }
+
+procedure TExceptionDialog.AfterCreateDetails;
+begin
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.BeforeCreateDetails;
+begin
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.CopyReportToClipboard;
+begin
+  ClipBoard.AsText := ReportAsText;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.CreateDetailInfo;
+begin
+  CreateReport([siStackList, siOsInfo, siModuleList, siActiveControls]);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.CreateDetails;
+begin
+  Screen.Cursor := crHourGlass;
+  DetailsMemo.Lines.BeginUpdate;
+  try
+    CreateDetailInfo;
+    ReportToLog;
+    DetailsMemo.SelStart := 0;
+    SendMessage(DetailsMemo.Handle, EM_SCROLLCARET, 0, 0);
+    AfterCreateDetails;
+  finally
+    DetailsMemo.Lines.EndUpdate;
+    OkBtn.Enabled := True;
+    DetailsBtn.Enabled := True;
+    OkBtn.SetFocus;
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.CreateReport(const SystemInfo: TExcDialogSystemInfos);
+const
+  MMXText: array[Boolean] of PChar = ('', 'MMX');
+  FDIVText: array[Boolean] of PChar = (' [FDIV Bug]', '');
+var
+  SL: TStringList;
+  I: Integer;
+  ModuleName: TFileName;
+  CpuInfo: TCpuInfo;
+  C: TWinControl;
+  NtHeaders: PImageNtHeaders;
+  ModuleBase: Cardinal;
+  ImageBaseStr: string;
+  StackList: TJclStackInfoList;
+begin
+  SL := TStringList.Create;
+  try
+    // Stack list
+    if siStackList in SystemInfo then
+    begin
+      StackList := JclLastExceptStackList;
+      if Assigned(StackList) then
+      begin
+        DetailsMemo.Lines.Add(Format(RsStackList, [DateTimeToStr(StackList.TimeStamp)]));
+        StackList.AddToStrings(DetailsMemo.Lines, False, True, True);
+        NextDetailBlock;
+      end;
+    end;
+    // System and OS information
+    if siOsInfo in SystemInfo then
+    begin
+      DetailsMemo.Lines.Add(Format(RsOSVersion, [GetWindowsVersionString, NtProductTypeString,
+        Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion]));
+      GetCpuInfo(CpuInfo);
+      with CpuInfo do
+        DetailsMemo.Lines.Add(Format(RsProcessor, [Manufacturer, CpuName,
+          RoundFrequency(FrequencyInfo.NormFreq),
+          MMXText[MMX], FDIVText[IsFDIVOK]]));
+      DetailsMemo.Lines.Add(Format(RsScreenRes, [Screen.Width, Screen.Height, GetBPP]));
+      NextDetailBlock;
+    end;
+    // Modules list
+    if (siModuleList in SystemInfo) and LoadedModulesList(SL, GetCurrentProcessId) then
+    begin
+      DetailsMemo.Lines.Add(RsModulesList);
+      SL.CustomSort(SortModulesListByAddressCompare);
+      for I := 0 to SL.Count - 1 do
+      begin
+        ModuleName := SL[I];
+        ModuleBase := Cardinal(SL.Objects[I]);
+        DetailsMemo.Lines.Add(Format('[%.8x] %s', [ModuleBase, ModuleName]));
+        NtHeaders := PeMapImgNtHeaders(Pointer(ModuleBase));
+        if (NtHeaders <> nil) and (NtHeaders^.OptionalHeader.ImageBase <> ModuleBase) then
+          ImageBaseStr := Format('<%.8x> ', [NtHeaders^.OptionalHeader.ImageBase])
+        else
+          ImageBaseStr := StrRepeat(' ', 11);
+        if VersionResourceAvailable(ModuleName) then
+          with TJclFileVersionInfo.Create(ModuleName) do
+          try
+            DetailsMemo.Lines.Add(ImageBaseStr + BinFileVersion + ' - ' + FileVersion);
+            if FileDescription <> '' then
+              DetailsMemo.Lines.Add(StrRepeat(' ', 11) + FileDescription);
+          finally
+            Free;
+          end
+        else
+          DetailsMemo.Lines.Add(ImageBaseStr + RsMissingVersionInfo);
+      end;
+      NextDetailBlock;
+    end;
+    // Active controls
+    if (siActiveControls in SystemInfo) and (FLastActiveControl <> nil) then
+    begin
+      DetailsMemo.Lines.Add(RsActiveControl);
+      C := FLastActiveControl;
+      while C <> nil do
+      begin
+        DetailsMemo.Lines.Add(Format('%s "%s"', [C.ClassName, C.Name]));
+        C := C.Parent;
+      end;
+      NextDetailBlock;
+    end;
+  finally
+    SL.Free;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.DetailsBtnClick(Sender: TObject);
+begin
+  DetailsVisible := not DetailsVisible;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+class procedure TExceptionDialog.ExceptionHandler(Sender: TObject; E: Exception);
+begin
+  if ExceptionShowing then
+    Application.ShowException(E)
+  else
+  begin
+    ExceptionShowing := True;
+    try
+      ShowException(E, nil);
+    finally
+      ExceptionShowing := False;
+    end;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+class procedure TExceptionDialog.ExceptionThreadHandler(Thread: TJclDebugThread);
+begin
+  if ExceptionShowing then
+    Application.ShowException(Thread.SyncException)
+  else
+  begin
+    ExceptionShowing := True;
+    try
+      ShowException(Thread.SyncException, Thread);
+    finally
+      ExceptionShowing := False;
+    end;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormCreate(Sender: TObject);
+begin
+  FSimpleLog := TSimpleExceptionLog.Create;
+  FFullHeight := ClientHeight;
+  DetailsVisible := False;
+  Caption := Format(RsAppError, [Application.Title]);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FSimpleLog);
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+  if (Key = Ord('C')) and (ssCtrl in Shift) then
+  begin
+    CopyReportToClipboard;
+    MessageBeep(MB_OK);
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormPaint(Sender: TObject);
+begin
+  DrawIcon(Canvas.Handle, TextLabel.Left - GetSystemMetrics(SM_CXICON) - 15,
+    TextLabel.Top, LoadIcon(0, IDI_ERROR));
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormResize(Sender: TObject);
+begin
+  UpdateTextLabelScrollbars;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.FormShow(Sender: TObject);
+begin
+  BeforeCreateDetails;
+  MessageBeep(MB_ICONERROR);
+  if FIsMainThead and (GetWindowThreadProcessId(Handle, nil) = MainThreadID) then
+    PostMessage(Handle, UM_CREATEDETAILS, 0, 0)
+  else
+    CreateDetails;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function TExceptionDialog.GetReportAsText: string;
+begin
+  Result := StrEnsureSuffix(AnsiCrLf, TextLabel.Text) + AnsiCrLf + DetailsMemo.Text;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.NextDetailBlock;
+begin
+  DetailsMemo.Lines.Add(StrRepeat(ReportNewBlockDelimiterChar, ReportMaxColumns));
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function TExceptionDialog.ReportMaxColumns: Integer;
+begin
+  Result := 100;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+function TExceptionDialog.ReportNewBlockDelimiterChar: Char;
+begin
+  Result := '-';
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.ReportToLog;
+begin
+  if Tag and ReportToLogEnabled <> 0 then
+  begin
+    FSimpleLog.WriteStamp(ReportMaxColumns);
+    try
+      FSimpleLog.Write(ReportAsText);
+    finally
+      FSimpleLog.CloseLog;
+    end;
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.SetDetailsVisible(const Value: Boolean);
+var
+  DetailsCaption: string;
+begin
+  FDetailsVisible := Value;
+  DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, ['<', '>']));
+  if Value then
+  begin
+    Constraints.MinHeight := FNonDetailsHeight + 100;
+    Constraints.MaxHeight := Screen.Height;
+    DetailsCaption := '<< ' + DetailsCaption;
+    ClientHeight := FFullHeight;
+    DetailsMemo.Height := FFullHeight - DetailsMemo.Top - 3;
+  end
+  else
+  begin
+    FFullHeight := ClientHeight;
+    DetailsCaption := DetailsCaption + ' >>';
+    if FNonDetailsHeight = 0 then
+    begin
+      ClientHeight := Bevel1.Top;
+      FNonDetailsHeight := Height;
+    end
+    else
+      Height := FNonDetailsHeight;
+    Constraints.MinHeight := FNonDetailsHeight;
+    Constraints.MaxHeight := FNonDetailsHeight
+  end;
+  DetailsBtn.Caption := DetailsCaption;
+  DetailsMemo.Enabled := Value;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+class procedure TExceptionDialog.ShowException(E: Exception; Thread: TJclDebugThread);
+begin
+  if ExceptionDialog = nil then
+    ExceptionDialog := ExceptionDialogClass.Create(Application);
+  try
+    with ExceptionDialog do
+    begin
+      FIsMainThead := (GetCurrentThreadId = MainThreadID);
+      FLastActiveControl := Screen.ActiveControl;
+      TextLabel.Text := AdjustLineBreaks(StrEnsureSuffix('.', E.Message));
+      UpdateTextLabelScrollbars;
+      DetailsMemo.Lines.Add(Format(RsExceptionClass, [E.ClassName]));
+      if Thread = nil then
+        DetailsMemo.Lines.Add(Format(RsExceptionAddr, [ExceptAddr]))
+      else
+        DetailsMemo.Lines.Add(Format(RsThread, [Thread.ThreadInfo]));
+      NextDetailBlock;
+      ShowModal;
+    end;
+  finally
+    FreeAndNil(ExceptionDialog);
+  end;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.UMCreateDetails(var Message: TMessage);
+begin
+  Update;
+  CreateDetails;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure TExceptionDialog.UpdateTextLabelScrollbars;
+begin
+  if Tag and DisableTextScrollbar = 0 then
+  begin
+    Canvas.Font := TextLabel.Font;
+    if TextLabel.Lines.Count * Canvas.TextHeight('Wg') > TextLabel.ClientHeight then
+      TextLabel.ScrollBars := ssVertical
+    else
+      TextLabel.ScrollBars := ssNone;
+   end;   
+end;
+
+//==================================================================================================
+// Exception handler initialization code
+//==================================================================================================
+
+procedure InitializeHandler;
+begin
+  JclStackTrackingOptions := JclStackTrackingOptions + [stRawMode];
+  {$IFNDEF HOOK_DLL_EXCEPTIONS}
+  JclStackTrackingOptions := JclStackTrackingOptions + [stStaticModuleList];
+  {$ENDIF HOOK_DLL_EXCEPTIONS}
+  JclDebugThreadList.OnSyncException := TExceptionDialog.ExceptionThreadHandler;
+  JclStartExceptionTracking;
+  {$IFDEF HOOK_DLL_EXCEPTIONS}
+  if HookTApplicationHandleException then
+    JclTrackExceptionsFromLibraries;
+  {$ENDIF HOOK_DLL_EXCEPTIONS}
+  Application.OnException := TExceptionDialog.ExceptionHandler;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+procedure UnInitializeHandler;
+begin
+  Application.OnException := nil;
+  JclDebugThreadList.OnSyncException := nil;
+  JclUnhookExceptions;
+  JclStopExceptionTracking;
+end;
+
+//--------------------------------------------------------------------------------------------------
+
+initialization
+  {$IFDEF EXCEPTION_DEBUG}
+  InitializeHandler;
+  {$ENDIF}
+
+finalization
+  {$IFDEF EXCEPTION_DEBUG}
+  UnInitializeHandler;
+  {$ENDIF}
+
+end.

editor/editor2/UnitfrmMain.dfm

@@ -158,11 +158,12 @@ object frmMain: TfrmMain
       WordWrapVisualFlagsLocation = []
       LayoutCache = sciCacheCaret
       HideSelect = False
+      WordWrap = sciNoWrap
       EdgeMode = sciEdgeLine
       EdgeColumn = 90
       EdgeColor = clSilver
       WordChars = '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
-      ControlCharSymbol = #0
+      ControlCharSymbol = #1
       BraceHilite = False
       Folding = [foldFold, foldCompact, foldComment, foldAtElse]
       FoldMarkerType = sciMarkArrows
@@ -4956,6 +4957,8 @@ object frmMain: TfrmMain
     CompleteWordOnlyOne = True
     Editor = sciEditor
     WordCharacters = '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
+    MaxWidth = 0
+    MaxHeight = 5
     Left = 794
     Top = 4
   end
@@ -5269,8 +5272,6 @@ object frmMain: TfrmMain
       'get_stats(player, stats[8], bodyhits[8], name[], len)'
       'get_stats(player, stats[9], bodyhits[8], name[], len)'
       'get_statsnum()'
-      'get_statsnum()'
-      'get_statsnum()'
       'get_systime(offset = 0)'
       'get_time(const format[],output[],len)'
       'get_timeleft()'
@@ -5310,10 +5311,8 @@ object frmMain: TfrmMain
       'get_user_origin(index, origin[3], [ mode ])'
       'get_user_ping(index, &ping, &loss)'
       'get_user_rstats(index, stats[8], bodyhits[8])'
-      'get_user_rstats(index, stats[8], bodyhits[8])'
       'get_user_rstats(player, stats[9], bodyhits[8])'
       'get_user_stats(index, stats[8], bodyhits[8])'
-      'get_user_stats(index, stats[8], bodyhits[8])'
       'get_user_stats(index, stats[9], bodyhits[8])'
       'get_user_team(index, [ team[], len ])'
       'get_user_time(index, [ flag ])'
@@ -5323,9 +5322,6 @@ object frmMain: TfrmMain
         'get_user_vstats(index, victim, stats[8], bodyhits[8], [ wpnname[' +
         '] = "", len = 0 ])'
       
-        'get_user_vstats(index, victim, stats[8], bodyhits[8], [ wpnname[' +
-        '] = "", len = 0 ])'
-      
         'get_user_vstats(player, victim, stats[9], bodyhits[8], [ wpnname' +
         '[], maxLen ])'
       'get_user_weapon(index, &clip, &ammo)'
@@ -5333,10 +5329,8 @@ object frmMain: TfrmMain
       'get_user_wlstats(index, wpnindex, stats[8], bodyhits[8])'
       'get_user_wlstats(player, wpnindex, stats[9], bodyhits[8])'
       'get_user_wrstats(index, wpnindex, stats[8], bodyhits[8])'
-      'get_user_wrstats(index, wpnindex, stats[8], bodyhits[8])'
       'get_user_wrstats(player, wpnindex, stats[9], bodyhits[8])'
       'get_user_wstats(index, wpnindex, stats[8], bodyhits[8])'
-      'get_user_wstats(index, wpnindex, stats[8], bodyhits[8])'
       'get_user_wstats(player, wpnindex, stats[9], bodyhits[8])'
       'get_usercmd(type, [ ... ])'
       'get_vaultdata(const key[], [ data[], len ])'
@@ -5582,7 +5576,6 @@ object frmMain: TfrmMain
       'replace(text[], len, const what[], const with[])'
       'require_module(const name[])'
       'reset_user_wstats(index)'
-      'reset_user_wstats(index)'
       'reset_user_wstats(player)'
       'rewind(file)'
       'server_changelevel(map[])'

editor/editor2/UnitfrmMain.pas

@@ -430,18 +430,18 @@ begin
       eStr := Trim(sciEditor.Lines[sciEditor.GetCurrentLineNumber -1]);
       Delete(eStr, 1, Length(eStr) -1);
       if eStr = '{' then
-        sciEditor.SelText := '	'
+        sciEditor.SelText := '	';
-      else if (Trim(sciEditor.Lines[sciEditor.GetCurrentLineNumber -1]) = '') and (frmSettings.chkAutoIndent.Checked) then begin // if the prevorious line isn't empty, the line contains only spaces and the auto-identer is enabled then...
+    end;
+  end;
+  if Key = '}' then begin // YES thats only for bail ;)
     sciEditor.Lines[sciEditor.GetCurrentLineNumber] := Copy(sciEditor.Lines[sciEditor.GetCurrentLineNumber], 1, Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]) -1); // remove last indent..
     sciEditor.SelStart := sciEditor.SelStart + Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]);                                                                      // and jump to last position
   end;
-    end;
-  end;
 end;
 
 procedure TfrmMain.FormActivate(Sender: TObject);
 begin
-  sciEditor.Font.Name := 'Courier New';
+  sciEditor.Font.Name := 'Courier New'; // otherwise the font MAY reset (don't know why)
   if eErrorLine <> -1 then
     ShowErrorLine;                  
 end;

editor/editor2/gpl.txt

@@ -0,0 +1,281 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                       59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+			    Preamble
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+  The precise terms and conditions for copying, distribution and
+modification follow.
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+			    NO WARRANTY
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+		     END OF TERMS AND CONDITIONS
+	    How to Apply These Terms to Your New Programs
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+Also add information on how to contact you by electronic and paper mail.
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+    Gnomovision version 69, Copyright (C) year name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.