bigforth/adjust.m at master · forthy42/bigforth · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class adjust
public:
  infotextfield ptr path#
  infotextfield ptr id#
  button ptr path-ok
 ( [varstart] )  ( [varend] )
how:
  : params   DF[ 0 ]DF X" Adjust Configuration" ;
class;

include adjust-path.fs
adjust implements
 ( [methodstart] ) : show
  pathes count '; -skip path# assign
  screen xywh 2swap 2drop p2/
  dpy self window with  xywh resize
      xywh  2swap 2drop p2/ p-
      repos endwith
  argc @ 3 = 1 arg s" adjust.m" str= and IF  2 arg id# assign
    id# get path# get s" xbigforth.ini" adjust-path-id
    id# get path# get  s" bigforth.ini" adjust-path-id
    close bye
  THEN
  super show ; ( [methodend] )
  : widget  ( [dumpstart] )
        T" " ^^ ST[  ]ST ( MINOS ) X" Pathes" infotextfield new  ^^bind path#
        T" py" ^^ ST[  ]ST ( MINOS ) X" ID" infotextfield new  ^^bind id#
          $10 $1 *hfill $10 $1 *vfil glue new
          ^^ S[ id# get path# get s" xbigforth.ini" adjust-path-id
id# get path# get  s" bigforth.ini" adjust-path-id
close ]S ( MINOS ) X" OK" button new  ^^bind path-ok
          $10 $1 *hfil $10 $1 *vfil glue new
          ^^ S[ close ]S ( MINOS ) X" Cancel" button new
          $10 $1 *hfill $10 $1 *vfil glue new
        #5 hatbox new
      #3 vabox new panel
    ( [dumpend] ) ;
class;

: main
  adjust open-app
  event-loop bye ;
script? [IF]  main  [THEN]
previous previous previous