--- a/DialogBox.st	Thu Jul 25 18:12:19 2002 +0200
+++ b/DialogBox.st	Thu Jul 25 18:39:04 2002 +0200
@@ -7416,22 +7416,10 @@
     "return an interface specs literal encoding.
      Notice - Dialog should be moved under AppModel so this becomes obsolete."
 
-    |displayDevice displayDeviceType modifiedKey|
-
-    "/ this code is so ugly...
-    displayDevice := (Screen current) ? Screen default.
-    displayDevice notNil ifTrue:[
-        displayDeviceType := displayDevice deviceType.
-        displayDeviceType notNil ifTrue:[
-            modifiedKey := (aKey , '_' , displayDeviceType) asSymbolIfInterned.
-            modifiedKey notNil ifTrue:[
-                (self respondsTo:modifiedKey) ifTrue:[
-                    ^ self perform:modifiedKey
-                ]
-            ]
-        ]
-    ].
-    ^ (self perform:aKey)
+    ^ ApplicationModel
+        specificationFor:aKey 
+        application:self
+        onDevice:(self graphicsDevice)
 ! !
 
 !DialogBox methodsFor:'user actions'!
@@ -7551,6 +7539,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.193 2002-07-15 12:03:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.194 2002-07-25 16:39:04 ca Exp $'
 ! !
 DialogBox initialize!