--- a/BrowserView.st	Mon Dec 15 11:38:44 1997 +0100
+++ b/BrowserView.st	Fri Dec 19 13:32:39 1997 +0100
@@ -6743,36 +6743,43 @@
     |class box list|
 
     currentClass notNil ifTrue:[
-	class := Smalltalk classNamed:aClassName.
-	class isBehavior ifFalse:[
-	    self warn:'no class named %1' with:aClassName.
-	    ^ self
-	].
-
-	showInstance ifFalse:[
-	    class := class class
-	].
-
-	"show enterbox for category to copy from"
-
-	list := class categories asOrderedCollection sort.
-	list addFirst:'*'.
-
-	box := self 
-		enterBoxTitle:'name of category to copy from (matchpattern allowed, * for all):'
-		okText:'copy'
-		label:(resources string:'copy methods from %1' with:aClassName)
-		list:list.
-
-	box open.
-	box accepted ifTrue:[
-	    self 
-		copyMethodsFromClass:class 
-		category:(box aspectFor:#fieldValue) value
-	]
+        class := Smalltalk classNamed:aClassName.
+        class isBehavior ifFalse:[
+            self warn:'no class named %1' with:aClassName.
+            ^ self
+        ].
+        class isLoaded ifFalse:[
+            (self confirm:(class name , ' is an autoloaded class.\I can only copy categories if it is loaded first.\\Load the class now?') withCRs)
+            ifTrue:[
+                class autoload
+            ]
+        ].        
+
+        showInstance ifFalse:[
+            class := class class             
+        ].
+
+        "show enterbox for category to copy from"
+
+        list := class categories asOrderedCollection sort.
+        list addFirst:'*'.
+
+        box := self 
+                enterBoxTitle:'name of category to copy from (matchpattern allowed, * for all):'
+                okText:'copy'
+                label:(resources string:'copy methods from %1' with:aClassName)
+                list:list.
+
+        box open.
+        box accepted ifTrue:[
+            self 
+                copyMethodsFromClass:class 
+                category:(box aspectFor:#fieldValue) value
+        ]
     ]
 
-    "Modified: 16.1.1997 / 20:15:51 / cg"
+    "Modified: / 16.1.1997 / 20:15:51 / cg"
+    "Modified: / 19.12.1997 / 12:27:42 / stefan"
 !
 
 copyMethodsFromClass:class category:category
@@ -11169,6 +11176,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.352 1997-12-11 12:36:57 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.353 1997-12-19 12:32:39 stefan Exp $'
 ! !
 BrowserView initialize!