bugDenemo - Bugs: bug #30189, Zoom +10 or Zoom -10 as keybindings

 
 

bug #30189: Zoom +10 or Zoom -10 as keybindings

Submitter:  -Deleted Account- <steele>
Submitted:  Mon 21 Jun 2010 08:02:44 PM UTC
   
 
Category:  Feature request Severity:  1 - Wish
Item Group:  None Status:  Fixed
Privacy:  Public Assigned to:  steele
Originator Name:  Open/Closed:  Closed
* Mandatory Fields

Add a New Comment Rich Markup
   

Jump to the original submission

Mon 06 Dec 2010 10:36:09 AM UTC, comment #6: 

Created keyboard bindings without scheme workarounds. Now in git.

-Deleted Account- <steele>
Wed 14 Jul 2010 10:11:51 PM UTC, comment #5: 

Oh, I forgot that the mousewheel already does this with control held down.  Maybe just bind the same command for the mousewheel to ctrl+ plus, ctrl+ minus.  Or have it listed in with the traditional commands.  I didn't see it there.  Might as well close this issue as fixed.  Only tweak that might be nice is to put the ZoomDialog scale factor shown in the dialog box to the actual current zoom level.
-Dan W.

Anonymous
Tue 13 Jul 2010 11:53:14 PM UTC, comment #4: 

This has a very strange quirk.
Namely, if you open up denemo, and ZoomIn quite a few times, then ZoomOut, it jarringly returns to below 100%.  Somehow the first time each of these 2 commands is executed, it still thinks that ZoomFactor is 1.  After they've each executed, then they're fine.  I guess the initialization script is running whenever each command is executed first.  I'd like to have it just run once for the whole Zoom submenu.  I don't know how this works though.
-Dan W.

Anonymous
Tue 13 Jul 2010 11:42:57 PM UTC, comment #3: 

I should say, slightly tweaked the Set Display Scale.  Definitely did not rewrite it!
-Dan W.

Anonymous
Tue 13 Jul 2010 11:40:29 PM UTC, comment #2: 

I've made a couple of commands and an init script with a scheme global variable that holds the current zoom level.  Zoom in zooms in by a factor of 1.1; zoom out by 10/11, i.e. ~91%, so that zooming in then out cancel out.  I rewrote the basic Set Display Scale script as well.
These all seem to work together nicely.

Init Script for Zoom Menu:

(define ZoomFactor 1)
(d-Zoom ZoomFactor)
(d-RefreshDisplay)

Zoom Out:

(set! ZoomFactor (* ZoomFactor (/ 10 11)))
(d-Zoom ZoomFactor)
(d-RefreshDisplay)


Zoom In:
(set! ZoomFactor (* ZoomFactor 1.1))
(d-Zoom ZoomFactor)
(d-RefreshDisplay)

SetDisplayScale:

(let ((scale "100"))
(set! scale (d-GetUserInput "Scale Display" "Give % scaling required" (number->string (* 100 ZoomFactor))))
(if (string? scale)
(begin
(set! scale (/ (string->number scale) 100.0))
(format #t "Scaling by ~A~%" scale)
(if (d-Zoom scale) (set! ZoomFactor scale))
(d-RefreshDisplay);;;FIXME refresh display without marking score as changed?
)))

-Dan W.

(file #20964, file #20965, file #20966, file #20967)

Anonymous
Thu 01 Jul 2010 08:56:49 PM UTC, comment #1: 

Also it would be nicer if, when you go to Set Display Scale, instead of always showing 100% as default, show the current zoom factor, so you know where you are.
-Dan

Anonymous
Mon 21 Jun 2010 08:02:44 PM UTC, original submission:  

Create a command that zooms stepwise so it can be used with ctrl+[+] or ctrl+[-] (a standard way) or whatever else...

-Deleted Account- <steele>

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

Attached Files
file #20964:  init.scm added by None (63B - application/octet-stream)
file #20965:  ZoomDialog added by None (737B - application/octet-stream)
file #20966:  ZoomIn added by None (411B - application/octet-stream)
file #20967:  ZoomOut added by None (419B - application/octet-stream)

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by steele (Submitted the item)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 6 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2010-12-06 steele StatusNone Fixed
        Open/ClosedOpen Closed
    2010-07-13 None Attached File- Added init.scm, #20964
        Attached File- Added ZoomDialog, #20965
        Attached File- Added ZoomIn, #20966
        Attached File- Added ZoomOut, #20967

    Back to the top

    Powered by Savane 3.13-d3ae.
    Corresponding source code