From 247e88c5ef3fd0ffd1d7df51c6be5e1c8ed5ba21 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Thu, 25 Apr 2013 09:40:09 -0400
Subject: Added icons to msgbox dialogs. Requires gtdialog r56.

---
 core/file_io.lua              | 3 +++
 core/gui.lua                  | 1 +
 modules/textadept/find.lua    | 1 +
 modules/textadept/keys.lua    | 2 --
 modules/textadept/session.lua | 1 +
 5 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/core/file_io.lua b/core/file_io.lua
index c6fc45ba..137463d9 100644
--- a/core/file_io.lua
+++ b/core/file_io.lua
@@ -317,6 +317,7 @@ local function close(buffer)
                                  '--title', _L['Close without saving?'],
                                  '--text', _L['There are unsaved changes in'],
                                  '--informative-text', filename,
+                                 '--icon', 'gtk-dialog-question',
                                  '--button1', _L['_Cancel'],
                                  '--button2', _L['Close _without saving'],
                                  '--no-newline') ~= '2' then
@@ -358,6 +359,7 @@ local function update_modified_file()
                   '--informative-text',
                   ('"%s"\n%s'):format(utf8_filename,
                                       _L['has been modified. Reload it?']),
+                  '--icon', 'gtk-dialog-question',
                   '--button1', _L['_Yes'],
                   '--button2', _L['_No'],
                   '--no-cancel',
@@ -440,6 +442,7 @@ function io.snapopen(utf8_paths, filter, exclude_FILTER, ...)
                string.format('%d %s %d', io.SNAPOPEN_MAX,
                              _L['files or more were found. Showing the first'],
                              io.SNAPOPEN_MAX),
+               '--icon', 'gtk-dialog-info',
                '--button1', _L['_OK'])
   end
   local width = CURSES and {'--width', gui.size[1] - 2} or ''
diff --git a/core/gui.lua b/core/gui.lua
index 1d0a782b..6cfa35c6 100644
--- a/core/gui.lua
+++ b/core/gui.lua
@@ -432,6 +432,7 @@ events_connect(events.QUIT, function()
                                  '--text',
                                  _L['The following buffers are unsaved:'],
                                  '--informative-text', table.concat(list, '\n'),
+                                 '--icon', 'gtk-dialog-question',
                                  '--button1', _L['_Cancel'],
                                  '--button2', _L['Quit _without saving'],
                                  '--no-newline') == '2'
diff --git a/modules/textadept/find.lua b/modules/textadept/find.lua
index c9d67ade..5b0adae8 100644
--- a/modules/textadept/find.lua
+++ b/modules/textadept/find.lua
@@ -270,6 +270,7 @@ local function run(code)
                '--title', _L['Error'],
                '--text', _L['An error occured:'],
                '--informative-text', val:gsub('"', '\\"'),
+               '--icon', 'gtk-dialog-error',
                '--button1', _L['_OK'],
                '--button2', _L['_Cancel'],
                '--no-cancel')
diff --git a/modules/textadept/keys.lua b/modules/textadept/keys.lua
index d6b9bc70..e87bed56 100644
--- a/modules/textadept/keys.lua
+++ b/modules/textadept/keys.lua
@@ -565,8 +565,6 @@ if not CURSES then
   keys.f1 = {utils.open_webpage, _HOME..'/doc/01_Introduction.html'}
   keys.sf1 = {utils.open_webpage, _HOME..'/doc/api/index.html'}
 end
--- TODO: {gui.dialog, 'ok-msgbox', '--title', 'Textadept', '--text', _RELEASE,
---        '--button1', _L['_OK'], '--no-cancel'}
 
 -- Movement commands.
 if OSX then
diff --git a/modules/textadept/session.lua b/modules/textadept/session.lua
index 5ac2f50f..e6a9063e 100644
--- a/modules/textadept/session.lua
+++ b/modules/textadept/session.lua
@@ -112,6 +112,7 @@ function M.load(filename)
                '--title', _L['Session Files Not Found'],
                '--text', _L['The following session files were not found'],
                '--informative-text', table.concat(not_found, '\n'),
+               '--icon', 'gtk-dialog-warning',
                '--button1', _L['_OK'])
   end
   return true
-- 
cgit v1.2.3