MINOS under LGPL

git-svn-id: https://forth-ev.de/repos/bigforth@710 3b8d8251-53f3-0310-8f3b-fd1cb8370982

Makefile.in

@@ -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}
 

gpl-about.m

@@ -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

minos.fs

 \             *** 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