(when (member (player-state player) '(:starting :playing))
(setf (game-player-index game) j
(player-state player) :ready)
- (player-turn-begin game player)
+ (glib:idle-add (lambda () (player-turn-begin game player) nil))
(changed game :start-turn :player player)
(return))))))
(setf (player-score player) 0
(player-state player) (if (zerop i) :ready :starting))))
(setf (game-player-index game) 0)
- (changed game :refresh))
+ (changed game :refresh)
+ (glib:idle-add (lambda () (player-turn-begin game (aref players 0)) nil)))
;;;--------------------------------------------------------------------------
;;; Snapshots and undo.
(gtk:signal-connect renderer :edited
(lambda (path new-text)
(setf (gtk:tree-model-value
- players
- path
- 'name)
+ players path 'name)
new-text))))
+
(gtk:signal-connect view :row-activated
(lambda (path column)
(when (eql (position column