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

+ Initial import in CVS

Browse Source
This commit is contained in:
michael 2005-01-22 21:19:19 +00:00
parent 5268856a96
commit 78222b9d7a
7 changed files with 2292 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1865
packages/extra/newt/Makefile Normal file
View File

File diff suppressed because it is too large Load Diff

20
packages/extra/newt/Makefile.fpc Normal file
View File

@ -0,0 +1,20 @@
#
# Makefile.fpc for newt library interface
#
[package]
name=newt
version=1.9.6
[target]
units=newt
examples=newt1 newt2 newt3
[require]
libc=y
[install]
fpcpackage=y
[default]
fpcdir=../../..

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

@ -0,0 +1,307 @@
{$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.

BIN
packages/extra/newt/newt.ppu Normal file
View File

Binary file not shown.

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

@ -0,0 +1,34 @@
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 Normal file
View File

@ -0,0 +1,27 @@
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 Normal file
View File

@ -0,0 +1,39 @@
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.