|
Lines 82-90
Link Here
|
| 82 |
(start (string-skip cutted #\space))) |
82 |
(start (string-skip cutted #\space))) |
| 83 |
(substring cutted start (string-length cutted))))) |
83 |
(substring cutted start (string-length cutted))))) |
| 84 |
|
84 |
|
|
|
85 |
(define (model-button-name) |
| 86 |
(or (cond-cadr (cell-ref printer-model)) (_ "Select model..."))) |
| 85 |
|
87 |
|
| 86 |
(hbox (layout-policy 100 20) |
88 |
(hbox (layout-policy 100 20) |
| 87 |
(document:id model-button (button (or (cond-cadr (cell-ref printer-model)) (_ "Select model...")) |
89 |
(document:id model-button (button (model-button-name) |
| 88 |
(layout-policy 50 -1) |
90 |
(layout-policy 50 -1) |
| 89 |
(on-click |
91 |
(on-click |
| 90 |
(let* ((vendor (cond-car (cell-ref printer-model))) |
92 |
(let* ((vendor (cond-car (cell-ref printer-model))) |
|
Lines 95-101
Link Here
|
| 95 |
'auto-model model))) |
97 |
'auto-model model))) |
| 96 |
(and (pair? result) |
98 |
(and (pair? result) |
| 97 |
(cell-set! printer-model result)))) |
99 |
(cell-set! printer-model result)))) |
| 98 |
(model-button text (cond-cadr (cell-ref printer-model))))))) |
100 |
(model-button text (model-button-name)))))) |
| 99 |
|
101 |
|
| 100 |
(define (made-user-password) |
102 |
(define (made-user-password) |
| 101 |
(string-join (delete "" |
103 |
(string-join (delete "" |
