F-KEY AVEC CTRL + ET SHIFT +

dialog fkey {
  title "F-Keys"
  size -1 -1 149 200
  option dbu
  tab "F-keys", 1, 0 0 148 187
  edit %f1, 9, 23 20 117 10, tab 1
  edit %f2, 10, 23 34 117 10, tab 1
  edit %f3, 14, 23 48 117 10, tab 1
  edit %f4, 15, 23 62 117 10, tab 1
  edit %f5, 16, 23 76 117 10, tab 1
  edit %f6, 17, 23 90 117 10, tab 1
  edit %f7, 18, 23 104 117 10, tab 1
  edit %f8, 19, 23 118 117 10, tab 1
  edit %f9, 20, 23 132 117 10, tab 1
  edit %f10, 21, 23 146 117 10, tab 1
  edit %f11, 22, 23 160 117 10, tab 1
  edit %f12, 23, 23 174 117 10, tab 1
  text "F1", 24, 11 21 10 8, tab 1
  text "F2", 25, 11 35 10 8, tab 1
  text "F3", 26, 11 49 10 8, tab 1
  text "F4", 27, 11 63 10 8, tab 1
  text "F5", 28, 11 77 10 8, tab 1
  text "F6", 29, 11 91 10 8, tab 1
  text "F7", 30, 11 105 10 8, tab 1
  text "F8", 31, 11 119 10 8, tab 1
  text "F9", 32, 11 134 10 8, tab 1
  text "F10", 33, 11 148 10 8, tab 1
  text "F11", 34, 11 162 10 8, tab 1
  text "F12", 35, 11 176 10 8, tab 1
  tab "Ctrl + F-Keys", 36
  edit %cf1, 38, 23 20 117 10, tab 36
  edit %cf2, 39, 23 34 117 10, tab 36
  edit %cf3, 40, 23 48 117 10, tab 36
  edit %cf4, 41, 23 62 117 10, tab 36
  edit %cf5, 42, 23 76 117 10, tab 36
  edit %cf6, 43, 23 90 117 10, tab 36
  edit %cf7, 44, 23 104 117 10, tab 36
  edit %cf8, 45, 23 118 117 10, tab 36
  edit %cf9, 46, 23 132 117 10, tab 36
  edit %cf10, 47, 23 146 117 10, tab 36
  edit %cf11, 48, 23 160 117 10, tab 36
  edit %cf12, 49, 23 174 117 10, tab 36
  text ctrl+F1, 50, 1 21 20 8, tab 36
  text "ctrl+F2", 51, 1 35 20 8, tab 36
  text "ctrl+F3", 52, 1 49 20 8, tab 36
  text "ctrl+F4", 53, 1 63 20 8, tab 36
  text "ctrl+F5", 54, 1 77 20 8, tab 36
  text "ctrl+F6", 55, 1 91 20 8, tab 36
  text "ctrl+F7", 56, 1 105 20 8, tab 36
  text "ctrl+F8", 57, 1 119 20 8, tab 36
  text "ctrl+F9", 58, 1 134 20 8, tab 36
  text "ctrl+F10", 59, 1 148 20 8, tab 36
  text "ctrl+F11", 60, 1 162 20 8, tab 36
  text "ctrl+F12", 61, 1 176 20 8, tab 36
  tab "Shift + F-Keys", 37
  edit %sf1, 62, 23 20 117 10, tab 37
  edit %sf2, 63, 23 34 117 10, tab 37
  edit %sf3, 64, 23 48 117 10, tab 37
  edit %sf4, 65, 23 62 117 10, tab 37
  edit %sf5, 66, 23 76 117 10, tab 37
  edit %sf6, 67, 23 90 117 10, tab 37
  edit %sf7, 68, 23 104 117 10, tab 37
  edit %sf8, 69, 23 118 117 10, tab 37
  edit %sf9, 70, 23 132 117 10, tab 37
  edit %sf10, 71, 23 146 117 10, tab 37
  edit %sf11, 72, 23 160 117 10, tab 37
  edit %sf12, 73, 23 174 117 10, tab 37
  text "shift+F1", 74, 1 21 20 8, tab 37
  text "shift+F2", 75, 1 35 20 8, tab 37
  text "shift+F3", 76, 1 49 20 8, tab 37
  text "shift+F4", 77, 1 63 20 8, tab 37
  text "shift+F5", 78, 1 77 20 8, tab 37
  text "shift+F6", 79, 1 91 20 8, tab 37
  text "shift+F7", 80, 1 105 20 8, tab 37
  text "shift+F8", 81, 1 119 20 8, tab 37
  text "shift+F9", 82, 1 134 20 8, tab 37
  text "shift+F10", 83, 1 148 20 8, tab 37
  text "shift+F11", 84, 1 162 20 8, tab 37
  text "shift+F12", 85, 1 176 20 8, tab 37
  button "Valide", 100, 55 190 37 9, flat ok cancel
}

on *:dialog:fkey:edit:*:{
  set %f1 $did(9).text
  set %f2 $did(10).text
  set %f3 $did(14).text
  set %f4 $did(15).text
  set %f5 $did(16).text
  set %f6 $did(17).text
  set %f7 $did(18).text
  set %f8 $did(19).text
  set %f9 $did(20).text
  set %f10 $did(21).text
  set %f11 $did(22).text
  set %f12 $did(23).text
  set %cf1 $did(38).text
  set %cf2 $did(39).text
  set %cf3 $did(40).text
  set %cf4 $did(41).text
  set %cf5 $did(42).text
  set %cf6 $did(43).text
  set %cf7 $did(44).text
  set %cf8 $did(45).text
  set %cf9 $did(46).text
  set %cf10 $did(47).text
  set %cf11 $did(48).text
  set %fc12 $did(49).text
  set %sf1 $did(62).text
  set %sf2 $did(63).text
  set %sf3 $did(64).text
  set %sf4 $did(65).text
  set %sf5 $did(66).text
  set %sf6 $did(67).text
  set %sf7 $did(68).text
  set %sf8 $did(69).text
  set %sf9 $did(70).text
  set %sf10 $did(71).text
  set %sf11 $did(72).text
  set %sf12 $did(72).text
}
alias F1 { %f1 }
alias F2 { %f2 }
alias F3 { %f3 }
alias F4 { %f4 }
alias F5 { %f5 }
alias F6 { %f6 }
alias F7 { %f7 }
alias F8 { %f8 }
alias F9 { %f9 }
alias F10 { %f10 }
alias F11 { %f11 }
alias F12 { %f12 }
alias sF1 { %sf1 }
alias sF2 { %sf2 }
alias sF3 { %sf3 }
alias sF4 { %sf4 }
alias sF5 { %sf5 }
alias sF6 { %sf6 }
alias sF7 { %sf7 }
alias sF8 { %sf8 }
alias sF9 { %sf9 }
alias sF10 { %sf10 }
alias sF11 { %sf11 }
alias sF12 { %sf12 }
alias cF1 { %cf1 }
alias cF2 { %cf2 }
alias cF3 { %cf3 }
alias cF4 { %cf4 }
alias cF5 { %cf5 }
alias cF6 { %cf6 }
alias cF7 { %cf7 }
alias cF8 { %cf8 }
alias cF9 { %cf9 }
alias cF10 { %cf10 }
alias cF11 { %cf11 }
alias cF12 { %cf12 }