cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- added package qualificator to croatoan's classes symbols.

This commit is contained in:
cage 2022-03-23 18:26:56 +01:00
parent d9a8d03472
commit c7d2a5513e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/windows.lisp
View File

@ -526,7 +526,7 @@ list of strings (the text lines)."
(max-message-height (- (win-height-no-border parent) (max-message-height (- (win-height-no-border parent)
4)) 4))
(message (join-with-strings lines (format nil "~%"))) (message (join-with-strings lines (format nil "~%")))
(dialog-window (make-instance 'dialog-window (dialog-window (make-instance 'c:dialog-window
:stacked nil :stacked nil
:center t :center t
:message-text message :message-text message
@ -602,22 +602,22 @@ insetred by the user"
(/ window-height 2))) (/ window-height 2)))
(truncate (- (/ (win-width parent) 2) (truncate (- (/ (win-width parent) 2)
(/ window-width 2))))) (/ window-width 2)))))
(button-cancel (make-instance 'button (button-cancel (make-instance 'c:button
:name :b-cancel :name :b-cancel
:title (_ "Cancel") :title (_ "Cancel")
:position (list (truncate (1+ (* window-height :position (list (truncate (1+ (* window-height
3/4))) 3/4)))
2))) 2)))
(button-accept (make-instance 'button (button-accept (make-instance 'c:button
:name :b-accept :name :b-accept
:title (_ "OK") :title (_ "OK")
:position (list (truncate (* window-height 3/4)) :position (list (truncate (* window-height 3/4))
2))) 2)))
(field (make-instance 'field (field (make-instance 'c:field
:position (list (truncate (* window-height 1/2)) :position (list (truncate (* window-height 1/2))
2) 2)
:width field-width)) :width field-width))
(low-level-window (make-instance 'form-window (low-level-window (make-instance 'c:form-window
:stacked nil :stacked nil
:input-blocking t :input-blocking t
:width window-width :width window-width