Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1731 -r1742
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1731)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1742)
@@ -82,6 +82,7 @@
 <MenuItem Name="GetLatest" />
 <MenuItem Name="Reload File" />
 <MenuItem Name="Revert File" />
+<MenuItem Name="Changed Classes" />
 <MenuItem Name="Synchronize All" />
 <MenuItem Name="Synchronize Changes" />
 <MenuItem Name="Compile All" />
@@ -160,8 +161,11 @@
 	} elseif tMenu="check" {
 		do ..SubversionCheck(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="revert" {
-		do ..SubversionRevert(.InternalName,.Action,.Target,.Msg,.Reload)
-	} elseif tMenu="status" {
+		if $length(InternalName) {
+			set Action = 1
+			set Target = "Revert file "_InternalName
+		}
+	} elseif tMenu="changed" {
 	    do ..SubversionStatus(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="synchronize" {
 		if tMenu(2)[ "changes" do ..SubversionSynchronizeChanges(.InternalName,.Action,.Target,.Msg,.Reload)
@@ -181,7 +185,7 @@
 		}		
 	} elseif tMenu="reload" {
 		if $length(InternalName) {
-			#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
+			set Repo = ..svnHelper.GeefRepository(InternalName)
 			if $IsObject(Repo) {
 				set Action = 1
 				set Target = "Reload file "_InternalName_" from "_Repo.ExternalName(InternalName)_"?"
@@ -424,21 +428,7 @@
 
 <Method name="SubversionStatus">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
-<Implementation><![CDATA[
-	set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-	set tCmd.SubCommand="status"
-	if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
-	set Action=2
-	set tCmd.File=$case(InternalName,"":"",:..svnHelper.ExternalName(InternalName,$$$FULLPATH))
-	set tSC=tCmd.%Save()
-	set ..Cmd=tCmd.GUID
-	if $System.Status.IsError(tSC) {
-		$$$CHECKSTATUS
-	} else {
-		set Target="/csp/"_..tNsp_"/svn.ui.zen.Status.cls?AC="_tCmd.GUID
-		// DK 2.11
-		set:'tIsPopupMenu Target=Target_"&UF=1"
-	}
+<Implementation><![CDATA[	do ##class(svn.StudioHook.StatusDisplay).%New().Display()
 ]]></Implementation>
 </Method>
 
@@ -699,6 +689,10 @@
 			if Answer=1 {
 				Do ..SubversionSynchronizeFile(InternalName)	
 			}
+		} elseif tMenu="revert" {
+			if Answer=1 {
+				Do ..SubversionRevert(InternalName)	
+			}
 		} elseif tMenu="import" {
 			// try to create repository folders automatically
 			for i="branches","tags" {