(defun Главное-окно ()
(within-main-loop
(let* ((Окно(make-instance 'gtk-window
:type
:toplevel
:window-position
:center
:title "АртСмет представляет!"
:default-width 600
:default-height 480
:app-paintable t))
(Скролл (make-instance 'scrolled-window :hscrollbar-policy :automatic :vscrollbar-policy :automatic))
(Строка-меню (make-instance 'menu-bar))
(Меню-закладок (make-instance 'notebook :enable-popup t))
(Холст (make-instance 'drawing-area))
(В-бокс (make-instance 'v-box))
(container-add Окно В-бокс)
(container-add Скролл Холст)
(box-pack-start В-бокс Строка-меню :expand nil)
(box-pack-start В-бокс меню-закладок :expand nil)
(box-pack-start В-бокс Скролл)
(widget-show Окно)
Не получается замутить Скролл для Холста, одним словом есть холст на котором я рисую ща та картинка есть прогружается стандартно Cairo так вот картинка больше чем окно. И хочу что бы скролом можно было просмотреть. Так же хочу реализовать спайку картинок, но из за того что нет скрола я не могу просмотреть результат... я надеюсь понятно обрисовал проблему.
p.s. Код на самом деле длинне но я его урзал, поэтому могут быть несостыковки некоторых частей.