Iconifying screens

Thread View: gnu.epoch.misc

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by David Disser Mon, 03 Jun 1991 21:57

#1861

Author: David Disser
Date: Mon, 03 Jun 1991 21:57

19 lines
1231 bytes

I'd like to be able to iconify all my Epoch screens at once by iconifying
the minibuffer.  I'm trying this code:

(defun handle-iconify-event (type event screen)
  (if (eq event nil)
      (if (eq screen (epoch::minibuf-screen))
	  (while (epoch::iconify-screen (epoch::next-screen))))
    (on-event::handler type event screen)))
(push-event 'map 'handle-iconify-event)

When I iconify the minibuffer, all my screens close, but the last one
cycles mapped and unmapped ad infinitum.  Any suggestions?

--

)  Dave Disser                  CAEN User Services
)  disser@engin.umich.edu       229 Chrysler Center   
)                               Ann Arbor, MI 48109-2092

Iconifying screens

#1862

Author: Ron M. Shapiro
Date: Tue, 04 Jun 1991 10:45

18 lines
1115 bytes

This code will iconify/restore all Epoch screens when minibuffer is iconified
or restored:

(on-unmap-do (minibuf-screen) 'my-unmap-func)

(on-map-do (minibuf-screen) 'my-map-func)

(defun my-unmap-func (screen)
  (on-unmap-do (minibuf-screen) 'my-unmap-func) ;one-shot so re-install
  (mapcar 'iconify-screen (screen-list)))

(defun my-map-func (screen)
  (on-map-do (minibuf-screen) 'my-map-func) ;one-shot so re-install
  (mapcar 'map-screen (reverse (screen-list t))))

Enjoy!

Ron Shapiro

Re: Iconifying screens

#1863

Author: Alan M. Carroll
Date: Tue, 04 Jun 1991 13:31

18 lines
1544 bytes

In article <DISSER.91Jun3165703@koko.engin.umich.edu>, disser@engin.umich.edu (David Disser) writes:
> 	  (while (epoch::iconify-screen (epoch::next-screen))))
>
> When I iconify the minibuffer, all my screens close, but the last one
> cycles mapped and unmapped ad infinitum.  Any suggestions?

The problem is that if there are no screens mapped, (next-screen) will
return nil, which when passed to (iconify-screen) will assume you mean
the current screen. Calling (iconify-screen) on an iconified screen
will un-iconify the screen. I would recommend using (screen-list), and
iterating through that, e.g.

(mapcar 'iconify-screen (screen-list))

-- 
Alan M. Carroll          <-- Another casualty of applied metaphysics
Epoch Development Team   
Urbana Il.               "I hate shopping with the reality-impaired" - Susan

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads