tk 0.1.10

Rust bindings for Tk GUI library
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

use enumx::export::*;
use enumx::predefined::*;
use cex::*;

use crate::*;

use crate::{
    bitmap::Bitmap,
    error::NotList,
    photo::Photo,
};

use tuplex::*;

impl<Inst:TkInstance> Tk<Inst> {
    pub fn image_create_bitmap<Opts>( &self, path_opts: impl Into<PathOptsWidgets<Opts,()>> ) -> InterpResult<Bitmap<Inst>>
        where Opts: IntoHomoTuple<opt::TkBitmapOpt>
                  + IntoHomoTuple<OptPair>
    {
        let mut command = Vec::<Obj>::with_capacity( <<Opts as IntoHomoTuple<OptPair>>::Output as tuplex::Len>::LEN * 2 + 3 );
        command.push( "image"   .into() );
        command.push( "create"  .into() );
        command.push( "bitmap"  .into() );
        let path_opts = path_opts.into();
        if !path_opts.path.is_empty() {
            command.push( path_opts.path.into() );
        }
        cmd::append_opts( &mut command, path_opts.opts );
        self.eval( command ).map( |name| Bitmap{ name, inst: self.inst })
    }

    pub fn image_create_photo<Opts>( &self, path_opts: impl Into<PathOptsWidgets<Opts,()>> ) -> InterpResult<Photo<Inst>>
        where Opts: IntoHomoTuple<opt::TkPhotoOpt>
                  + IntoHomoTuple<OptPair>
    {
        let mut command = Vec::<Obj>::with_capacity( <<Opts as IntoHomoTuple<OptPair>>::Output as tuplex::Len>::LEN * 2 + 3 );
        command.push( "image"   .into() );
        command.push( "create"  .into() );
        command.push( "photo"   .into() );
        let path_opts = path_opts.into();
        if !path_opts.path.is_empty() {
            command.push( path_opts.path.into() );
        }
        cmd::append_opts( &mut command, path_opts.opts );
        self.eval( command ).map( |name| Photo{ name, inst: self.inst })
    }

    pub fn image_delete( &self, image: Obj ) -> InterpResult<()> {
        self.run(( "image", "delete", image ))
    }

    #[cex]
    pub fn image_names( &self ) -> Result!( Vec<String> throws InterpError, NotList ) {
        let obj = self.eval(( "image", "names" ))?;
        Ok( obj .get_elements()?
                .map( |elem| elem.to_string() )
                .collect() )
    }

    #[cex]
    pub fn image_types( &self ) -> Result!( Vec<String> throws InterpError, NotList ) {
        let obj = self.eval(( "image", "types" ))?;
        Ok( obj .get_elements()?
                .map( |elem| elem.to_string() )
                .collect() )
    }
}

pub trait Image<Inst:TkInstance> {
    fn tk( &self ) -> Tk<Inst>;
    fn name( &self ) -> Obj;

    fn height( &self ) -> InterpResult<c_int> {
        let obj = self.tk().eval(( "image", "height", self.name() ))?;
        self.tk().int( obj )
    }

    fn inuse( &self ) -> InterpResult<bool> {
        let obj = self.tk().eval(( "image", "inuse" ))?;
        self.tk().boolean( obj )
    }

    fn type_( &self ) -> InterpResult<String> {
        self.tk().eval(( "image", "type", self.name() ))
            .map( |obj| obj.to_string() )
    }

    fn width( &self ) -> InterpResult<c_int> {
        let obj = self.tk().eval(( "image", "width", self.name() ))?;
        self.tk().int( obj )
    }
}