equal
deleted
inserted
replaced
4217 !FileBrowser methodsFor:'misc user interaction'! |
4217 !FileBrowser methodsFor:'misc user interaction'! |
4218 |
4218 |
4219 closeRequest |
4219 closeRequest |
4220 "exit FileBrowser" |
4220 "exit FileBrowser" |
4221 |
4221 |
4222 (self askIfModified:'contents has not been saved.\\Modifications will be lost when FileBrowser is closed.' |
4222 (self askIfModified:'Contents has not been saved.\\Modifications will be lost when FileBrowser is closed.' |
4223 yesButton:'close') |
4223 yesButton:'Close') |
4224 ifTrue:[ |
4224 ifTrue:[ |
4225 "/ self windowGroup closeDownViews. |
4225 "/ self windowGroup closeDownViews. |
4226 super closeRequest |
4226 super closeRequest |
4227 ] |
4227 ] |
4228 |
4228 |
4229 "Created: / 3.8.1998 / 19:55:06 / cg" |
4229 "Created: / 3.8.1998 / 19:55:06 / cg" |
4230 "Modified: / 4.8.1998 / 18:21:03 / cg" |
4230 "Modified: / 4.8.1998 / 18:21:03 / cg" |
4231 ! |
4231 ! |
7324 ! ! |
7324 ! ! |
7325 |
7325 |
7326 !FileBrowser class methodsFor:'documentation'! |
7326 !FileBrowser class methodsFor:'documentation'! |
7327 |
7327 |
7328 version |
7328 version |
7329 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.422 2001-10-01 08:23:07 cg Exp $' |
7329 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.423 2001-10-02 18:11:33 cg Exp $' |
7330 ! ! |
7330 ! ! |