AboutSystem: make hyperlinks blue

and remove silly "click on license name to read it" hint, now that they
are more obviously hyperlinks
This commit is contained in:
Adrien Destugues 2020-01-11 13:25:28 +01:00
parent 6f7074581a
commit 388c78edd9
1 changed files with 5 additions and 3 deletions

View File

@ -1050,9 +1050,6 @@ AboutView::_CreateCreditsView()
fCreditsView->SetFontAndColor(&font, B_FONT_ALL, &kHaikuGreen);
fCreditsView->Insert(B_TRANSLATE("\nCopyrights\n\n"));
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kDarkGrey);
fCreditsView->Insert(B_TRANSLATE("[Click a license name to read the "
"respective license.]\n\n"));
// Haiku license
BString haikuLicense = B_TRANSLATE_COMMENT("The code that is unique to "
@ -1069,26 +1066,31 @@ AboutView::_CreateCreditsView()
int32 licensePart4 = haikuLicense.FindLast(">");
BString part;
haikuLicense.CopyInto(part, 0, licensePart1);
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kDarkGrey);
fCreditsView->Insert(part);
part.Truncate(0);
haikuLicense.CopyInto(part, licensePart1 + 1, licensePart2 - 1
- licensePart1);
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kLinkBlue);
fCreditsView->InsertHyperText(part, new OpenFileAction(mitPath.Path()));
part.Truncate(0);
haikuLicense.CopyInto(part, licensePart2 + 1, licensePart3 - 1
- licensePart2);
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kDarkGrey);
fCreditsView->Insert(part);
part.Truncate(0);
haikuLicense.CopyInto(part, licensePart3 + 1, licensePart4 - 1
- licensePart3);
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kLinkBlue);
fCreditsView->InsertHyperText(part, new OpenFileAction(lgplPath.Path()));
part.Truncate(0);
haikuLicense.CopyInto(part, licensePart4 + 1, haikuLicense.Length() - 1
- licensePart4);
fCreditsView->SetFontAndColor(be_plain_font, B_FONT_ALL, &kDarkGrey);
fCreditsView->Insert(part);
// GNU copyrights