RE: MS Windows : Page Setup Dialog calculates wrong margins

Are you able to build XEmacs yourself? I have a candidate fix, but I'm not sure whether its right or not. andy --- device-msw.c~ Tue Mar 26 22:04:20 2002 +++ device-msw.c Thu Mar 28 08:25:08 2002 ＠＠ -874,7 +874,10 ＠＠ memset (&pd, 0, sizeof (pd)); pd.lStructSize = sizeof (pd); pd.hwndOwner = mswindows_get_selected_frame_hwnd (); - pd.Flags = PSD_MARGINS; + /* Although we happily figure out whether the dialog uses inches + or mm, most of the default settings assume inches. Its easier + therefore to deal only in inches. */ + pd.Flags = PSD_MARGINS | PSD_INTHOUSANDTHSOFINCHES; pd.rtMargin.left = plist_get_margin (plist, Qleft_margin); pd.rtMargin.top = plist_get_margin (plist, Qtop_margin); pd.rtMargin.right = plist_get_margin (plist, Qright_margin); > -----Original Message----- > From: xemacs-beta-admin(a)xemacs.org > [mailto:xemacs-beta-admin＠xemacs.org]On Behalf Of Falser Klaus > Sent: Friday, March 08, 2002 4:20 AM > To: &#39;xemacs-beta(a)xemacs.org&#39; > Subject: MS Windows : Page Setup Dialog calculates wrong margins > > > Dear Bug Team! > > When setting the margins from the Page Setup dialog wrong values for the > margins in > default-msprinter-frame-plist are calculated. The reason is probabely my > localized > Printer setup dialog from my german Windows 2000, which shows the > values in > millimeters. > > Setting the values in the .init file with > > (setq default-msprinter-frame-plist '(bottom-margin 567 right-margin 567 > top-margin 567 > left-margin 567 height nil width nil)) > > seems to work correctly but as soon I touch the values in the dialog the > margins are > distorted and no printing is possible since the following message will be > generated. > > "Print area is ouside of the printer's hardware printable area" > > >From my investigation it seems that the entered values are divided > erroneously by 10. > > Best regards > > Falser Klaus > R&D Electronics Department > Company : Durst Phototechnik AG > Vittorio Veneto Str. 59 > I-39042 Brixen > Voice : +0472/810235 >: +0472/810111 > FAX : +0472/830980 > Email : kfalser(a)durst.it > > ================================================================ > > System Info to help track down your bug: > --------------------------------------- > > OS version: Microsoft Windows 2000 [Version 5.00.2195] OS: Windows_NT > XEmacs 21.4.6 \"Common Lisp (Windows [1])\" configured for > `i586-pc-win32'. Building XEmacs in > \"f:\\xemacs\\xemacs-21.4-release\\nt\". Using compiler \"cl > -nologo -W3 > -O2 -G5 -ML\". Installing XEmacs in \"c:\\Program > Files\\XEmacs\\XEmacs-21.4.6\". Package path is > \"~\\.xemacs;;c:\\Program > Files\\XEmacs\\site-packages;c:\\Program > Files\\XEmacs\\xemacs-packages\". > Compiling in support for Microsoft Windows native GUI. Compiling in > support for XPM images. Compiling in support for GIF images. > Compiling > in support for PNG images. Compiling in support for TIFF images. > Compiling in support for JPEG images. Compiling in support for X-Face > message headers. Compiling in support for toolbars. Compiling in > support for dialogs. Compiling in support for widgets. Compiling in > support for native sounds. Compiling in fast dired implementation. > Using minimal tagbits. Using indexed lrecord implementation. Using > portable dumper. > > Load-Path Lisp Shadows: > ---------------------- > (c:\Programme\XEmacs\xemacs-packages\lisp\ps-print\ps-print > c:\Programme\XEmacs\xemacs-packages\lisp\ps-print-nomule\ps-print) > > > Installed XEmacs Packages: > ------------------------- > > ((zenirc:version 1.13 :type regular) > (xslt-process :version 1.06 :type regular) > (xemacs-devel :version 1.4 :type single-file) > (xemacs-base :version 1.57 :type regular) > (w3 :version 1.21 :type regular) > (vm :version 7.02 :type regular) > (viper :version 1.31 :type regular) > (view-process :version 1.11 :type regular) > (vhdl :version 1.15 :type regular) > (vc-cc :version 1.18 :type regular) > (vc :version 1.3 :type regular) > (tramp :version 1.01 :type regular) > (tpu :version 1.12 :type regular) > (tooltalk :version 1.13 :type regular) > (tm :version 1.3 :type regular) > (time :version 1.11 :type regular) > (textools :version 1.12 :type regular) > (text-modes :version 1.36 :type single-file) > (texinfo :version 1.2 :type regular) > (supercite :version 1.19 :type regular) > (strokes :version 1.08 :type regular) > (speedbar :version 1.22 :type regular) > (sounds-wav :version 1.1 :type regular) > (sounds-au :version 1.1 :type regular) > (slider :version 1.13 :type regular) > (sieve :version 1.01 :type regular) > (sh-script :version 1.13 :type regular) > (sgml :version 1.08 :type regular) > (semantic :version 1.11 :type regular) > (scheme :version 1.11 :type regular) > (rmail :version 1.13 :type regular) > (reftex :version 1.24 :type regular) > (psgml :version 1.26 :type regular) > (ps-print-nomule :version 1.05 :type regular) > (ps-print :version 1.02 :type regular) > (prog-modes >:version > 1 > .49 >:type > single-file) > (pcomplete :version 1.01 :type regular) > (pcl-cvs :version 1.57 :type regular) > (pc :version 1.21 :type single-file) > (os-utils :version 1.26 :type single-file) > (net-utils :version 1.23 :type single-file) > (misc-games :version 1.15 :type single-file) > (mine :version 1.14 :type regular) > (mh-e :version 1.14 :type regular) > (mew :version 1.16 :type regular) > (mailcrypt :version 2.11 :type regular) > (mail-lib :version 1.42 :type regular) > (jde :version 1.31 :type regular) > (ispell :version 1.24 :type regular) > (ilisp :version 1.2 :type regular) > (igrep :version 1.08 :type regular) > (idlwave :version 1.24 :type regular) > (hm--html-menus :version 1.17 :type regular) > (gnus :version 1.58 :type regular) > (gnats :version 1.13 :type regular) > (games :version 1.13 :type regular) > (fsf-compat :version 1.09 :type single-file) > (frame-icon :version 1.09 :type regular) > (forms :version 1.14 :type regular) > (footnote :version 1.13 :type regular) > (eudc :version 1.35 :type regular) > (eterm :version 1.13 :type regular) > (eshell :version 1.02 :type regular) > (emerge :version 1.09 :type regular) > (elib :version 1.1 :type single-file) > (eieio :version 1.02 :type regular) > (eicq :version 1.05 :type regular) > (efs :version 1.27 :type regular) > (edt :version 1.12 :type regular) > (edit-utils :version 1.75 :type single-file) > (ediff :version 1.35 :type regular) > (edebug :version 1.14 :type regular) > (dired :version 1.11 :type regular) > (dictionary :version 1.06 :type regular) > (debug :version 1.14 :type regular) > (crisp :version 1.12 :type regular) > (cookie :version 1.13 :type regular) > (clearcase :version 1.02 :type regular) > (cc-mode :version 1.27 :type regular) > (calendar :version 1.18 :type regular) > (calc :version 1.18 :type regular) > (c-support :version 1.16 :type single-file) > (build :version 1.05 :type regular) > (bbdb :version 1.17 :type regular) > (auctex :version 1.29 :type regular) > (apel :version 1.2 :type regular) > (ada :version 1.1 :type regular) > (Sun :version 1.13 :type regular)) > > > Features: > -------- > > (mail-abbrevs xemacsbug shadow sendmail rfc822 cc-mode cc-align > cc-cmds cc-engine cc-styles cc-langs cc-vars wid-edit cc-menus imenu > cc-defs efs-cu font disp-table lazy-lock font-lock paren blink-paren > vhdl-mode cus-face regexp-opt hippie-exp compile assoc recent-files > zenirc-autoloads xslt-process-autoloads xemacs-devel-autoloads > xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads > view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads > tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads > time-autoloads textools-autoloads text-modes-autoloads > texinfo-autoloads supercite-autoloads strokes-autoloads > speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads > slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads > semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads > psgml-autoloads ps-print-nomule-autoloads ps-print-autoloads > prog-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads > pc-autoloads os-utils-autoloads net-utils-autoloads > misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads > mailcrypt-autoloads mail-lib-autoloads jde-autoloads ispell-autoloads > ilisp-autoloads igrep-autoloads idlwave-autoloads > hm--html-menus-autoloads gnus-autoloads gnats-autoloads > games-autoloads fsf-compat-autoloads frame-icon-autoloads > forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads > eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads > eicq-autoloads efs-autoloads edt-autoloads edit-utils-autoloads > ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads > debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads > cc-mode-autoloads calendar-autoloads calc-autoloads > c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads > apel-autoloads ada-autoloads Sun-autoloads lisp-autoloads loadhist > auto-show fontl-hooks code-cmds gutter-items menubar-items x-menubar > dragdrop mode-motion mouse itimer auto-save lisp-mode easymenu > iso8859-1 page buff-menu lib-complete help-nomule cus-file derived > frame text-props obsolete cus-start custom widget cl-extra mini-cl cl > cl-19 packages backquote very-early-lisp file-coding > mswindows-scrollbars mswindows toolbar native-sound scrollbar > network-streams subprocesses menu-accelerator-support menubar md5 > xemacs gutter tiff png gif jpeg xface xpm xbm lisp-float-type > windows-nt dragdrop-api dialog devices window-system base64) > > > Recent keystrokes: > ----------------- > > up up up up up up up up up up up up up up up up up > up up up up up up up up up up up up up up button1 button1up > misc-user next down down down down down down down down > down down down down down down down down down down down > down down down down down down down down down down down > down down down down down down down down down down down > down down down down down down down down down down down > down up up up up up up up up misc-user button1 button1up > misc-user > > > Recent messages (most recent first): > ----------------------------------- > > Loading xemacsbug...done > Loading xemacsbug... > Matches: for (motor = 0; motor < 3; motor++) { > C-` not defined. > C-x button1 not defined. > Wrote C:\Projekte\INKJET\I186\i186ucos\testing.c > f4 not defined. > Wrote C:\Projekte\INKJET\I186\i186ucos\testing.c > Wrote C:\Projekte\INKJET\I186\i186ucos\stepper.h > Wrote C:\Projekte\INKJET\I186\i186ucos\stepper.h > Matches: SetBackEncoder(OnOffType NewState) { > Matches: switch(QueryPrintMode()) { > Wrote C:\Projekte\INKJET\I186\i186ucos\stepper.c > Matches: SetFrontEncoder(OnOffType NewState) { > Matches: switch(QueryPrintMode()) { > Matches: switch(QueryPrintMode()) { > Wrote C:\Projekte\INKJET\I186\i186ucos\stepper.c > Wrote C:\Projekte\INKJET\I186\i186ucos\stepper.c > Wrote C:\Projekte\INKJET\I186\i186ucos\paper.c > Matches: if ( > >