chievents.d

   1 module chievents /*is aliced*/;
   2
   3 import iv.alice;
   4 import egui;
   5
   6
   7 // ////////////////////////////////////////////////////////////////////////// //
   8 public __gshared int guiGroupListWidth = 140*2;
   9 public __gshared int guiThreadListHeight = 250*2-100;
  10 public __gshared int guiMessageTextLPad = 6;
  11 public __gshared int guiMessageTextVPad = 4;
  12 public __gshared int guiMessageTextInterline = 4;
  13 public __gshared int guiScrollbarWidth = 8;
  14
  15
  16 // ////////////////////////////////////////////////////////////////////////// //
  17 public class DoConsoleCommandsEvent {}
  18 public class TrayStartAnimationEvent {}
  19 public class TrayStopAnimationEvent {}
  20 public class TraySetupAnimationEvent {}
  21 public class DoCheckBoxesCycleEvent {}
  22
  23 __gshared DoConsoleCommandsEvent evDoConCommands;
  24 __gshared TrayStartAnimationEvent evStartTrayAnim;
  25 __gshared TrayStopAnimationEvent evStopTrayAnim;
  26 __gshared TraySetupAnimationEvent evSetupTrayAnim;
  27 __gshared DoCheckBoxesCycleEvent evDoCheckBoxesCycle;
  28
  29 shared static this () {
  30   evDoConCommands = new DoConsoleCommandsEvent();
  31   evStartTrayAnim = new TrayStartAnimationEvent();
  32   evStopTrayAnim = new TrayStopAnimationEvent();
  33   evSetupTrayAnim = new TraySetupAnimationEvent();
  34   evDoCheckBoxesCycle = new DoCheckBoxesCycleEvent();
  35 }
  36
  37
  38 public void postDoCheckBoxesCycle () { if (vbwin !is null && !vbwin.eventQueued!DoCheckBoxesCycleEvent) vbwin.postEvent(evDoCheckBoxesCycle); }
  39 public void postTrayAnimationStart () { if (vbwin !is null && !vbwin.eventQueued!TrayStartAnimationEvent) vbwin.postEvent(evStartTrayAnim); }
  40 public void postTrayAnimationStop () { if (vbwin !is null && !vbwin.eventQueued!TrayStopAnimationEvent) vbwin.postEvent(evStopTrayAnim); }
  41 public void postTrayAnimationSetup () { if (vbwin !is null && !vbwin.eventQueued!TraySetupAnimationEvent) vbwin.postEvent(evSetupTrayAnim); }
  42 public void postDoConCommands () { if (vbwin !is null && !vbwin.eventQueued!DoConsoleCommandsEvent) vbwin.postEvent(evDoConCommands); }