equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2001 by eXept Software AG |
4 COPYRIGHT (c) 2001 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2333 "Modified: / 20-04-2005 / 11:57:59 / cg" |
2335 "Modified: / 20-04-2005 / 11:57:59 / cg" |
2334 ! |
2336 ! |
2335 |
2337 |
2336 canAddBookmark |
2338 canAddBookmark |
2337 |
2339 |
2338 | ws file | |
2340 | ws | |
2339 |
2341 |
2340 ws := self selectedWorkspace scrolledView. |
2342 ws := self selectedWorkspace scrolledView. |
2341 ^ws isTextView ifTrue:[ |
2343 ws isTextView ifFalse:[^ true]. |
2342 file := ws defaultFileNameForFileDialog. |
2344 |
2343 file notNil. |
2345 ^ ws defaultFileNameForFileDialog notNil. |
2344 ] ifFalse:[ |
|
2345 true |
|
2346 ] |
|
2347 |
2346 |
2348 "Created: / 20-06-2011 / 22:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2347 "Created: / 20-06-2011 / 22:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2349 ! |
2348 ! |
2350 |
2349 |
2351 isSQLWorkspaceAvailable |
2350 isSQLWorkspaceAvailable |