#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class gpl-about
public:
  | topindex ptr (topindex-00)
  | topindex ptr (topindex-01)
  stredit ptr COPYING
  stredit ptr LGPL
  vabox ptr floater
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" About gpl program" ;
class;

component class minos-splash
public:
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" Minos Splash Screen" ;
class;

component class bigforth-about
public:
  button ptr gpl-ok
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" About bigFORTH+MINOS" ;
class;

bigforth-about implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
          X" bigFORTH is a native code Forth system, MINOS is a GUI library." text-label new 
          X" Copyright (c) 1998-2008 by Bernd Paysan" text-label new 
            $10 $1 *hfil $10 $1 *vfil glue new 
             icon" icons/minos" icon new 
            $10 $1 *hfil $10 $1 *vfil glue new 
          #3 habox new vfixbox 
        #3 vabox new vfixbox  #1 hskips
        ^^ CP[  ]CP ( MINOS ) gpl-about new 
          $10 $1 *hfill $10 $1 *vfil rule new 
          ^^ S[ close ]S ( MINOS ) X"  OK " button new  ^^bind gpl-ok
          $10 $1 *hfill $10 $1 *vfil glue new 
        #3 habox new vfixbox  panel
      #3 vabox new
    ( [dumpend] ) ;
class;

minos-splash implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
         icon" icons/minos" icon new 
      #1 vabox new #2 borderbox
    ( [dumpend] ) ;
class;

gpl-about implements
 ( [methodstart] ) : assign  drop ;
: show ( -- ) [ also DOS ]
  s" COPYING" r/o open-file
  0= IF  copying assign  copying resized
         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
  floater self vfixbox drop floater resized
  super show [ previous ] ; ( [methodend] ) 
  : widget  ( [dumpstart] )
            X" This program is free software; you can redistribute it and/or modify" text-label new 
            X" it under the terms of the GNU General Public License as published by" text-label new 
            X" the Free Software Foundation; either version 3 of the License, or" text-label new 
            X" (at your option) any later version." text-label new 
          #4 vabox new vfixbox 
            X" This program is distributed in the hope that it will be useful," text-label new 
            X" but WITHOUT ANY WARRANTY; without even the implied warranty of" text-label new 
            X" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the" text-label new 
            X" GNU General Public License for more details." text-label new 
          #4 vabox new vfixbox 
            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 
              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 $40 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
        #4 vabox new panel
          $0 $1 *hfill $0 $1 *vfil glue new 
        #1 vabox new ^^bind floater
      #2 vabox new
    ( [dumpend] ) ;
class;

previous previous previous
