Another try on #189

GemTalk · Sep 18, 2018 · 8942f4c · 8942f4c
1 parent 8ea256c
commit 8942f4c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/sources/RowanTranscript.cls b/sources/RowanTranscript.cls
@@ -33,12 +33,15 @@ isTranscriptInstalled
 	^isTranscriptInstalled value!
 
 onViewOpened
+	| answeringService installed |
 	super onViewOpened.
 	projectListPresenter
 		gciSession: gciSession;
 		browseProjects.
-	"reset colors on login" 
-	JadeTextStyles default resetColors.!
+	JadeTextStyles default resetColors.	"reset colors on login"
+	answeringService := RowanAnsweringService new.
+	installed := answeringService isTranscriptInstalledIn: self gciSession.
+	isTranscriptInstalled value: installed!
 
 openDictionaryBrowser
 	gciSession hasServer ifTrue: [^RowanSystemBrowser showOnSession: gciSession]!