Forums Active Threads Past Month

alias testWindow {
  if ($dialog(testWindow)) { dialog -x testWindow }
  dialog -m testWindow testWindow
}

dialog testWindow {
  title "Test Window"
  size -1 -1 100 100
  option dbu
  text "Test Text 1", 1, 6 6 88 118, center
  text "Test Text 2", 2, 6 14 88 118
}

on 1:dialog:testWindow:init:*:{
  ; hide both lines of text in dialog window
  did -h $dname 1,2
  ; display visibility properties for both lines of text
  echo -a Test Text 1 Visible: $did(1).visible
  echo -a Test Text 2 Visible: $did(2).visible
}

alias argon2_test {
  var %password = test
  var %salt = kQIfhANrQOtrrBDL
  ; This part is confusing. I assumed it had to be "argon2id".
  var %hash = 2id
  var %derivedKey = $argon2(%password, %salt, %hash, 16, 2, 1, 16)
  echo -ag  %derivedKey
}

#[mirust_fn]
fn my_command(
    m_wnd: HWND,
    a_wnd: HWND,
    data: String,
    parms: String,
    show: BOOL,
    nopause: BOOL,
) -> mirust::MircResult {

    let command = "echo -st * Message from 🦀 Rust: $1-".to_string();
    let my_string = format!("You sent me: {}", data);

    mirust::MircResult {
        code: 2, // Command
        data: Some(command),
        parms: Some(my_string),
    }
}

alias test { dialog -m test test }

dialog test {
  title "Dialog ghost text"
  icon $mircexe,0
  option pixels
  size -1 -1 306 115
  edit "", 1, 8 12 290 60, multi optional "test"
  button "&OK", 4, 142 83 76 23, ok default
  button "&Cancel", 5, 223 83 76 23, cancel
}
on *:dialog:test:*:*:{
  if ($devent == init) { did -f $dname 4 }
  elseif ($devent == sclick) {
    if ($did == 4) { echo -sg -- $did(1) }
  }
}

alias dtest {
  set %gtext Enter some text here...
  dialog -m dtest dtest | did -f dtest 4
}
dialog dtest {
  title "Dialog ghost text"
  icon $mircexe,0
  option pixels
  size -1 -1 306 160
  edit "", 1, 8 12 290 60, multi optional %gtext
  text "NOTE: If the value is empty, ghost text will be displayed.", 2, 12 84 290 18, disable
  edit "", 3, 8 99 290 21, autohs optional " $gtext "
  button "&OK", 4, 142 130 76 23, ok default
  button "&Cancel", 5, 223 130 76 23, cancel
}
alias -l gtext { return Ghost text... }

alias dtest { dialog -m dtest dtest | did -f dtest 3 }
dialog dtest {
  title "Dialog ghost text"
  icon $mircexe,0
  option pixels
  size -1 -1 306 160
  edit "", 1, 8 12 290 60, multi optional "Enter some text here..."
  edit "NOTE: If the value is empty, ghost text will be displayed.", 2, 8 81 290 18, disable
  edit "Normal text", 3, 8 99 290 21, autohs optional "Ghost text..."
  button "&OK", 4, 142 130 76 23, ok
  button "&Cancel", 5, 223 130 76 23, cancel
}

dialog version {
  title "Version"
  size -1 -1 306 155
  edit "Enter the server or nickname:", 1, 10 12 290 60
  edit "NOTE: If empty it will query the current server.", 2, 10 71 270 16, disable
  edit "", 3, 8 92 290 22, autohs optional
  button "&OK", 4, 142 124 76 23, ok
  button "&Cancel", 5, 223 124 76 23, cancel
}
on *:dialog:version:{
  if ($devent == sclick) && ($did == 4) { .raw version $did(3) }
}

.raw version $remove($did(3),(optional))