Equivalents [Dyn Module] [1019795]

< > BotCompany Repo | #1019795 // Equivalents [Dyn Module]

JavaX source code (Dynamic Module) [tags: use-pretranspiled] - run with: Stefan's OS

!7

concept Equivalent {
  S a, b;
}

module Equivalents > DynCRUD<Equivalent> {
  *() { super(Equivalent); }
  
  afterVisualize {
    replaceComponent(crud.tableSearcher.tfInput, func(JComponent c) -> JComponent {
      centerAndEastWithMargin(c, jbutton("Define...", rThread {
        define(searchTerm())
      }))
    });
    onEnter(crud.tableSearcher.tfInput, rThread { define(searchTerm()) });
  }
  
  void define(fS term) enter {
    final JTextField tfWord = jtextfield(or2(term, dm_topInput())), tfDefinition = jtextfield();
    showFormTitled("Add Equivalent",
      "Word/phrase:", tfWord,
      "Equivalent word/phrase:", tfDefinition,
      rThread {
        S a = gtt(tfWord), b = gtt(tfDefinition);
        uniq_sync(Equivalent, +a, +b);
      });
    focus(nempty(term) ? tfDefinition : tfWord);
  }
}

Author comment

Began life as a copy of #1019714

Travelled to 9 computer(s): bhatertpkbcr, cfunsshuasjs, gwrvuhgaqvyk, irmadwmeruwu, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tvejysmllsmz, vouqrxazstgt

Snippet ID:

#1019795

Snippet name:

Equivalents [Dyn Module]

Eternal ID of this version:

#1019795/3

Text MD5:

26ea1ac1fd90da4d2964cd76b0830d24

Transpilation MD5:

6b3b4aa2a03cf99227100dfb7008ff89

Author:

stefan

Category:

javax / a.i.

Type:

JavaX source code (Dynamic Module)

Public (visible to everyone):

Yes

Archived (hidden from active list):

Created/modified:

2018-11-26 21:49:58

Source code size:

849 bytes / 30 lines

Pitched / IR pitched:

No / No

Views / Downloads:

315 / 683

Version history:

2 change(s)

Referenced in:

[show references]

1	!7
2
3	concept Equivalent {
4	S a, b;
5	}
6
7	module Equivalents > DynCRUD<Equivalent> {
8	*() { super(Equivalent); }
9
10	afterVisualize {
11	replaceComponent(crud.tableSearcher.tfInput, func(JComponent c) -> JComponent {
12	centerAndEastWithMargin(c, jbutton("Define...", rThread {
13	define(searchTerm())
14	}))
15	});
16	onEnter(crud.tableSearcher.tfInput, rThread { define(searchTerm()) });
17	}
18
19	void define(fS term) enter {
20	final JTextField tfWord = jtextfield(or2(term, dm_topInput())), tfDefinition = jtextfield();
21	showFormTitled("Add Equivalent",
22	"Word/phrase:", tfWord,
23	"Equivalent word/phrase:", tfDefinition,
24	rThread {
25	S a = gtt(tfWord), b = gtt(tfDefinition);
26	uniq_sync(Equivalent, +a, +b);
27	});
28	focus(nempty(term) ? tfDefinition : tfWord);
29	}
30	}