paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

updated COPYING and README for new files

Browse Source 
git-svn-id: trunk@7237 -
This commit is contained in:
mattias 2005-06-13 09:38:54 +00:00
parent 903c6d561e
commit 4b51056801
5 changed files with 50 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
COPYING
View File

@ -7,9 +7,9 @@ general, each file contains a header, describing the license of the file.
The license directory tree:
<lazarus>/ (mostly GPL2, but with a few files under LGPL)
<lazarus>/ (mostly GPL2, but with a few files under modified LGPL)
|
+- designer (mostly GPL2, but with a few files under LGPL)
+- designer (mostly GPL2, but with a few files under modified LGPL)
|
+- debugger (GPL2)
|
@ -21,6 +21,8 @@ The license directory tree:
|
+- lcl (modified LGPL, see there)
|
+- ideintf (modified LGPL)
|
+- components/
|
+- synedit (MPL - Mozilla public license)
@ -28,15 +30,17 @@ The license directory tree:
+- codetools (GPL 2)
|
+- gtk
|
+- gtkglarea (modified LGPL, with one exception: nvgl.pp)
| |
| +- gtkglarea (modified LGPL, with one exception: nvgl.pp)
|
+- xxx There are various packages under various licenses. Mostly the
modified LGPL. See the license in the package files for details.
The IDE files are the files in the <lazarus>, designer, packager and debugger
directory. They are under the GPL 2, with the following exceptions:
objectinspector.pp, propedits.pp, transfermacros.pp, wordcompletion.pp,
patheditordlg.pas, outputfilter.pas, inputfiledialog.pas, findreplacedialog.pp,
findinfilesdlg.pas
transfermacros.pp, wordcompletion.pp, patheditordlg.pas, outputfilter.pas,
inputfiledialog.pas, findreplacedialog.pp, findinfilesdlg.pas
These files are under the modified LGPL as described in COPYING.modifiedLGPL.

3
components/printers/printer4lazarus.pas
View File

@ -7,7 +7,8 @@ unit Printer4Lazarus;
interface
uses
PrintersDlgs, OSPrinters, LazarusPackageIntf;
PrintersDlgs, OSPrinters, uDlgSelectPrinter, cupsdyn, uDlgPropertiesPrinter,
LazarusPackageIntf;
implementation

1
components/synedit/synedit.pp
View File

@ -7550,6 +7550,7 @@ begin
if Len < LogCaretXY.X then
Temp := Temp + StringOfChar(' ', LogCaretXY.X - Len);
System.Insert(AChar, Temp, LogCaretXY.X);
//debugln('ecChar Temp=',DbgStr(Temp),' AChar=',DbgStr(AChar));
CaretX := CaretX + 1;
{$ENDIF}
TrimmedSetLine(CaretY - 1, Temp);

3
ideintf/README
View File

@ -1 +1,4 @@
This directory contains the IDE interfaces for experts/plugins.
These files are under the modified LGPL as described in COPYING.modifiedLGPL.

59
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2241,7 +2241,7 @@ begin
Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001 {TODO: repeatcount};
// send the message directly to the LCL
// send the (Sys)KeyDown message directly to the LCL
NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(TargetData, Msg) = 0;
@ -2254,7 +2254,33 @@ begin
if KeyActivatedAccelerator then exit;
if (not EventStopped) and CanSendChar
if (not EventStopped) and (not BeforeEvent) then begin
// send the UTF8 keypress
// try to get the UTF8 representation of the key
{$IFDEF GTK1}
Character:='';
if (Event^.length>0) and (Event^.length<7) then begin
SetLength(Character,Event^.length);
System.Move(Event^.thestring^,Character[1],length(Character));
end;
{$ELSE GTK2}
Character := UnicodeToUTF8(gdk_keyval_to_unicode(Event^.KeyVal));
{$ENDIF GTK2}
{$IFDEF VerboseKeyboard}
debugln('[HandleGTKKeyUpDown] GDK_KEY_PRESS UTF8="',DbgStr(Character),'"');
{$ENDIF}
if Character<>'' then begin
LCLObject:=GetNearestLCLObject(TargetWidget);
if LCLObject is TWinControl then begin
Result:=TWinControl(LCLObject).IntfUTF8KeyPress(Character,1);
if Result or (Character='') then
StopKeyEvent('key_press_event');
end;
end;
end;
if (not EventStopped) and (not BeforeEvent) and CanSendChar
then begin
EventTrace('char', data);
@ -2290,9 +2316,9 @@ begin
Msg.msg := LM_CHAR;
end;
// send the (Sys)Char message directly (not queued) to the LCL
Msg.Result:=0;
Msg.CharCode:=ord(KeyPressesChar);
// send the message directly (not queued) to the LCL
//debugln('GDK_KEY_PRESS ',DbgSName(TObject(TargetData)),' ',dbgs(Msg.msg));
Result := DeliverMessage(TargetData, Msg) = 0;
@ -2315,30 +2341,6 @@ begin
end;
if (not EventStopped) and (not BeforeEvent) then begin
// send the UTF8 keypress
// try to get the UTF8 representation of the key
{$IFDEF GTK1}
Character:='';
if (Event^.length>0) and (Event^.length<7) then begin
SetLength(Character,Event^.length);
System.Move(Event^.thestring^,Character[1],length(Character));
end;
{$ELSE GTK2}
Character := UnicodeToUTF8(gdk_keyval_to_unicode(Event^.KeyVal));
{$ENDIF GTK2}
{$IFDEF VerboseKeyboard}
debugln('[HandleGTKKeyUpDown] GDK_KEY_PRESS UTF8="',DbgStr(Character),'"');
{$ENDIF}
if Character<>'' then begin
LCLObject:=GetNearestLCLObject(TargetWidget);
if LCLObject is TWinControl then begin
Result:=TWinControl(LCLObject).IntfUTF8KeyPress(Character,1);
if Result or (Character='') then
StopKeyEvent('key_press_event');
end;
end;
end;
end;
end;
@ -8211,6 +8213,9 @@ end;
{ =============================================================================
$Log$
Revision 1.362 2005/06/13 09:38:54 mattias
updated COPYING and README for new files
Revision 1.361 2005/06/08 08:02:09 mattias
added message parts to Help interface