All pastes #1079786 Raw Edit

$chr() Map Dialog

public text v1 · immutable
#1079786 ·published 2008-07-22 19:10 UTC
rendered paste body
alias charmap { dialog -m CharacterMap CharacterMap }
menu * { 
  Character Map:/charmap
}
dialog CharacterMap {
  title "Char Map - by Joshua - v1.1"
  size -1 -1 115 304
  option dbu
  edit "", 1, 51 29 48 12
  button "About", 2, 33 7 37 12
  list 3, 19 75 83 191, size vsbar
  button "Close", 4, 38 274 37 12, ok
  text "chr() Code:", 5, 12 30 36 11, right
  text "Character:", 6, 11 47 37 10, right
  edit "", 7, 51 46 48 12
}

on *:dialog:CharacterMap:sclick:2: {
  ; var %i = 1
  ; var %end = 255
  ; while (%i <= %end) {
  ;   did -a $dname 3 $chr(%i)
  ;   inc %i
  ;}
  echo -a [About] This dialog was the second dialog made by Joshua. This will copy
  echo -a the symbol to your clipboard when SINGLE-CLICKING the item.  If DOUBLE-CLICKED, it will copy the $eval($chr(#),0) to your clipboard
}
alias testchr {
  var %i = 1
  var %end = 255
  while (%i <= %end) {
    aline -a @test $eval($chr,0) $+ ( $+ %i $+ ) $chr(%i)
    inc %i
  }
}
on *:dialog:CharacterMap:init:0: {
  var %i = 1
  var %end = 255
  while (%i <= %end) {
    did -a $dname 3 $chr(%i)
    inc %i
  }
}
on *:dialog:CharacterMap:sclick:3: {
  did -r $dname 1 
  did -r $dname 7
  did -a $dname 1 $eval($chr,0) $+ ( $+ $eval($did($dname,3).sel),0) $+ )
  did -a $dname 7 $chr($did($dname,3).sel)
  clipboard $chr($did($dname,3).sel))
}
on *:dialog:CharacterMap:dclick:3: {
  did -r $dname 1
  did -r $dname 7
  did -a $dname 1 $eval($chr,0) $+ ( $+ $eval($did($dname,3).sel),0) $+ )
  did -a $dname 7 $chr($did($dname,3).sel)
  clipboard $eval($chr,0) $+ ( $+ $eval($did($dname,3).sel),0) $+ )
}