login.m 1.39 KB
Newer Older
bp's avatar
bp committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class login-1
public:
  infotextfield ptr name
  infotextfield ptr passwort
  button ptr log-in
  button ptr cancel
 ( [varstart] )  ( [varend] ) 
how:
bp's avatar
bp committed
15
  : params   DF[ 0 ]DF X" Einloggen" ;
bp's avatar
bp committed
16 17 18 19 20 21
class;

component class main-1
public:
 ( [varstart] )  ( [varend] ) 
how:
bp's avatar
bp committed
22
  : params   DF[ 0 ]DF X" Main" ;
bp's avatar
bp committed
23 24 25 26 27
class;

main-1 implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
bp's avatar
bp committed
28 29 30 31
          ^^ S[ login-1 open ]S ( MINOS ) X" Login" button new 
          ^^ S[ close ]S ( MINOS ) X" Logout" button new 
        #2 vabox new panel
      #1 vabox new
bp's avatar
bp committed
32 33 34 35 36 37
    ( [dumpend] ) ;
class;

login-1 implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
bp's avatar
bp committed
38 39
          T" " ^^ ST[  ]ST ( MINOS ) X" Name" infotextfield new  ^^bind name
          T" " ^^ ST[  ]ST ( MINOS ) X" Passwort" infotextfield new  ^^bind passwort
bp's avatar
bp committed
40
            ^^ S[ ." login " name get type
bp's avatar
bp committed
41 42 43 44 45 46
."  with Passwort " passwort get type cr  ]S ( MINOS ) X" Log mich ein" button new  ^^bind log-in
            ^^ S[ close ]S ( MINOS ) X" Lass es sein" button new  ^^bind cancel
            ^^ S[ large-font ]S ( MINOS ) X" Large Font" button new 
          #3 habox new #1 hskips
        #3 vabox new panel
      #1 vabox new
bp's avatar
bp committed
47 48 49 50 51
    ( [dumpend] ) ;
class;

: main
  main-1 open-app
bp's avatar
bp committed
52
  event-loop bye ;
bp's avatar
bp committed
53 54
script? [IF]  main  [THEN]
previous previous previous