안녕하세요 리습을 공부하고 있습니다.
위 사이트 예제중에 MyPopupLists를 해 보고 있는데
다음과 같은 에러가 뜹니다.
MyPopupLists; 오류: no function definition: SET_TILE_LIST
원인이 뭘까요 고수님의 조언 부탁드립니다.
감사합니다.^^
//———————————————————————————————————
// MyPopupLists
//———————————————————————————————————
MyPopupLists : dialog {
key = “Title”;
label = “”;//Title$ from lsp file
initial_focus = “List1”;
spacer;
: row {//<
fixed_width = true;
: column {
width = 24.76;
fixed_width = true;
spacer;
: text {
key = “Text1”;
label = “”;//Text1$ from lsp file
}
}
: popup_list {
key = “List1”;//Value1$ from lsp file
width = 11.42;
fixed_width = true;
}
}//>
: row {//<
fixed_width = true;
: column {
width = 24.76;
fixed_width = true;
spacer;
: text {
key = “Text2”;
label = “”;//Text2$ from lsp file
}
}
: popup_list {
key = “List2”;//Value2$ from lsp file
width = 11.42;
fixed_width = true;
}
}//>
spacer;
ok_only;
}//MyPopupLists
;———————————————————————————————————-
; c:MyPopupLists – Dialog to select choices from popup lists
; Syntax: MyPopupLists
;———————————————————————————————————-
(defun c:MyPopupLists (/ Dcl_Id% List1@ List2@ Return# Value1$ Value2$)
(princ “nMyPopupLists”)(princ)
; Set Default Variables
(if (not *MyPopupLists@);Unique global variable name to store dialog info
(setq *MyPopupLists@ (list nil “” “”))
);if
(setq Value1$ (nth 1 *MyPopupLists@)
Value2$ (nth 2 *MyPopupLists@)
List1@ (list “” “Red” “Orange” “Yellow” “Green” “Cyan” “Blue” “Magenta”)
List2@ (list “” “0” “1” “2” “3” “4” “5” “6” “7” “8” “9”)
);setq
; Load Dialog
(setq Dcl_Id% (load_dialog “MyPopupLists.dcl”))
(new_dialog “MyPopupLists” Dcl_Id%)
; Set Dialog Initial Settings
(set_tile “Title” ” My Popup Lists”)
(set_tile “Text1” “My Favorite Color”)
(set_tile_list “List1” List1@ Value1$);*Included
(set_tile “Text2” “My Favorite Number”)
(set_tile_list “List2” List2@ Value2$);*Included
; Dialog Actions
(action_tile “List1” “(set_list_value ”List1@” ”Value1$”)”);*Included
(action_tile “List2” “(set_list_value ”List2@” ”Value2$”)”);*Included
(setq Return# (start_dialog))
; Unload Dialog
(unload_dialog Dcl_Id%)
(setq *MyPopupLists@ (list nil Value1$ Value2$))
(princ)
);defun c:MyPopupLists
올려주신 리습이 에러없이 정상적으로 작동을 합니다.
제가 초짜이고 공부중이다보니 수정된 데이터를 올려 주시면 정말 감사하겠습니다.
제 게시글 앞부분에
제 글에 관심 가져 주셔서 감사합니다.
강의 사이트에서 만든 함수같습니다 2개의 함수가 정식함수가 아니군요