Commit 4d2c34bf authored by bp's avatar bp

MINOS under LGPL


git-svn-id: https://forth-ev.de/repos/bigforth@710 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 8d4809f8
......@@ -119,7 +119,7 @@ float.fm: float.fb forthker.fi $(SYSSRC)
-@$(MV) $@ $@~
./bigforth -e "$(WARNING) use x.fs use glconst.fs include float.fb m' float savemod float $(BYE)"
CPYDIST = bigforth/{README,COPYING,CREDITS}
CPYDIST = bigforth/{README,COPYING,CREDITS,LGPLv3}
DOSDIST = bigforth/{forthker,bigforth,xbigforth}$(EXE) bigforth/{forthker,bigforth}.fi bigforth/{version.h,minos-version.h}
......
......@@ -10,7 +10,10 @@ public:
early open
early dialog
early open-app
| topindex ptr (topindex-00)
| topindex ptr (topindex-01)
stredit ptr COPYING
stredit ptr LGPL
button ptr gpl-ok
( [varstart] ) ( [varend] )
how:
......@@ -48,6 +51,11 @@ gpl-about implements
0 copying edifile !
1 $10 dpy geometry
ELSE drop THEN
s" LGPLv3" r/o open-file
0= IF lgpl assign lgpl resized
0 lgpl edifile !
1 $10 dpy geometry
ELSE drop THEN
[ previous ] ; ( [methodend] )
: widget ( [dumpstart] )
X" bigFORTH is a native code Forth system, MINOS is a GUI library." text-label new
......@@ -70,11 +78,20 @@ gpl-about implements
X" You should have received a copy of the GNU General Public License" text-label new
X" along with this program. If not, see <http://www.gnu.org/licenses/>." text-label new
&2 vabox new vfixbox
1 1 vviewport new DS[
(straction stredit new ^^bind COPYING $42 setup-edit
&1 vabox new ]DS ( MINOS )
$0 $1 *hfil $0 $1 *vfil glue new
&2 habox new
0 -1 flipper X" GPL" topindex new ^^bind (topindex-00)
0 0 flipper X" LGPL" topindex new ^^bind (topindex-01)
topglue new
&3 harbox new vfixbox
1 1 vviewport new DS[
(straction stredit new ^^bind COPYING $42 setup-edit
&1 vabox new ]DS ( MINOS )
&1 habox new panel dup ^^ with C[ (topindex-00) ]C ( MINOS ) endwith
1 1 vviewport new DS[
(straction stredit new ^^bind LGPL $40 setup-edit
&1 vabox new ]DS ( MINOS )
&1 habox new flipbox panel dup ^^ with C[ (topindex-01) ]C ( MINOS ) endwith
&2 habox new $10 noborderbox &2 borderbox
&2 vabox new
&5 vabox new &1 vskips
$10 $1 *hfill $10 $1 *vfil glue new
^^ S[ close ]S ( MINOS ) X" OK " button new ^^bind gpl-ok
......
\ *** X-Windows Widgets for bigFORTH *** 25aug96py
\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Bernd Paysan
\ This file is part of MINOS
\ MINOS is free software; you can redistribute it and/or
\ modify it under the terms of the GNU Lesser General Public License
\ as published by the Free Software Foundation, either version 3
\ 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 Lesser General Public License for more details.
\ You should have received a copy of the GNU Lesser General Public License
\ along with this program; if not, see http://www.gnu.org/licenses/.
\ generic loadscreen 21sep07py
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment