equal
deleted
inserted
replaced
6806 "return an interface specs literal encoding. |
6806 "return an interface specs literal encoding. |
6807 Notice - Dialog should be moved under AppModel so this becomes obsolete." |
6807 Notice - Dialog should be moved under AppModel so this becomes obsolete." |
6808 |
6808 |
6809 |displayDevice displayDeviceType app modifiedKey| |
6809 |displayDevice displayDeviceType app modifiedKey| |
6810 |
6810 |
|
6811 "/ this code is so ugly... |
6811 displayDevice := (Screen current) ? Screen default. |
6812 displayDevice := (Screen current) ? Screen default. |
6812 displayDevice notNil ifTrue:[ |
6813 displayDevice notNil ifTrue:[ |
6813 displayDeviceType := displayDevice deviceType. |
6814 displayDeviceType := displayDevice deviceType. |
6814 displayDeviceType notNil ifTrue:[ |
6815 displayDeviceType notNil ifTrue:[ |
6815 modifiedKey := (aKey , '_' , displayDeviceType) asSymbolIfInterned. |
6816 modifiedKey := (aKey , '_' , displayDeviceType) asSymbolIfInterned. |
6914 ! ! |
6915 ! ! |
6915 |
6916 |
6916 !DialogBox class methodsFor:'documentation'! |
6917 !DialogBox class methodsFor:'documentation'! |
6917 |
6918 |
6918 version |
6919 version |
6919 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.167 2001-06-22 15:50:06 cg Exp $' |
6920 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.168 2001-06-22 15:50:29 cg Exp $' |
6920 ! ! |
6921 ! ! |
6921 DialogBox initialize! |
6922 DialogBox initialize! |