The very first item in the ‘Standard’ toolbar, named ‘Load URL’ will show the full path-name (if not a new ‘Untitled’ document is active). You may have to “check” it customising the toolbar if the control doesn’t show.
Editing:
How to customise the toolbar is described in more detail in the second comment below.
===Edit 2020-08-30 about 21:25 UTC===
Being back to the thread due to a recent comment on my answer, I visited the bug mentioned by @mariosv and decided to write a little macro offering a workaround for the purpose:
Sub showFileLocationInTitleBar()
u = ThisComponent.URL
If u = "" Then Exit Sub REM The document was not yet stored.
uWithoutProto = Split(u, "file://")(1)
ThisComponent.Title = uWithoutProto
End Sub
(I didn’t thoroughly check for every possible issue with the code.)
I just assigned the above macro for my own LibreOffice to the Activate Document
event via >Tools>Customize
and saved the setting for all LibreOffice. It works for me as expected, and I consider to work permanently with it.
However, I cannot check with different OS, and I don’t work in an environment with any specialties.
[Edit time=2020-08-31 about 19:10 UTC]After some additional considerations, and rgearding specific effects occurring during the debugging of any Basic code, I would dissuade from assigning the macro to Activate document
. I assigned it instead to View created
and to Document has been saved as
as well. So far this works as I like it.[/Edit]
If you also want to give the workaround a try on your system, and you want to get the location shown regarding its path conventions, you may use the variant:
Sub showFileLocationInTitleBarSystemStyle()
u = ThisComponent.URL
If u = "" Then Exit Sub REM The document was not yet stored.
ThisComponent.Title = ConvertFromUrl(u)
End Sub
[Edit 2021-08-16 about 19:40 GMT]
Final version:
Sub onViewCreated()
showFileLocationInTitleBar(True)
End Sub
Sub onDocumentSavedAs()
showFileLocationInTitleBar(True)
End Sub
Sub showFileLocationInTitleBar(Optional pUrlStyle As Boolean)
On Local Error Goto fail
If IsMissing(pUrlStyle) Then pUrlStyle = True
url = ThisComponent.URL
If url = "" Then Exit Sub REM The document was not yet stored.
If pUrlStyle Then
urlSpl = Split(url, "file://") REM Just to save some space.
tN = urlSpl(Ubound(urlSpl))
Else
tN = ConvertFromURL(url)
End If
ThisComponent.Title = tN
fail:
End Sub
[/Edit]