Attachment 1421 Details for Bug 9205 – fix dialog return value on discard

[patch] fix dialog return value on discard

alterator-printers-4.2-avm-false.patch (text/plain), 1.38 KB, created by Kachalov Anton on 2006-03-08 20:07:38 MSK

(hide)

Description:

Filename:

MIME Type:

Creator: Kachalov Anton

Created: 2006-03-08 20:07:38 MSK

Size: 1.38 KB

patch

obsolete

>diff -aur alterator-printers-4.2/ui/printers_smb.scm alterator-printers-4.2.avm/ui/printers_smb.scm
>--- alterator-printers-4.2/ui/printers_smb.scm	2006-02-02 16:46:38 +0300
>+++ alterator-printers-4.2.avm/ui/printers_smb.scm	2006-03-08 19:34:53 +0300
>@@ -82,9 +82,11 @@
>               (start (string-skip cutted #\space)))
>                    (substring cutted start (string-length cutted)))))
> 
>+(define (model-button-name)
>+  (or (cond-cadr (cell-ref printer-model)) (_ "Select model...")))
> 
> (hbox (layout-policy 100 20)
>-      (document:id model-button (button (or (cond-cadr (cell-ref printer-model)) (_ "Select model..."))
>+      (document:id model-button (button (model-button-name)
>                                         (layout-policy 50 -1)
>                                         (on-click
>                                          (let* ((vendor (cond-car (cell-ref printer-model)))
>@@ -95,7 +97,7 @@
>                                                                          'auto-model model)))
>                                              (and (pair? result)
>                                                   (cell-set! printer-model result))))
>-                                         (model-button text (cond-cadr (cell-ref printer-model)))))))
>+                                         (model-button text (model-button-name))))))
> 
> (define (made-user-password)
>   (string-join (delete ""

Actions: View | Diff

Attachments on bug 9205: 1421