Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :geb-gui)

2

3

(define-display-clim-command (com-quit :name t) ()

4

(frame-exit *application-frame*))

5

6

(define-display-clim-command (com-redisplay :name t) ()

7

(redisplay-frame-panes *application-frame* :force-p t))

8

9

(define-display-clim-command (com-swap :name t) ()

10

(setf (graph-p *application-frame*)

11

(not (graph-p *application-frame*)))

12

(redisplay-frame-panes *application-frame* :force-p t))

13

14

(define-display-clim-command (com-dot :name t) ()

15

(setf (dot-p *application-frame*)

16

(not (dot-p *application-frame*)))

17

(redisplay-frame-panes *application-frame* :force-p t))