diff options
author | David Pirotte <david@altosw.be> | 2024-02-28 21:57:11 -0300 |
---|---|---|
committer | David Pirotte <david@altosw.be> | 2024-02-28 21:57:11 -0300 |
commit | 2220294c8c8cebc779daa9a2a3b82832d12261d2 (patch) | |
tree | e972fb2dfab4ae9058c98feb8f5f929abc289dfe | |
parent | d8a1722529ca3fcfe47feb380ca7c0e55c7e5437 (diff) |
Adw1-demo - Animations Page debug infosdevel
* examples/adw-1/adw1-demo/animations.scm (dimfi-widget-measures):
Adding a call to get-width and get-height.
-rw-r--r-- | examples/adw-1/adw1-demo/animations.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/examples/adw-1/adw1-demo/animations.scm b/examples/adw-1/adw1-demo/animations.scm index e94b584..09a68ba 100644 --- a/examples/adw-1/adw1-demo/animations.scm +++ b/examples/adw-1/adw1-demo/animations.scm @@ -521,14 +521,16 @@ (define (dimfi-widget-measures title widget) (dimfi title) (dimfi " " widget) - (dimfi " " 'horizontal) + (dimfi (format #f "~20,,,' @A:" 'get-width) (get-width widget)) + (dimfi (format #f "~20,,,' @A:" 'get-height) (get-height widget)) + (dimfi " --- (gtk-widget-measure widget 'horizontal -1)") (receive (minimum natural minimum-baseline natural-baseline) (measure widget 'horizontal -1) (dimfi (format #f "~20,,,' @A:" 'minimum) minimum) (dimfi (format #f "~20,,,' @A:" 'natural) natural) (dimfi (format #f "~20,,,' @A:" 'minimum-baseline) minimum-baseline) (dimfi (format #f "~20,,,' @A:" 'natural-baseline) natural-baseline)) - (dimfi " " 'vertical) + (dimfi " --- (gtk-widget-measure widget 'vertical -1)") (receive (minimum natural minimum-baseline natural-baseline) (measure widget 'vertical -1) (dimfi (format #f "~20,,,' @A:" 'minimum) minimum) |