# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1479430732 0
# Node ID 4e284e3b3afff2ddf297d73a357c4825e3cd7191
# Parent  e6a45e9d98691e1267f95945a9dc87036057af1d
Cleanup

diff -r e6a45e9d9869 -r 4e284e3b3aff src/debugger.lisp
--- a/src/debugger.lisp	Fri Nov 18 00:56:05 2016 +0000
+++ b/src/debugger.lisp	Fri Nov 18 00:58:52 2016 +0000
@@ -104,11 +104,9 @@
 
 ;;;; Model --------------------------------------------------------------------
 (defparameter *font* (q+:make-qfont "Menlo" 12))
-(defparameter *font2* (q+:make-qfont "Menlo" 12))
 
 (define-widget disassembly-model (QAbstractTableModel)
-  ((data :accessor model-data :initarg :data :initform *test*)
-   (chip :accessor model-chip :initarg :chip)))
+  ((chip :accessor model-chip :initarg :chip)))
 
 (define-override (disassembly-model column-count) (index)
   (declare (ignore index))
@@ -145,9 +143,7 @@
       (q+:make-qvariant)
       (qtenumcase role
         ((q+:qt.display-role) (get-contents disassembly-model row col))
-        ((q+:qt.font-role) (case col
-                             (3 *font2*)
-                             (t *font*)))
+        ((q+:qt.font-role) *font*)
         ((q+:qt.text-alignment-role) (case col
                                        (0 #x0082)
                                        (1 #x0084)