!7

set flag DynModule.

sclass QSFunction extends DynBigNumber {
  InputChooser inputChooser = new(this);
  
  visualize { ret northAndCenter(wrap(inputChooser), super.visualize()); }
  void update { if (inputChooser.update()) update(inputChooser.input()); } 
  
  start {
    loadFunctions_preferDiskCache();
    hotwire_copyOver_after.add(f shareMyCreatorWith);
    doEvery(10000, r { update(inputChooser.input()) });
  }
  
  void update(S input) {
    temp enter();
    
    S sf = null;
    for (S word : words(input))
      if ((sf = or(mechMapCI("Word => Function").get(word), sf)) != null) break;
    if (sf != null) input = sf;
    
    S f = firstContainedInSet(words(input), mechSet("Safe & fast JavaX functions"));
      
    if (f != null) pcall {
      if (neq(getDescription(), f)) dm_showModule_noFocus();
      S value = or2(strOrNull(callAndMake(f)), "-");
      setDescription(f);
      setValue(value);
    }
  }
}