Show More
@@ -146,10 +146,8 b'' | |||
|
146 | 146 | (void)) |
|
147 | 147 | |
|
148 | 148 | (defun call-act (title) |
|
149 | (setf *current-action title) | |
|
150 | 149 | (with-frame |
|
151 | 150 | (funcall (getprop *acts title :act))) |
|
152 | (setf *current-action nil) | |
|
153 | 151 | (void)) |
|
154 | 152 | |
|
155 | 153 | ;;; Text windows |
@@ -190,8 +188,8 b'' | |||
|
190 | 188 | (create :title title :img img :act act :selected nil)) |
|
191 | 189 | (update-acts)) |
|
192 | 190 | |
|
193 |
(defun del-act ( |
|
|
194 |
(delete (getprop *acts |
|
|
191 | (defun del-act (title) | |
|
192 | (delete (getprop *acts title)) | |
|
195 | 193 | (update-acts)) |
|
196 | 194 | |
|
197 | 195 | (defun clear-act () |
@@ -102,9 +102,6 b'' | |||
|
102 | 102 | |
|
103 | 103 | ;;; 14act |
|
104 | 104 | |
|
105 | (defpsmacro curact () | |
|
106 | `*current-action) | |
|
107 | ||
|
108 | 105 | (defpsmacro showacts (enable) |
|
109 | 106 | `(api-call enable-frame :acts ,enable)) |
|
110 | 107 |
@@ -191,6 +191,11 b'' | |||
|
191 | 191 | |
|
192 | 192 | ;;; 14act |
|
193 | 193 | |
|
194 | (defun selact () | |
|
195 | (loop :for (k v) :of *acts | |
|
196 | :do (when (@ v :selected) | |
|
197 | (return-from selact (@ v :name))))) | |
|
198 | ||
|
194 | 199 | (defun curacts () |
|
195 | 200 | (let ((acts (api-call copy-obj *acts))) |
|
196 | 201 | (lambda () |
General Comments 0
You need to be logged in to leave comments.
Login now