TOUCHES F1--->F12

alias touches { dialog -dm touches touches }
dialog Touches {
  Title "Raccourcis Touches F1-F12"
  size -1 -1 325 225
  option dbu
  edit %f1, 1,20 10 300 12,autohs
  edit %f2, 2,20 24 300 12,autohs
  edit %f3, 3,20 38 300 12,autohs
  edit %f4, 4,20 52 300 12,autohs
  edit %f5, 5,20 66 300 12,autohs
  edit %f6, 6,20 80 300 12,autohs
  edit %f7, 7,20 94 300 12,autohs
  edit %f8, 8,20 108 300 12,autohs
  edit %f9, 9,20 122 300 12,autohs
  edit %f10, 10,20 136 300 12,autohs
  edit %f11, 11,20 150 300 12,autohs
  edit %f12, 12,20 164 300 12,autohs
  text "F1", 13,5 10 10 12
  text "F2", 14,5 24 10 12
  text "F3", 15,5 38 10 12
  text "F4", 16,5 52 10 12
  text "F5", 17,5 66 10 12
  text "F6", 18,5 80 10 12
  text "F7", 19,5 94 10 12
  text "F8", 20,5 108 10 12
  text "F9", 21,5 122 10 12
  text "F10", 22,5 136 10 12
  text "F11", 23,5 150 10 12
  text "F12", 24,5 164 10 12
  text "Met tes phrase et aprés tu appuie sur F1-->F12", 25,5 180 325 10,center
  button "Okay", 26,100 200 50 20,flat ok
  button "Cancel", 27,160 200 50 20,flat cancel
}

on *:dialog:touches:edit:*:{
  set %f1 $did(1)
  set %f2 $did(2)
  set %f3 $did(3)
  set %f4 $did(4)
  set %f5 $did(5)
  set %f6 $did(6)
  set %f7 $did(7)
  set %f8 $did(8)
  set %f9 $did(9)
  set %f10 $did(10)
  set %f11 $did(11)
  set %f12 $did(12)
}

alias f1 {
  say %f1
}

alias f2 {
  say %f2
}

alias f3 {
  say %f3
}

alias f4 {
  say %f4
}

alias f5 {
  say %f5
}

alias f6 {
  say %f6
}

alias f7 {
  say %f7
}

alias f8 {
  say %f8
}

alias f9 {
  say %f9
}

alias f10 {
  say %f10
}

alias f11 {
  say %f11
}

alias f12 {
  say %f12
}