From fb9235e7c3a6872a1394e5ba0c78217d9617f8e3 Mon Sep 17 00:00:00 2001 From: Siri Hansen Date: Thu, 6 Jul 2017 17:25:37 +0200 Subject: observer: Do not use deprecated functions in string(3) --- lib/observer/src/cdv_wx.erl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/observer/src/cdv_wx.erl') diff --git a/lib/observer/src/cdv_wx.erl b/lib/observer/src/cdv_wx.erl index 1e3fb6289e..7f8feebdbd 100644 --- a/lib/observer/src/cdv_wx.erl +++ b/lib/observer/src/cdv_wx.erl @@ -130,8 +130,9 @@ init(File0) -> {ok,File} -> %% Set window title T1 = "Crashdump Viewer: ", + FileLength = string:length(File), Title = - if length(File) > 70 -> + if FileLength > 70 -> T1 ++ filename:basename(File); true -> T1 ++ File @@ -419,8 +420,9 @@ load_dump(Frame,FileName) -> ok -> %% Set window title T1 = "Crashdump Viewer: ", + FileLength = string:length(FileName), Title = - if length(FileName) > 70 -> + if FileLength > 70 -> T1 ++ filename:basename(FileName); true -> T1 ++ FileName -- cgit v1.2.3