Hi!
There is a small adjustment that needs to be done so that the command
CloseSource to run properly. I am posting here the diff of the code
snippet changed to avoid having to post all your content ... If you
can not take this diff let me know that I send you the full sources of
functions updated.
Regards,
Vailton Renato
@@ -735,6 +735,7 @@
IF !::aTabs[ nTab, TAB_QDOCUMENT ]:isModified()
* File has not changed, ignore the question to User
+ lSave := .F.
ELSEIF lCanCancel
n := GetYesNoCancel( ::aTabs[ nTab, TAB_OTAB ]:Caption, ;
"Has been modified, save this source?", 'Save?' )
@@ -772,10 +773,6 @@
* Finally now we will close all tabs.
DO WHILE ( ++i <= Len( ::aTabs ) )
-
- IF !::aTabs[ i, TAB_QDOCUMENT ]:isModified()
- Loop
- End
IF ::closeSource( i, .T., @lCanceled )
i --
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
