paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 12:07:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup after moving

Browse Source 
git-svn-id: trunk@9998 -
This commit is contained in:
marco 2008-01-26 23:06:56 +00:00
parent ae230f1e58
commit 0206151763
13 changed files with 1 additions and 2654 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.gitattributes vendored
View File

@ -1164,7 +1164,6 @@ packages/extra/forms/fd2pascal.pp svneol=native#text/plain
packages/extra/forms/fpmake.inc svneol=native#text/plain
packages/extra/forms/fpmake.pp svneol=native#text/plain
packages/extra/forms/xforms.pp svneol=native#text/plain
packages/extra/fpgtk/fpmake.inc svneol=native#text/plain
packages/extra/gbaunits/Makefile -text
packages/extra/gbaunits/Makefile.fpc -text
packages/extra/gbaunits/bios_asm.as -text
@ -1557,15 +1556,6 @@ packages/extra/lua/fpmake.pp svneol=native#text/plain
packages/extra/lua/lauxlib.pas svneol=native#text/plain
packages/extra/lua/lua.pas svneol=native#text/plain
packages/extra/lua/lualib.pas svneol=native#text/plain
packages/extra/newt/Makefile svneol=native#text/plain
packages/extra/newt/Makefile.fpc svneol=native#text/plain
packages/extra/newt/README -text
packages/extra/newt/fpmake.inc svneol=native#text/plain
packages/extra/newt/fpmake.pp svneol=native#text/plain
packages/extra/newt/newt.pp svneol=native#text/plain
packages/extra/newt/newt1.pas svneol=native#text/plain
packages/extra/newt/newt2.pas svneol=native#text/plain
packages/extra/newt/newt3.pas svneol=native#text/plain
packages/extra/numlib/Makefile svneol=native#text/plain
packages/extra/numlib/Makefile.fpc svneol=native#text/plain
packages/extra/numlib/det.pas svneol=native#text/plain
@ -4139,7 +4129,7 @@ packages/ncurses/src/pxpic.txt svneol=native#text/plain
packages/ncurses/tests/testn.pp svneol=native#text/plain
packages/newt/Makefile svneol=native#text/plain
packages/newt/Makefile.fpc svneol=native#text/plain
packages/newt/examples/README svneol=native#text/plain
packages/newt/README svneol=native#text/plain
packages/newt/examples/newt1.pas svneol=native#text/plain
packages/newt/examples/newt2.pas svneol=native#text/plain
packages/newt/examples/newt3.pas svneol=native#text/plain

14
.gitignore vendored
View File

