12 lines
399 B
Plaintext
12 lines
399 B
Plaintext
;;; Map widget names that are longer than 12 chars to shorter names
|
|
;;; to satisfy stupid System V restriction
|
|
;;; (12 chars widget name + '.o' == 14 chars)
|
|
|
|
(set! widget-aliases
|
|
'((bulletin-board . bulletin-brd)
|
|
(cascade-button . cascade-btn)
|
|
(file-selection . file-selectn)
|
|
(scrolled-window . scrolled-win)
|
|
(selection-box . selectn-box)
|
|
(toggle-button . toggle-btn)))
|