(defun c:test
( / *error* asc dch dcl des lst sel
)
)
)
'(
"lb : list_box"
"{"
" multiple_select = true;"
" fixed_width = true;"
" fixed_height = true;"
" width = 30;"
" height = 15;"
"}"
"bt : button"
"{"
" fixed_width = true;"
" fixed_height = true;"
" width = 10;"
" height = 2;"
"}"
"test : dialog"
"{"
" spacer_1;"
" : row"
" {"
" : lb { key = \"lb1\"; }"
" : column"
" {"
" fixed_height = true;"
" : bt { label = \"--->\"; key = \"add\"; }"
" : bt { label = \"<---\"; key = \"rem\"; }"
" }"
" : lb { key = \"lb2\"; }"
" }"
" spacer;"
" ok_only;"
" spacer;"
"}"
)
)
)
(dclist "lb1" lst)
'
(mapcar 'dclist '
("lb1" "lb2") )
)
)
)
'
(mapcar 'dclist '
("lb2" "lb1") )
)
)
)
)
)
(*error* nil)
)
(defun dclist
( key lst
) )
(defun shiftitems
( idx lb1 lb2
/ int
) )
)