scripts: Describe checkpoint in GUI title

Signed-off-by: Martin Povišer <[email protected]>

Author: povik

flow/scripts/open.tcl

@@ -57,6 +57,11 @@ proc read_timing {input_file} {
   puts "OK"
 }
 
+if {[ord::openroad_gui_compiled]} {
+  set db_basename [file rootname [file tail $input_file]]
+  gui::set_title "OpenROAD - $::env(PLATFORM)/$::env(DESIGN_NICKNAME)/$::env(FLOW_VARIANT) - ${db_basename}"
+}
+
 if {[env_var_equals GUI_TIMING 1]} {
   puts "GUI_TIMING=1 reading timing, takes a little while for large designs..."
   read_timing $input_file