@ -622,13 +622,6 @@ packages/extra/forms/fd2pascal
packages/extra/forms/fpcmade.*
packages/extra/forms/units
packages/extra/fpcmade.*
packages/extra/fpgtk/*.bak
packages/extra/fpgtk/*.exe
packages/extra/fpgtk/*.o
packages/extra/fpgtk/*.ppu
packages/extra/fpgtk/*.s
packages/extra/fpgtk/fpcmade.*
packages/extra/fpgtk/units
packages/extra/gbaunits/*.bat
packages/extra/ggi/*.bak
packages/extra/ggi/*.exe
@ -772,13 +765,6 @@ packages/extra/libgd/*.ppu
packages/extra/libgd/*.s
packages/extra/libgd/fpcmade.*
packages/extra/libgd/units
packages/extra/newt/*.bak
packages/extra/newt/*.exe
packages/extra/newt/*.o
packages/extra/newt/*.ppu
packages/extra/newt/*.s
packages/extra/newt/fpcmade.*
packages/extra/newt/units
packages/extra/numlib/*.bak
packages/extra/numlib/*.exe
packages/extra/numlib/*.o

15
packages/extra/fpgtk/fpmake.inc
View File

@ -1,15 +0,0 @@
StartPackage('fpgtk');
{$IF defined(ALLPACKAGES)}
Directory:='extra/fpgtk';
{$ELSEIF defined(EXTRAPACKAGES)}
Directory:='fpgtk';
{$ENDIF}
OS:=[linux,netbsd,freebsd,openbsd,win32,os2,emx,darwin];
Dependencies.Add('fcl');
Dependencies.Add('gtk');
T:=Targets.AddUnit('fpglib');
T:=Targets.AddUnit('fpgtk');
T.ResourceStrings:=True;
T:=Targets.AddUnit('fpgtkext');
T.ResourceStrings:=True;
EndPackage;

2147
packages/extra/newt/Makefile
View File

File diff suppressed because it is too large Load Diff

26
packages/extra/newt/Makefile.fpc
View File

@ -1,26 +0,0 @@
#
# Makefile.fpc for newt library interface
#
[package]
name=newt
version=2.0.0
[target]
units=newt
examples=newt1 newt2 newt3
[require]
libc=y
[install]
fpcpackage=y
[default]
fpcdir=../../..
[shared]
build=n
[rules]
.NOTPARALLEL:

12
packages/extra/newt/fpmake.inc
View File

@ -1,12 +0,0 @@
StartPackage('newt');
{$IF defined(ALLPACKAGES)}
Directory:='extra/newt';
{$ELSEIF defined(EXTRAPACKAGES)}
Directory:='newt';
{$ENDIF}
OS:=[linux];
T:=Targets.AddUnit('newt');
T:=Targets.AddExampleunit('newt1');
T:=Targets.AddExampleunit('newt2');
T:=Targets.AddExampleunit('newt3');
EndPackage;

17
packages/extra/newt/fpmake.pp
View File

@ -1,17 +0,0 @@
{$mode objfpc}{$H+}
program fpmake;
uses fpmkunit;
Var
T : TTarget;
begin
With Installer do
begin
{ Base packages }
{$i fpmake.inc}
Run;
end;
end.

307
packages/extra/newt/newt.pp
View File

@ -1,307 +0,0 @@
{$mode objfpc}
unit newt;
interface
{
Automatically converted by H2Pas 0.99.15 from newt.h
The following command line parameters were used:
newt.h
}
{$PACKRECORDS C}
{$LINKLIB slang}
Const
newtlib = 'newt';
const
NEWT_COLORSET_ROOT = 2;
NEWT_COLORSET_BORDER = 3;
NEWT_COLORSET_WINDOW = 4;
NEWT_COLORSET_SHADOW = 5;
NEWT_COLORSET_TITLE = 6;
NEWT_COLORSET_BUTTON = 7;
NEWT_COLORSET_ACTBUTTON = 8;
NEWT_COLORSET_CHECKBOX = 9;
NEWT_COLORSET_ACTCHECKBOX = 10;
NEWT_COLORSET_ENTRY = 11;
NEWT_COLORSET_LABEL = 12;
NEWT_COLORSET_LISTBOX = 13;
NEWT_COLORSET_ACTLISTBOX = 14;
NEWT_COLORSET_TEXTBOX = 15;
NEWT_COLORSET_ACTTEXTBOX = 16;
NEWT_COLORSET_HELPLINE = 17;
NEWT_COLORSET_ROOTTEXT = 18;
NEWT_COLORSET_EMPTYSCALE = 19;
NEWT_COLORSET_FULLSCALE = 20;
NEWT_COLORSET_DISENTRY = 21;
NEWT_COLORSET_COMPACTBUTTON = 22;
NEWT_COLORSET_ACTSELLISTBOX = 23;
NEWT_COLORSET_SELLISTBOX = 24;
NEWT_ARG_LAST = -(100000);
NEWT_ARG_APPEND = -(1);
type
newtColors = record
rootFg : ^char;
rootBg : ^char;
borderFg : ^char;
borderBg : ^char;
windowFg : ^char;
windowBg : ^char;
shadowFg : ^char;
shadowBg : ^char;
titleFg : ^char;
titleBg : ^char;
buttonFg : ^char;
buttonBg : ^char;
actButtonFg : ^char;
actButtonBg : ^char;
checkboxFg : ^char;
checkboxBg : ^char;
actCheckboxFg : ^char;
actCheckboxBg : ^char;
entryFg : ^char;
entryBg : ^char;
labelFg : ^char;
labelBg : ^char;
listboxFg : ^char;
listboxBg : ^char;
actListboxFg : ^char;
actListboxBg : ^char;
textboxFg : ^char;
textboxBg : ^char;
actTextboxFg : ^char;
actTextboxBg : ^char;
helpLineFg : ^char;
helpLineBg : ^char;
rootTextFg : ^char;
rootTextBg : ^char;
emptyScale : ^char;
fullScale : ^char;
disabledEntryFg : ^char;
disabledEntryBg : ^char;
compactButtonFg : ^char;
compactButtonBg : ^char;
actSelListboxFg : ^char;
actSelListboxBg : ^char;
selListboxFg : ^char;
selListboxBg : ^char;
end;
newtFlagsSense = (NEWT_FLAGS_SET,NEWT_FLAGS_RESET,NEWT_FLAGS_TOGGLE );
const
NEWT_FLAG_RETURNEXIT = 1 shl 0;
NEWT_FLAG_HIDDEN = 1 shl 1;
NEWT_FLAG_SCROLL = 1 shl 2;
NEWT_FLAG_DISABLED = 1 shl 3;
NEWT_FLAG_BORDER = 1 shl 5;
NEWT_FLAG_WRAP = 1 shl 6;
NEWT_FLAG_NOF12 = 1 shl 7;
NEWT_FLAG_MULTIPLE = 1 shl 8;
NEWT_FLAG_SELECTED = 1 shl 9;
NEWT_FLAG_CHECKBOX = 1 shl 10;
NEWT_FD_READ = 1 shl 0;
NEWT_FD_WRITE = 1 shl 1;
NEWT_LISTBOX_RETURNEXIT = NEWT_FLAG_RETURNEXIT;
NEWT_ENTRY_SCROLL = NEWT_FLAG_SCROLL;
NEWT_ENTRY_HIDDEN = NEWT_FLAG_HIDDEN;
NEWT_ENTRY_RETURNEXIT = NEWT_FLAG_RETURNEXIT;
NEWT_ENTRY_DISABLED = NEWT_FLAG_DISABLED;
NEWT_TEXTBOX_WRAP = NEWT_FLAG_WRAP;
NEWT_TEXTBOX_SCROLL = NEWT_FLAG_SCROLL;
NEWT_FORM_NOF12 = NEWT_FLAG_NOF12;
NEWT_KEY_TAB = #8;
NEWT_KEY_ENTER = #13;
NEWT_KEY_SUSPEND = #26;
NEWT_KEY_RETURN = NEWT_KEY_ENTER;
NEWT_KEY_EXTRA_BASE = $8000;
NEWT_KEY_UP = NEWT_KEY_EXTRA_BASE + 1;
NEWT_KEY_DOWN = NEWT_KEY_EXTRA_BASE + 2;
NEWT_KEY_LEFT = NEWT_KEY_EXTRA_BASE + 4;
NEWT_KEY_RIGHT = NEWT_KEY_EXTRA_BASE + 5;
NEWT_KEY_BKSPC = NEWT_KEY_EXTRA_BASE + 6;
NEWT_KEY_DELETE = NEWT_KEY_EXTRA_BASE + 7;
NEWT_KEY_HOME = NEWT_KEY_EXTRA_BASE + 8;
NEWT_KEY_END = NEWT_KEY_EXTRA_BASE + 9;
NEWT_KEY_UNTAB = NEWT_KEY_EXTRA_BASE + 10;
NEWT_KEY_PGUP = NEWT_KEY_EXTRA_BASE + 11;
NEWT_KEY_PGDN = NEWT_KEY_EXTRA_BASE + 12;
NEWT_KEY_INSERT = NEWT_KEY_EXTRA_BASE + 13;
NEWT_KEY_F1 = NEWT_KEY_EXTRA_BASE + 101;
NEWT_KEY_F2 = NEWT_KEY_EXTRA_BASE + 102;
NEWT_KEY_F3 = NEWT_KEY_EXTRA_BASE + 103;
NEWT_KEY_F4 = NEWT_KEY_EXTRA_BASE + 104;
NEWT_KEY_F5 = NEWT_KEY_EXTRA_BASE + 105;
NEWT_KEY_F6 = NEWT_KEY_EXTRA_BASE + 106;
NEWT_KEY_F7 = NEWT_KEY_EXTRA_BASE + 107;
NEWT_KEY_F8 = NEWT_KEY_EXTRA_BASE + 108;
NEWT_KEY_F9 = NEWT_KEY_EXTRA_BASE + 109;
NEWT_KEY_F10 = NEWT_KEY_EXTRA_BASE + 110;
NEWT_KEY_F11 = NEWT_KEY_EXTRA_BASE + 111;
NEWT_KEY_F12 = NEWT_KEY_EXTRA_BASE + 112;
{ not really a key, but newtGetKey returns it }
NEWT_KEY_RESIZE = NEWT_KEY_EXTRA_BASE + 113;
NEWT_ANCHOR_LEFT = 1 shl 0;
NEWT_ANCHOR_RIGHT = 1 shl 1;
NEWT_ANCHOR_TOP = 1 shl 2;
NEWT_ANCHOR_BOTTOM = 1 shl 3;
NEWT_GRID_FLAG_GROWX = 1 shl 0;
NEWT_GRID_FLAG_GROWY = 1 shl 1;
// was alias in C: newtListboxAddEntry = newtListboxAppendEntry;
// Was C alias newtGridDestroy = Pointer; // ^newtGridFree;
type
newtComponent = Pointer; // Opaque, was : ^newtComponent_struct;
pnewtComponent = ^newtComponent;
newtCallback = procedure (_para1:newtComponent; _para2:pointer);cdecl;
newtSuspendCallback = procedure (data:pointer);cdecl;
treason = (NEWT_EXIT_HOTKEY,NEWT_EXIT_COMPONENT, NEWT_EXIT_FDREADY,NEWT_EXIT_TIMER);
newtExitStruct = record
reason : treason;
u : record
case longint of
0 : ( key : longint );
1 : ( co : newtComponent );
end;
end;
PnewtExitStruct = ^newtExitStruct; (* Const before type ignored *)
newtEntryFilter = function (entry:newtComponent; data:pointer; ch:longint; cursor:longint):longint;cdecl;
newtGrid = pointer;
newtGridElement = (NEWT_GRID_EMPTY := 0,NEWT_GRID_COMPONENT, NEWT_GRID_SUBGRID);
newtWinEntry = record
text : pchar;
value : ppchar;
flags : longint;
end;
PnewtWinEntry = ^newtWinEntry;
var
newtDefaultColorPalette : newtColors;cvar;external;
function newtInit:longint;cdecl; external newtlib;
function newtFinished:longint; cdecl; external newtlib;
procedure newtCls; cdecl; external newtlib;
procedure newtResizeScreen(redraw:longint); cdecl; external newtlib;
procedure newtWaitForKey; cdecl; external newtlib;
procedure newtClearKeyBuffer; cdecl; external newtlib;
procedure newtDelay(usecs:longint); cdecl; external newtlib;
function newtOpenWindow(left:longint; top:longint; width:longint; height:longint; title:Pchar):longint;cdecl; external newtlib;
function newtCenteredWindow(width:longint; height:longint; title:Pchar):longint; cdecl; external newtlib;
procedure newtPopWindow; cdecl; external newtlib;
procedure newtSetColors(colors:newtColors); cdecl; external newtlib;
procedure newtRefresh; cdecl; external newtlib;
procedure newtSuspend; cdecl; external newtlib;
procedure newtSetSuspendCallback(cb:newtSuspendCallback; data:pointer);cdecl; external newtlib;
procedure newtResume;cdecl; external newtlib;
procedure newtPushHelpLine(text:Pchar); cdecl; external newtlib;
procedure newtRedrawHelpLine; cdecl; external newtlib;
procedure newtPopHelpLine; cdecl; external newtlib;
procedure newtDrawRootText(col:longint; row:longint; text:Pchar); cdecl; external newtlib;
procedure newtBell; cdecl; external newtlib;
function newtCompactButton(left:longint; top:longint; text:Pchar):newtComponent; cdecl; external newtlib;
function newtButton(left:longint; top:longint; text:Pchar):newtComponent; cdecl; external newtlib;
function newtCheckbox(left:longint; top:longint; text:Pchar; defValue:char; seq:Pchar; aresult:Pchar):newtComponent; cdecl; external newtlib;
function newtCheckboxGetValue(co:newtComponent):char; cdecl; external newtlib;
procedure newtCheckboxSetValue(co:newtComponent; value:char); cdecl; external newtlib;
procedure newtCheckboxSetFlags(co:newtComponent; flags:longint; sense:newtFlagsSense); cdecl; external newtlib;
function newtRadiobutton(left:longint; top:longint; text:Pchar; isDefault:longint; prevButton:newtComponent):newtComponent; cdecl; external newtlib;
function newtRadioGetCurrent(setMember:newtComponent):newtComponent; cdecl; external newtlib;
function newtListitem(left:longint; top:longint; text:Pchar; isDefault:longint; prevItem:newtComponent; data:pointer; flags:longint):newtComponent;cdecl; external newtlib;
procedure newtListitemSet(co:newtComponent; text:Pchar); cdecl; external newtlib;
function newtListitemGetData(co:newtComponent):pointer; cdecl; external newtlib;
procedure newtGetScreenSize(cols:Plongint; rows:Plongint); cdecl; external newtlib;
function newtLabel(left:longint; top:longint; text:Pchar):newtComponent; cdecl; external newtlib;
procedure newtLabelSetText(co:newtComponent; text:Pchar); cdecl; external newtlib;
function newtVerticalScrollbar(left:longint; top:longint; height:longint; normalColorset:longint; thumbColorset:longint):newtComponent; cdecl; external newtlib;
procedure newtScrollbarSet(co:newtComponent; where:longint; total:longint); cdecl; external newtlib;
function newtListbox(left:longint; top:longint; height:longint; flags:longint):newtComponent; cdecl; external newtlib;
function newtListboxGetCurrent(co:newtComponent):pointer; cdecl; external newtlib;
procedure newtListboxSetCurrent(co:newtComponent; num:longint); cdecl; external newtlib;
procedure newtListboxSetCurrentByKey(co:newtComponent; key:pointer); cdecl; external newtlib;
procedure newtListboxSetEntry(co:newtComponent; num:longint; text:Pchar); cdecl; external newtlib;
procedure newtListboxSetWidth(co:newtComponent; width:longint); cdecl; external newtlib;
procedure newtListboxSetData(co:newtComponent; num:longint; data:pointer); cdecl; external newtlib;
function newtListboxAppendEntry(co:newtComponent; text:Pchar; data:pointer):longint; cdecl; external newtlib;
function newtListboxInsertEntry(co:newtComponent; text:Pchar; data:pointer; key:pointer):longint; cdecl; external newtlib;
function newtListboxDeleteEntry(co:newtComponent; data:pointer):longint; cdecl; external newtlib;
procedure newtListboxClear(co:newtComponent); cdecl; external newtlib;
procedure newtListboxGetEntry(co:newtComponent; num:longint; text:PPchar; data:Ppointer); cdecl; external newtlib;
function newtListboxGetSelection(co:newtComponent; numitems:Plongint): ppointer; cdecl; external newtlib;
procedure newtListboxClearSelection(co:newtComponent); cdecl; external newtlib;
procedure newtListboxSelectItem(co:newtComponent; key:pointer; sense:newtFlagsSense); cdecl; external newtlib;
function newtCheckboxTree(left:longint; top:longint; height:longint; flags:longint):newtComponent; cdecl; external newtlib;
function newtCheckboxTreeMulti(left:longint; top:longint; height:longint; seq:Pchar; flags:longint):newtComponent; cdecl; external newtlib;
function newtCheckboxTreeGetSelection(co:newtComponent; numitems:Plongint): ppointer; cdecl; external newtlib;
function newtCheckboxTreeGetCurrent(co:newtComponent):pointer; cdecl; external newtlib;
function newtCheckboxTreeGetMultiSelection(co:newtComponent; numitems:Plongint; seqnum:char): ppointer; cdecl; external newtlib;
function newtCheckboxTreeAddItem(co:newtComponent; text:Pchar; data:pointer; flags:longint; index:longint):longint; cdecl; varargs; external newtlib;
function newtCheckboxTreeAddArray(co:newtComponent; text:Pchar; data:pointer; flags:longint; indexes:Plongint):longint; cdecl; external newtlib;
function newtCheckboxTreeFindItem(co:newtComponent; data:pointer):plongint; cdecl; external newtlib;
function newtTextboxReflowed(left:longint; top:longint; text:Pchar; width:longint; flexDown:longint; flexUp:longint; flags:longint):newtComponent; cdecl; external newtlib;
function newtTextbox(left:longint; top:longint; width:longint; height:longint; flags:longint):newtComponent; cdecl; external newtlib;
procedure newtTextboxSetText(co:newtComponent; text:Pchar); cdecl; external newtlib;
procedure newtTextboxSetHeight(co:newtComponent; height:longint); cdecl; external newtlib;
function newtTextboxGetNumLines(co:newtComponent):longint; cdecl; external newtlib;
function newtReflowText(text:Pchar; width:longint; flexDown:longint; flexUp:longint; actualWidth:Plongint; actualHeight:Plongint):pchar; cdecl; external newtlib;
function newtForm(vertBar:newtComponent; help:Pchar; flags:longint):newtComponent; cdecl; external newtlib;
procedure newtFormSetTimer(form:newtComponent; millisecs:longint); cdecl; external newtlib;
procedure newtFormWatchFd(form:newtComponent; fd:longint; fdFlags:longint); cdecl; external newtlib;
procedure newtFormSetSize(co:newtComponent); cdecl; external newtlib;
function newtFormGetCurrent(co:newtComponent):newtComponent; cdecl; external newtlib;
procedure newtFormSetBackground(co:newtComponent; color:longint); cdecl; external newtlib;
procedure newtFormSetCurrent(co:newtComponent; subco:newtComponent); cdecl; external newtlib;
procedure newtFormAddComponent(form:newtComponent; co:newtComponent); cdecl; external newtlib;
procedure newtFormAddComponents(form:newtComponent); cdecl; varargs; external newtlib;
procedure newtFormSetHeight(co:newtComponent; height:longint); cdecl; external newtlib;
procedure newtFormSetWidth(co:newtComponent; width:longint); cdecl; external newtlib;
function newtRunForm(form:newtComponent):newtComponent; cdecl; external newtlib; { obsolete }
procedure newtFormRun(co:newtComponent; es:PnewtExitStruct); cdecl; external newtlib;
procedure newtDrawForm(form:newtComponent); cdecl; external newtlib;
procedure newtFormAddHotKey(co:newtComponent; key:longint); cdecl; external newtlib;
function newtEntry(left:longint; top:longint; initialValue:Pchar; width:longint; resultPtr:PPchar; flags:longint):newtComponent; cdecl; external newtlib;
procedure newtEntrySet(co:newtComponent; value:Pchar; cursorAtEnd:longint); cdecl; external newtlib;
procedure newtEntrySetFilter(co:newtComponent; filter:newtEntryFilter; data:pointer); cdecl; external newtlib;
function newtEntryGetValue(co:newtComponent):pchar; cdecl; external newtlib;
procedure newtEntrySetFlags(co:newtComponent; flags:longint; sense:newtFlagsSense); cdecl; external newtlib;
function newtScale(left:longint; top:longint; width:longint; fullValue:int64):newtComponent; cdecl; external newtlib;
procedure newtScaleSet(co:newtComponent; amount:qword); cdecl; external newtlib;
procedure newtComponentAddCallback(co:newtComponent; f:newtCallback; data:pointer); cdecl; external newtlib;
procedure newtComponentTakesFocus(co:newtComponent; val:longint); cdecl; external newtlib;
procedure newtFormDestroy(form:newtComponent); cdecl; external newtlib;
function newtCreateGrid(cols:longint; rows:longint):newtGrid;cdecl; external newtlib;
function newtGridVStacked(_type:newtGridElement; what:pointer):newtGrid;cdecl; varargs; external newtlib;
function newtGridVCloseStacked(_type:newtGridElement; what:pointer):newtGrid;cdecl; varargs; external newtlib;
function newtGridHStacked(type1:newtGridElement; what1:pointer):newtGrid;cdecl; varargs; external newtlib;
function newtGridHCloseStacked(type1:newtGridElement; what1:pointer):newtGrid;cdecl; varargs; external newtlib;
function newtGridBasicWindow(text:newtComponent; middle:newtGrid; buttons:newtGrid):newtGrid;cdecl; external newtlib;
function newtGridSimpleWindow(text:newtComponent; middle:newtComponent; buttons:newtGrid):newtGrid;cdecl; external newtlib;
procedure newtGridSetField(grid:newtGrid; col:longint; row:longint; _type:newtGridElement; val:pointer;
padLeft:longint; padTop:longint; padRight:longint; padBottom:longint; anchor:longint;
flags:longint);cdecl; external newtlib;
procedure newtGridPlace(grid:newtGrid; left:longint; top:longint);cdecl; external newtlib;
procedure newtGridFree(grid:newtGrid; recurse:longint);cdecl; external newtlib;
procedure newtGridGetSize(grid:newtGrid; width:Plongint; height:Plongint);cdecl; external newtlib;
procedure newtGridWrappedWindow(grid:newtGrid; title:Pchar);cdecl; external newtlib;
procedure newtGridWrappedWindowAt(grid:newtGrid; title:Pchar; left:longint; top:longint);cdecl; external newtlib;
procedure newtGridAddComponentsToForm(grid:newtGrid; form:newtComponent; recurse:longint);cdecl; external newtlib;
function newtButtonBarv(button1:Pchar; b1comp:PnewtComponent):newtGrid;cdecl;varargs; external newtlib;
function newtButtonBar(button1:Pchar; b1comp:PnewtComponent):newtGrid;cdecl;varargs; external newtlib;
procedure newtWinMessage(title:Pchar; buttonText:Pchar; text:Pchar);cdecl;varargs; external newtlib;
procedure newtWinMessagev(title:Pchar; buttonText:Pchar; text:Pchar);cdecl;varargs; external newtlib;
function newtWinChoice(title:Pchar; button1:Pchar; button2:Pchar; text:Pchar):longint;cdecl; varargs; external newtlib;
function newtWinTernary(title:Pchar; button1:Pchar; button2:Pchar; button3:Pchar; message:Pchar):longint;cdecl;varargs; external newtlib;
function newtWinMenu(title:Pchar; text:Pchar; suggestedWidth:longint; flexDown:longint; flexUp:longint; maxListHeight:longint; items:PPchar; listItem:Plongint; button1:Pchar):longint;cdecl; varargs; external newtlib;
function newtWinEntries(title:Pchar; text:Pchar; suggestedWidth:longint; flexDown:longint; flexUp:longint;
dataWidth:longint; items:PnewtWinEntry; button1:Pchar):longint;cdecl;varargs; external newtlib;
implementation
end.

34
packages/extra/newt/newt1.pas
View File

@ -1,34 +0,0 @@
program newt1;
(* a newt basic sample program *)
uses newt;
begin
newtInit();
newtCls();
newtDrawRootText(0, 0,'Some root text');
newtDrawRootText(0, 1,'Press a key to display a help line ');
newtPushHelpLine(nil);
newtRefresh();
newtWaitForKey;
newtPushHelpLine('A help line');
newtDrawRootText(0, 1,'Press a key to hide the help line ');
newtRefresh();
newtWaitForKey;
newtPopHelpLine();
newtRefresh();
newtDrawRootText(0, 1,'Press a key to exit ');
newtWaitForKey;
newtFinished();
end.

27
packages/extra/newt/newt2.pas
View File

@ -1,27 +0,0 @@
program newt2;
uses newt;
var
form, b1, b2 : newtComponent;
begin
newtInit();
newtCls();
newtOpenWindow(10, 5, 40, 6, 'Button Sample');
b1 := newtButton(10, 1, 'Ok');
b2 := newtCompactButton(22, 2, 'Cancel');
form := newtForm(Nil, Nil, 0);
newtFormAddComponents(form, b1, b2, Nil);
newtRunForm(form);
newtFormDestroy(form);
newtFinished();
end.

39
packages/extra/newt/newt3.pas
View File

@ -1,39 +0,0 @@
program newt3;
uses newt;
var
form, labelC, entry, button : newtComponent;
S: ansiString;
P: Pchar;
machaine :string;
begin
newtInit();
newtCls();
newtOpenWindow(10, 5, 40, 8, 'Entry and Label Sample');
labelC := newtLabel(1, 1, 'Enter a string');
p:=addr(machaine[1]);
s:='Sample';
entry := newtEntry(16,1,PChar(S),20,@P,NEWT_FLAG_SCROLL OR NEWT_FLAG_RETURNEXIT);
button := newtButton(17, 3, 'Ok');
form := newtForm(NiL, NiL, 0);
newtFormAddComponents(form, labelC, entry, button, NiL);
newtRunForm(form);
newtFinished();
writeln('Final string was:'+ strPas(P));
(* We cannot destroy the form until after we've used the value
from the entry widget. *)
newtFormDestroy(form);
end.

0
packages/extra/newt/README → packages/newt/README
View File

5
packages/newt/examples/README
View File

@ -1,5 +0,0 @@
This is the interface to the newt screen handling library.
You need to have the newt and slang libraries installed in order to
work with this library.
The examples were provided by Patrice Dumas.