RADXIDE/main.tcl

###########################################################
# Name:    main.tcl
# Author:  Daniele Bonini  (posta@elettronica.lol)
# Date:    25/11/2023
# Desc:    Main form of RadXIDE.
# License: MIT.
###########################################################


namespace eval main {

# ________________________ Main _create _________________________ #

	proc _create {} {
		# Creates the main form of radxide.

		namespace upvar ::radxide dan dan
		
		::radxide::win::makeMainWindow $dan(WIN).fra $dan(TITLE) $dan(BG) $dan(FG)

	}

# ________________________ ShowHeader _________________________ #

	proc updateAppTitle {} {
		# Displays a file's name and modification flag (*) in alited's title.

		namespace upvar ::radxide dan dan project project

    #tk_messageBox -title $dan(TITLE) -icon error -message $project(CUR_FILE_PATH)

  	set f "<no file>"
    if {$project(CUR_FILE_PATH) ne ""} {
      set f [string range $project(CUR_FILE_PATH) [expr [string length $dan(WORKDIR)]+1] end]
  	}  
  	#tk_messageBox -title $dan(TITLE) -icon error -message $f
	  set t $dan(TITLE)
	  set templ $dan(TITLE_TEMPL)
	  set ttl [string map [list %f $f %t $t] $templ]
	  wm title $dan(WIN) [string trim $ttl]

	}

# ________________________ Main _run _________________________ #

	proc _run {} {
		# Runs the alited, displaying its main form with attributes
		# 'modal', 'not closed by Esc', 'decorated with Contract/Expand buttons',
		# 'minimal sizes' and 'saved geometry'.
		#
		# After closing the alited, saves its settings (geometry etc.).

		namespace upvar ::radxide dan dan

		wm attributes $dan(WIN) -topmost
		updateAppTitle
		wm iconphoto $dan(WIN) $dan(ICONI)
		wm resizable $dan(WIN) 0 0
		::radxide::win::centerWin $dan(WIN) $dan(WIDTH) $dan(HEIGHT)
		wm minsize $dan(WIN) $dan(WIDTH) $dan(HEIGHT)
		wm attributes $dan(WIN) -fullscreen 0
		wm protocol . WM_DELETE_WINDOW { radxide::quit }
    
    catch {focus -force $dan(TEXT)}
    
    # Modal
		set var 1
		::radxide::win::waitWinVar $dan(WIN) $var 1
		# --
		
		destroy $dan(WIN)
		update
		return 1
	}

}
# _________________________________ EOF _________________________________ #