--- a/ApplicationModel.st	Fri Jun 08 18:14:54 2001 +0200
+++ b/ApplicationModel.st	Tue Jun 12 15:28:33 2001 +0200
@@ -1932,6 +1932,18 @@
     "Created: 14.2.1997 / 20:20:55 / cg"
 !
 
+openWithExtent:extPoint
+    "open a standard interface with given extent"
+
+    |bldr|
+
+    bldr := self allButOpen.
+    bldr openWithExtent:extPoint.
+    ^ bldr
+
+    "Modified: 3.5.1996 / 13:39:15 / cg"
+!
+
 postApplicationProcessCreate:newProcess windowGroup:newGroup
     "this is sent whenever a new application is launched from this app, 
      which forks its own windowGroup process. Allows for process group management,
@@ -2462,6 +2474,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.154 2001-03-06 12:42:04 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.155 2001-06-12 13:28:33 cg Exp $'
 ! !
 ApplicationModel initialize!