ALT Linux Bugzilla
– Attachment 1198 Details for
Bug 8279
printer description fast hack
New bug
|
Search
|
[?]
|
Help
Register
|
Log In
[x]
|
Forgot Password
Login:
[x]
|
EN
|
RU
[patch]
printer description fast hack
alterator-printers-3.3-alt-desc-hack.patch (text/plain), 4.90 KB, created by
Kachalov Anton
on 2005-10-17 16:23:56 MSD
(
hide
)
Description:
printer description fast hack
Filename:
MIME Type:
Creator:
Kachalov Anton
Created:
2005-10-17 16:23:56 MSD
Size:
4.90 KB
patch
obsolete
>diff -Naur alterator-printers-3.3/ui.orig/printers_connection.scm alterator-printers-3.3/ui/printers_connection.scm >--- alterator-printers-3.3/ui.orig/printers_connection.scm 2005-10-05 17:26:28 +0400 >+++ alterator-printers-3.3/ui/printers_connection.scm 2005-10-17 15:37:02 +0400 >@@ -5,9 +5,9 @@ > > (on-next > (case (printer-location current) >- ((0) (goto "/printers/local" 'printer-name (printer-name text))) >+ ((0) (goto "/printers/local" 'printer-name (printer-name text) 'printer-description (printer-description text) )) > ((1) (run-dialog `(/information message ,(_ "Not Implemented yet")))) >- ((2) (goto "/printers/samba" 'printer-name (printer-name text))) >+ ((2) (goto "/printers/samba" 'printer-name (printer-name text) 'printer-description (printer-description text) )) > (else > (run-dialog '(/error reason (_ "Strange choise")))))) > >@@ -18,6 +18,9 @@ > (id 'printer-name (edit (or (global 'printer-name) "") > (on-change > (next-button enabled (not-empty-string? (printer-name text))))))) >+ (hbox spacing 1 >+ (label (_ "Printer description:")) >+ (id 'printer-description (edit (or (global 'printer-description) "")))) > (label (_"Select printer connection:")) > (id 'printer-location (listbox > sizepolicy '(expanding . fixed) >diff -Naur alterator-printers-3.3/ui.orig/printers_local.scm alterator-printers-3.3/ui/printers_local.scm >--- alterator-printers-3.3/ui.orig/printers_local.scm 2005-08-30 20:09:06 +0400 >+++ alterator-printers-3.3/ui/printers_local.scm 2005-10-17 15:38:14 +0400 >@@ -2,7 +2,8 @@ > > (include-as-is "/dialog/functions") > >-(on-prev (goto "/printers/connection" 'printer-name (printer-name))) >+(on-prev (goto "/printers/connection" 'printer-name (printer-name) >+ 'printer-description (global 'printer-description))) > (on-next > (and > (create-printer) >@@ -11,6 +12,7 @@ > 'prev_url "/printers/local" > 'connection-type "Local" > 'printer-name (printer-name) >+ 'printer-description (global 'printer-description) > 'auto-vendor (or (cond-car vendor-model) "") > 'auto-model (or (cond-cadr vendor-model) ""))))) > >@@ -63,7 +65,8 @@ > (woo-catch > (lambda() > (woo-new (string-append "/cups/printers/" (printer-name)) >- 'local-port (device-name)) >+ 'description (global 'printer-description) >+ 'local-port (device-name)) > #t) > (lambda(reason) > (run-dialog '("/printers/error"))))) >diff -Naur alterator-printers-3.3/ui.orig/printers_samba.scm alterator-printers-3.3/ui/printers_samba.scm >--- alterator-printers-3.3/ui.orig/printers_samba.scm 2005-07-20 16:30:31 +0400 >+++ alterator-printers-3.3/ui/printers_samba.scm 2005-10-17 15:36:45 +0400 >@@ -2,12 +2,14 @@ > > (include-as-is "/dialog/functions") > >-(on-prev (goto "/printers/connection" 'printer-name (printer-name))) >+(on-prev (goto "/printers/connection" 'printer-name (printer-name) >+ 'printer-description (global 'printer-description))) > > (on-next (and (create-printer) > (goto "/printers/vendor" > 'prev_url "/printers/samba" > 'printer-name (printer-name) >+ 'printer-description (global 'printer-description) > 'smb-host (smb-host text) > 'smb-share (smb-share text) > 'smb-user (smb-user text) >@@ -38,7 +40,7 @@ > (define (create-printer) > (woo-catch > (lambda() >- (apply woo-new (cmd-printer-name) (command-options))) >+ (apply woo-new (cmd-printer-name) 'description (global 'printer-description) (command-options))) > on-create-error)) > > (define (get-smb-host) >diff -Naur alterator-printers-3.3/ui.orig/printers_summary.scm alterator-printers-3.3/ui/printers_summary.scm >--- alterator-printers-3.3/ui.orig/printers_summary.scm 2005-07-20 16:30:31 +0400 >+++ alterator-printers-3.3/ui/printers_summary.scm 2005-10-17 15:32:38 +0400 >@@ -7,6 +7,7 @@ > > (on-prev (goto "/printers/vendor" > 'printer-name (global 'printer-name) >+ 'printer-description (global 'printer-description) > 'prev_url (global 'prev_url) > 'smb-host (global 'smb-host) > 'smb-share (global 'smb-share) >diff -Naur alterator-printers-3.3/ui.orig/printers_vendor.scm alterator-printers-3.3/ui/printers_vendor.scm >--- alterator-printers-3.3/ui.orig/printers_vendor.scm 2005-08-30 20:09:06 +0400 >+++ alterator-printers-3.3/ui/printers_vendor.scm 2005-10-17 15:32:08 +0400 >@@ -6,6 +6,7 @@ > > (on-prev (goto (global 'prev_url) > 'printer-name (global 'printer-name) >+ 'printer-description (global 'printer-description) > 'prev_url (global 'prev_url) > 'smb-host (global 'smb-host) > 'smb-share (global 'smb-share) >@@ -18,6 +19,7 @@ > 'model-name (string-append (vendors text) " " (models text)) > > 'printer-name (global 'printer-name) >+ 'printer-description (global 'printer-description) > 'prev_url (global 'prev_url) > 'smb-host (global 'smb-host) > 'smb-share (global 'smb-share)
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 8279
: 1198